Вправа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 (виконати в зошиті)
Немає коментарів:
Дописати коментар