Question

1 .Исправьте ошибки в заданном коде: I1:=125; Edit1.Text:=FloatToStr (i1);?
2. Напишите правильную версию процедуры присвоения значения компонента Edit1 значению свойства компонента Button1?
3. Summa: = SQR (x) + 3 * a отчет о назначении?
4. Путь вывода A=9;b=8; print (a+b-2)?

Answer 1

Объяснение:

var

I1: Integer;

begin

I1 := 125;

Edit1.Text := IntToStr(I1);

end;

procedure AssignButton1ValueToEdit1;

begin

Edit1.Text := Button1.Caption;

end;

var

Summa: Double;

begin

Summa := Sqr(x) + 3 * a;

// Вывод отчета о назначении Summa

end;

SYKA PITON