9 клас. Практичні завдання з інформатики за підручником Н.В.Морзе 2017 року.
§ 18. Вправа 1. Пошук номера елемента. Розробка проекту в середовищі програмування Lazarus (Free Pascal).
Завдання. Створіть проект Номер елемента, у якому здійснюють пошук номера елемента лінійної таблиці з 10 цілих чисел, значення якого дорівнює її першому елементу.
1. У папці Навчальні проекти своєї структури папок створіть папку Номер елемента. 2. Відкрийте середовище Lazarus і створіть новий проект. Розмістіть на електронній формі (мал. 18.1) об'єкти, самостійно надайте значення їхнім властивостям. 3. Створіть процедуру опрацювання події Виконати. У вікні редактора коду опишіть змінні, які будуть використовуватись у проекті: а – масив цілих чисел; і – номер (індекс) елемента масиву; flag – номер шуканого елемента:
var і, flag: integer; а : array [1..10] of integer;
4. У вікні редактора коду запишіть команди введення значень елементів масиву, знаходження номера елемента та виведення його значення або повідомлення, що такого елемента не існує (мал. 18.2).
procedure TForm1.Button1Click(Sender: TObject); var i, flag : Integer; a : array [1..10] of Integer; begin flag:=0; a[1] := StrToInt(Memo1.Lines[0]); for i := 1 to 9 do begin a[i+1] := StrToInt(Memo1.Lines[i]); if a[i+1] =a[1] then begin flag:=i+1; break; end; end; if flag > 0 then Edit1.Text:=IntToStr(flag) else Edit1.Text:='Елемент не існує'; end;
5. Запустіть проект на виконання. Перевірте на контрольному прикладі, дібраному самостійно, чи відповідають умові завдання дії, пов'язані з об'єктами управління екранної форми. Якщо є помилки, виправте їх. Завершіть роботу з проектом і середовищем програмування, зберігши всі зміни.
1. У папці Навчальні проекти своєї структури папок створіть папку Номер елемента. 2. Відкрийте середовище Lazarus і створіть новий проект. Розмістіть на електронній формі (мал. 18.1) об'єкти, самостійно надайте значення їхнім властивостям. 3. Створіть процедуру опрацювання події Виконати. У вікні редактора коду опишіть змінні, які будуть використовуватись у проекті: а – масив цілих чисел; і – номер (індекс) елемента масиву; flag – номер шуканого елемента:
var і, flag: integer; а : array [1..10] of integer;
4. У вікні редактора коду запишіть команди введення значень елементів масиву, знаходження номера елемента та виведення його значення або повідомлення, що такого елемента не існує (мал. 18.2).
procedure TForm1.Button1Click(Sender: TObject); var i, flag : Integer; a : array [1..10] of Integer; begin flag:=0; a[1] := StrToInt(Memo1.Lines[0]); for i := 1 to 9 do begin a[i+1] := StrToInt(Memo1.Lines[i]); if a[i+1] =a[1] then begin flag:=i+1; break; end; end; if flag > 0 then Edit1.Text:=IntToStr(flag) else Edit1.Text:='Елемент не існує'; end;
5. Запустіть проект на виконання. Перевірте на контрольному прикладі, дібраному самостійно, чи відповідають умові завдання дії, пов'язані з об'єктами управління екранної форми. Якщо є помилки, виправте їх. Завершіть роботу з проектом і середовищем програмування, зберігши всі зміни.
Немає коментарів:
Дописати коментар