Есть кто в паскале разбирается(см.внутри)?

Question

Поделиться 0

Есть кто в паскале разбирается(см.внутри)?

Вопрос решен и закрыт.

Aprēķināt funkcijas y= 1/x vērtības pie argumenta x vērtībām no 0.1 līdz 1.9 ar soli 0.1. Aprēķinu veikt pēc augstāk dotās formulas un izvirzījuma rindā

так вот программу вроде как написал, но почему-то ошибки выдаёт.
x:=0.1;
while x<2 do begin
S:=1-(x-1);
A:=-(x-1);
k:=1;
while ABS(A)>0.0001 do
begin
A:=-A*(x-1)*k;
S:=S+A;
k:=k+1;
end;
y:=1/x;
writeln( x:5:6,' ',S:12:6,' ',Y:12:6,' ',k);
x:=x+0.1;
end;

ошибка в подчёркнутом месте, при запуске он пишет: Floating point overflow. если while поменять на if тогда всё работает, но нету точности которая требуется в задании, может кто-то помочь?

14 лет Просмотров: 263

0 0

Accepted Answer

ты что упоротый? у тебя ABS(A) всегда больше 0.0001, цикл бесконечен

Лучший ответ

Ответы

Похожие вопросы