Автор 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 ОШИБКА
спросили в Цикл Снов
в чем различие циклов while и do в delphi
Может while и do while? While цикл с предусловием, а do while с
подробнее...
в чем различие циклов while и do в delphi
Может while и do while? While цикл с предусловием, а do while с
подробнее...
спросили в RFID Rhabditida
Чем отличаются циклы For, While и Repeat....Until в Delphi 7?
Цикл For может задать с какого значения начинать и на каком остановиться. Цикл с счетчиком
Чем отличаются циклы For, While и Repeat....Until в Delphi 7?
Цикл For может задать с какого значения начинать и на каком остановиться. Цикл с счетчиком
Delphi int64/ integer
Как оказалось, тип int64 не является перечислимым типом, о чём мне и сообщил компилятор, а параметр
подробнее...
как отследить завершение процесса в Delphi?
Можешь попробовать так:
procedure Start;
var
si: TStartupInfo;
p:
подробнее...
Как сделать бесконечный цикл в delphi ?
Выбирай:
while true do тело_цикла;
--
repeat
тело+цикла
until false;
подробнее...
Ответ от 3 ответа[гуру]
Привет! Вот еще темы с похожими вопросами:
спросили в Lines
Delphi, TList vs Memo
что такое... .
x:=List.Count;
i:=0;
while i < x do
begin
Delphi, TList vs Memo
что такое... .
x:=List.Count;
i:=0;
while i < x do
begin
спросили в Чтение
как открыть текстовый файл в Delphi и сделать построчное чтение?
var
var f : TextFile; // объявлена файловая переменная f типа TextFile
begin
как открыть текстовый файл в Delphi и сделать построчное чтение?
var
var f : TextFile; // объявлена файловая переменная f типа TextFile
begin
Delphi | Метод Locate, поиск, как найти следующую запись?
В ADO такого проще не делать.
А чем вас тупой перебор while not ADOTable1.Eof do begin
подробнее...