неділю, 1 жовтня 2017 р.

9 клас. Введення та виведення табличних величин.

Вправа1 с.113. Введення масиву дійсних чисел.
procedure TForm1.Button1Click(Sender: TObject);
var i,n:integer;
  x:array[1..20]of real;
begin
     n:=StrToInt(Edit1.Text);
     for i:= 1 to n do
         x[i]:=StrToFloat(InputBox('Введення елементів масиву','Введіть'+IntToStr(i)+'елемент','0,00') );
end;
end.

Вправа2 с.114. Введення масиву цілих чисел.
procedure TForm1.Button1Click(Sender: TObject);
var i,n: integer;
  a:array[1..20] of integer;
  s:string;
begin
     n:=StrToInt(Edit1.Text);
     Randomize;
     for i:=1 to n do
         a[i]:=random(10);
     s:='';
     for i:=1 to n do
         s:=s+IntToStr(a[i])+' ';
     MessageDlg(s,Mtinformation,[mbOk],0);
end;
end.

Додаткове завдання.
Модифікуйте проект Вправи 1.: Розмістіть на екранній формі ще одну кнопку "Вивести", натиснувши її, на екран виводився б уведений масив.

Домашнє завданя. с.110-116, Впр 1-3 с.119 (виконати в зошиті)