9 клас. Практичні завдання з інформатики за підручником Н.В.Морзе 2017 року.
§ 18. Вправа 2. Різниця між найбільшим та найменшим. Розробка проекту в середовищі програмування Lazarus (Free Pascal).
Завдання. Створіть проект Випробування, у якому знаходять різницю між найбільшим та найменшим елементом лінійної таблиці з 10 дійсних чисел, які змінюються від 5 до 10 випадково.
1. У папці Навчальні проекти своєї структури папок створіть папку створіть папку Випробування.
2. Відкрийте середовище Lazarus і створіть новий проект. Розмістіть на електронній формі (мал. 18.5) об'єкти, самостійно надайте значення їхнім властивостям.
3. Створіть процедуру опрацювання події Знайти. У вікні редактора коду опишіть змінні, які будуть використовуватись у проекті; а – масив дійсних чисел; і – номер (індекс) елемента масиву; max – найбільше значення серед елементів; min – найменше значення серед елементів.
var і : integer;
max, min : real;
a : array [1..10] of real;
4. У вікні редактора коду запишіть команди випадкового генерування елементів масиву та виведення їх у таблицю, пошуку найбільшого та найменшого елементів масиву, виведення різниці між значеннями max і min. Зауважте, що для того, щоб отримати випадкове дійсне число, що відповідає умові 5 менше х менше 10, використано вираз: 10.0 – random*5.0.
begin
Randomize;
StringGrid1.Cells[0,1] := 'a';
for i := 0 to 9 do
begin
a[i+1] := 10.0 - Random * 5.0;
StringGrid1.Cells[i+1,0] := IntToStr(i+1);
StringGrid1.Cells[i+1,1] := FloatToStrF(a[i+1], ffFixed, 3, 2);
end;
max:=a[1];
min:=a[1];
for i := 2 to 10 do
begin
if a[i] більше max then
max:=a[i];
if a[i] менше min then
min:=a[i];
end;
Edit1.Text:=FloatToStrF(max - min, ffFixed, 2, 2);
end;
5. Запустіть проект на виконання. Перевірте, чи відповідають умові завдання дії, пов'язані з об'єктами управління екранної форми. Якщо є помилки – виправте їх.
6. Знайдіть на екранній формі найбільше та найменше значення елементів згенерованої таблиці. Обчисліть їх різницю. Перевірте програму на наявність логічних помилок. Завершіть роботу із проектом та середовищем програмування, зберігши всі зміни.
Завантажити текст практичного завдання у форматі docx: https://goo.gl/iVs63T
Немає коментарів:
Дописати коментар