треба знайти помилку
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;
Ответы
Ответ дал:
2
Ответ:
В этом коде есть несколько ошибок. Вот исправленный вариант:
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;
abinaslllx:
Можете мне помочь пожалуйста?...
Вас заинтересует
3 месяца назад
3 месяца назад
4 месяца назад
4 месяца назад
2 года назад
7 лет назад