помогите пожалуйста по информатике программа 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:
Прошу помогите
нужно исправить ошибки
Сама программа имеет вот такой вид :
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:
Прошу помогите
More Questions From This User See All
Answers & Comments
Ответ:
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: - вместо точки стоит двоеточие в конце выражения
Если ошибки остануться, пиши в комментарий, разберёмся