9 клас. Практичні завдання з інформатики за підручником Н.В.Морзе 2017 року.
§ 18. Вправа 3. Упорядкування масиву. Розробка проекту в середовищі програмування Lazarus (Free Pascal).
Завдання. Створіть проект Упорядкування, у якому елементи лінійної таблиці з 10 цілих чисел впорядковуються за зростанням.
1. У папці Навчальні проекти своєї структури папок створіть папку створіть створіть папку Упорядкування.
2. Відкрийте середовище Lazarus і створіть новий проект. Розмістіть на електронній формі(мал. 18.9) об'єкти, самостійно надайте значення їхнім властивостям.
3. Створіть процедуру опрацювання події Упорядкувати. У вікні редактора коду опишіть змінні, які будуть використовуватись у проекті: а – масив цілих чисел; і – номер ітерації пошуку мінімального елемента масиву; j – номер елемента масиву; min – найменше значення елемента; nmin – номер найменшого елемента.
var і, j, min, nmin : integer; a: array [1..10] of integer;
4. У вікні редактора коду запишіть команди введення елементів масиву в багаторядкове текстове поле, впорядкування елементів та їх виведення в багаторядкове текстове поле (мал. 18.10).
begin for i := 0 to 9 do a[i+1] := StrToInt(Memo1.Lines[i]); for i := 0 to 9 do begin min:=a[i]; nmin:=i; for j := i + 1 to 10 do if a[j] менше min then begin min := a[j]; nmin := j; end; a[nmin] := a[i]; a[i] := min; end; for i := 0 to 9 do Memo2.Lines[i] := IntToStr(a[i+1]); end;
5. Запустіть проект на виконання. Перевірте, чи відповідають умові завдання дії, пов'язані із об'єктами управління екранної форми. Якщо є помилки, виправте їх. Завершіть роботу із проектом і середовищем програмування, зберігши всі зміни.
var і, j, min, nmin : integer; a: array [1..10] of integer;
4. У вікні редактора коду запишіть команди введення елементів масиву в багаторядкове текстове поле, впорядкування елементів та їх виведення в багаторядкове текстове поле (мал. 18.10).
begin for i := 0 to 9 do a[i+1] := StrToInt(Memo1.Lines[i]); for i := 0 to 9 do begin min:=a[i]; nmin:=i; for j := i + 1 to 10 do if a[j] менше min then begin min := a[j]; nmin := j; end; a[nmin] := a[i]; a[i] := min; end; for i := 0 to 9 do Memo2.Lines[i] := IntToStr(a[i+1]); end;
5. Запустіть проект на виконання. Перевірте, чи відповідають умові завдання дії, пов'язані із об'єктами управління екранної форми. Якщо є помилки, виправте їх. Завершіть роботу із проектом і середовищем програмування, зберігши всі зміни.
Немає коментарів:
Дописати коментар