AK
естественно, прокатывает "на ура", раз опция включена
Size: a a a
2020 April 01
DB
ок. ну такое написание может быть удобнее. у самого в одном месте постоянно приходится в делфе править границы
L
Пожалуйста ПОМОГИТЕ
L
Я ничего не понимаю
AS
по-русски, пожалуйста, для начала
L
найдите и исправьте ошибки
AS
Lera
найдите и исправьте ошибки
текст сообщения можно (нужно) исправить
AS
L
Что именно?
AK
1 - переменные объявлены целочисленными, а им присваиваются дробные числа.
2 - нет проверок на пустую строку
3 - нет проверки деления на ноль
это как минимум
2 - нет проверок на пустую строку
3 - нет проверки деления на ноль
это как минимум
AS
Lera
Что именно?
🤦♂️
текст сообщения напиши по-русски
текст сообщения напиши по-русски
I
Пацаны, кто не занят и может помочь с тестом за пару соток?
AS
1 - переменные объявлены целочисленными, а им присваиваются дробные числа.
2 - нет проверок на пустую строку
3 - нет проверки деления на ноль
это как минимум
2 - нет проверок на пустую строку
3 - нет проверки деления на ноль
это как минимум
какой ты скучный )
AK
ОЧЕНЬ
L
😂 всё равно не понимаю
AS
Пацаны, кто не занят и может помочь с тестом за пару соток?
щедрое предложение ))
AS
Пацаны, кто не занят и может помочь с тестом за пару соток?
но написал бы сразу что надо
AS
Lera
😂 всё равно не понимаю
иди учи книжки тогда
AK
procedure TForm1.Button1Click(Sender: TObject);
var x,y,s:integer; - тип "целое", а не "дробное" типа real
begin
x:=StrToFloat(Edit1.Text); - нет проверки правильности строки (пустая или НЕдробное число)
y:=StrToFloat(Edit2.Text);
s:=x/y; - нет проверки, что Y не равняется нулю
Label1.Caption:=FloatToStr(S);
end;
что не ясно?
var x,y,s:integer; - тип "целое", а не "дробное" типа real
begin
x:=StrToFloat(Edit1.Text); - нет проверки правильности строки (пустая или НЕдробное число)
y:=StrToFloat(Edit2.Text);
s:=x/y; - нет проверки, что Y не равняется нулю
Label1.Caption:=FloatToStr(S);
end;
что не ясно?