Question

треба знайти помилку

procedure TForm1.Button1Click(Sender: TObject);

var a, b, d, s:= real;

begin

a = StrToFloat(Edit.Text)

b= FloatToStr (Edit2.Text);

d:= a*b;

s := a+b;

r:= s/d

ShowMessage('y '+FloatTostr(r)+' paзiв')

end;​

Answer 1

Ответ:

В этом коде есть несколько ошибок. Вот исправленный вариант:

procedure TForm1.Button1Click(Sender: TObject);

var

a, b, d, s, r: real; // исправлено: каждая переменная должна быть объявлена отдельно

begin

a := StrToFloat(Edit.Text); // исправлено: знак присваивания это "=" а не "=="

b := StrToFloat(Edit2.Text); // исправлено: правильно преобразовываем текст в число

d := a * b;

s := a + b;

r := s / d;

ShowMessage('y ' + FloatTostr(r) + ' paзiв'); // исправлено: добавлен пробел и исправлен регистр букв

end;