Практична робота з інформатики для 9 класу. Тема: "Табличні величини"

Практична робота

Табличні величини

Завдання. Ввести значення елементів одновимірного масиву, що складається з 3 чисел, що міститься в рядках багаторядкового текстового поля, піднести ці числа до квадрата і вивести їх в інше багаторядкове текстове поле.

Інструкція до розробки проекту.

Розмістити на формі два багаторядкових текстових поля з іменами Мемо1 і Мемо2 та встановити для них значення властивостей Height = 180,0 ScrollBars = ssVertical, в Lines очистити поле властивостей (видалити Memo1 та Memo2). Розмістити на формі також кнопку TButton, установити для неї     Caption = ‘До квадрата’.

Код програми.

procedure TForm1.Button1Click(Sender: TObject);

var a: array [0..2] of real; i: integer;   // об’являємо масив з фіксованою   кількістю елементів (3 елементи) з типом integer (ціле цисло)

begin

for i := 0 to 2 do

a[i] := StrToFloat(Memo1.Lines[i]);  // дані з рядків першого              багаторядкового текстового поля перевести в число і присвоїти відповідним елементам табличної величини

for i := 0 to 2 do

a[i] := a[i] * a[i];  // піднесення до квадрата

Memo2.Clear;  //очищення другого багаторядкового текстового поля

for i := 0 to 2 do

Memo2.Lines.Append(FloatToStr(a[i]));// виведення значень елементів табличної величини в рядки другого багаторядкового текстового поля

  end;