Автор DeymosZ задал вопрос в разделе Другие языки и технологии
delphi цикл while ОШИБКА и получил лучший ответ
Ответ от Stason33[гуру]
Поздравляем! Какая ошибка то, блядь!?!?
Stason33
Мастер
(2023)
На какой строчке? Ну не тупи, чувак. Тут нет телепатов. Опиши проблему ПОЛНОСТЬЮ!
Ответ от Александр Кузьмин[гуру]
x:=-51;
while x<=29 do begin
d:=x-abs(1/(exp(1/3*ln(x));
Логарифм отрицательного числа?
x:=-51;
while x<=29 do begin
d:=x-abs(1/(exp(1/3*ln(x));
Логарифм отрицательного числа?
Ответ от Александр Погребняк[гуру]
x:=-51 - так нельзя писать для корня. Подкоренное выражение не может быть меньше нуля
Или делать проверку:
if x>=0 then
begin
d:=x-abs(1/(exp(1/3*ln(x));
memo1.Lines.Add(floattostr(d));
end
else memo1.Lines.Add('Функция не определена');
x:=-51 - так нельзя писать для корня. Подкоренное выражение не может быть меньше нуля
Или делать проверку:
if x>=0 then
begin
d:=x-abs(1/(exp(1/3*ln(x));
memo1.Lines.Add(floattostr(d));
end
else memo1.Lines.Add('Функция не определена');
Ответ от Home home[гуру]
ПРОЦЕДУРЕ ТФОРМ1.БУТТОН1ЦЛИЦК (СЕНДЕР: ТОБЖЕЦТ) ;
ВАР
Д: РЕАЛ;
К, К: ИНТЕГЕР;
БЕГИН
К: =0;
К: =-51;
ВХИЛЕ К<=29 ДО БЕГИН
Д: =К-АБС (1/(ЕКП (1/3*ЛН (К)) ;
МЕМО1.ЛИНЕС. АДД (ФЛОАТТОСТР (Д)) ;
К: =К+4;
ИФ Д<=0 ТХЕН К: =К+1;
ЕНД;
ЕДИТ1.ТЕКТ: =ИНТТОСТР (К) ;
ЕНД;
ЕНД.
---
(текст процедуры переведен в кириллицу самодельной программой)
ПРОЦЕДУРЕ ТФОРМ1.БУТТОН1ЦЛИЦК (СЕНДЕР: ТОБЖЕЦТ) ;
ВАР
Д: РЕАЛ;
К, К: ИНТЕГЕР;
БЕГИН
К: =0;
К: =-51;
ВХИЛЕ К<=29 ДО БЕГИН
Д: =К-АБС (1/(ЕКП (1/3*ЛН (К)) ;
МЕМО1.ЛИНЕС. АДД (ФЛОАТТОСТР (Д)) ;
К: =К+4;
ИФ Д<=0 ТХЕН К: =К+1;
ЕНД;
ЕДИТ1.ТЕКТ: =ИНТТОСТР (К) ;
ЕНД;
ЕНД.
---
(текст процедуры переведен в кириллицу самодельной программой)
Ответ от 3 ответа[гуру]
Привет! Вот подборка тем с похожими вопросами и ответами на Ваш вопрос: delphi цикл while ОШИБКА