Question

помогите пожалуйста по информатике программа lazarus

нужно исправить ошибки


Сама программа имеет вот такой вид :

TForm1.FormCreate(Sender: TObject);


var x1,x3,result:real;

begin

x1=Edit1.Text;

x2:=Edit2.Text;

x3=Edit3.Text;

result:=x1+x2+x3;

Edit4.text:=result;

result=x1*x2*x3;

Edit5:=result:

end:

Прошу помогите

Answer 1

Ответ:

var x1,x3,result:real; - отсутствует x2

begin

x1=Edit1.Text; - отсутствует двоеточие

x2:=Edit2.Text;

x3=Edit3.Text;  - отсутствует двоеточие

result:=x1+x2+x3;

Edit4.text:=result;

result=x1*x2*x3;

Edit5:=result: - вместо точки с запятой стоит двоеточие в конце выражения

end: - вместо точки стоит двоеточие в конце выражения

Если ошибки остануться, пиши в комментарий, разберёмся