Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Задача по циклу while

Автор: kvadrat 3.05.2008 3:37

Помогите пожалуйсто решить вот такую задачу с помощью цикла while (условие на рисунке)
Прикрепленное изображение

Вот поглядите, я её попытался решить но она работает неправильно.

program vail;
var s,u,i,n,n1:integer;
begin
writeln('vvedite n1');
while n>1 do n1
begin
writeln('vvedite i');
readln(i);
u:=(ln(i+2)*ln(10))/(i*i*i);
s:=s+u;
end;
writeln(s);
writeln(n);
end.

Автор: Ozzя 3.05.2008 10:16

Решать ты ее НЕ пытался. Так как даже не компилировал.

Автор: kvadrat 3.05.2008 17:53

Серьёзно для меня эта задача сложная поэтому я прошу у вас помощи.

Автор: kvadrat 15.05.2008 0:11

Всем спасибо за помощь еле как решил и сдал.
каму интересно решение, вот оно:

program qwerqwre;
uses crt;
var z,n,i:integer;u,s:real;
begin
clrscr;
i:=1;
u:=ln(i+2)*ln(10)/(i*i*i);
s:=0;
while u>0.000001 do
begin
s:=s+u;
inc(i);
u:=ln(i+2)*ln(10)/(i*i*i);
end;
writeln('S=',s:5:5);
writeln('n=',i);
end.