Затруднения с циклами Опции

[Vaso]

Кто-нибудь может мне помочь сотавить алгоритм по задаче, т.к. я только начал учиться писать на Паскале:
Требуется подсчитать количество цифр больших 9, у натурального числа N в шестнадцатиричной
системе счисления.

[klem4]

Кажись поправил

пс защиты от дурака нету. и буквы бльшие надо вводить, ну если надо, можно сделать патч )

Сообщение отредактировано: klem4 - 13.12.2005 21:11

[Vaso]

Помогите найти ошибку в программе:
Требуется вычислить сумму ряда с погрешностью e=0.0001 в окрестности точки 0,
т.е. при |x|<1; y=x/2-x*x/(2*2*2)+x*x*x/(2*2*2*3)-x*x*x*x/2*2*2*2*4+....
Сама программа у меня получилась такая:

Код

const e=0.0001;
Var  y,slag,x,p:real;
         k,b:byte;
Begin
repeat
writeln ('Vvedite |x|<1);
readln (x);
until abs(x)<1;
y:=0;
p:=-1;
b:=1;
k:=0;
slag:=x/2;
While abs(slag)>=e do
begin
k:=k+1;
b:=b*1;
p:=-p*x;
slag:=p/(b*k);
y:=y+slag;
writeln ('znachenie slag na etapax ',slag:6:4);
end;
writeln ('Znachenie summi ',y:6:4);
end.

При малых числах все верно вычисляет, но при 0.9, 0.8 выдает ошибку деления на 0.
Не могу понять, где она видит деление на 0 при вычислении slag.


Спасибо всем за помощь с первой задачей!