помогите решить задачу по паскалю! - Паскаль, Turbo Pascal, PascalABC.NET

...Оленька... · 30.11.2008, 13:22

по ссылке http://kit.zsu.zp.ua/iLec/1sem/PROGR...pas/Lr2pas.htm Циклы с неизвестным числом повторений №14

alex_fcsm · 30.11.2008, 16:14

Код:

var i:integer;
    sum,x,eps:real;
begin
writeln('Input eps');
readln(eps);
i:=2;sum:=0;
repeat
x:=1/(i*(i-1));
sum:=sum+x;
inc(i);
until x<=eps;
writeln(sum:10:10);
end.

...Оленька... · 01.12.2008, 10:59

Большое спасибо!А поможешь составить блок схему!?пожалуйста заранее спасибо!

alex_fcsm · 01.12.2008, 12:05

На сайте неоднакратно поднимался этот вопрос. Попробуйте эту программу

...Оленька... · 06.12.2008, 17:49

я не пойму что с ней надо делать обьяснишь?

30.11.2008, 13:22	#1
...Оленька... Пользователь Регистрация: 08.11.2008 Сообщений: 32	помогите решить задачу по паскалю! по ссылке http://kit.zsu.zp.ua/iLec/1sem/PROGR...pas/Lr2pas.htm Циклы с неизвестным числом повторений №14

30.11.2008, 16:14	#2
alex_fcsm Участник клуба Регистрация: 10.11.2008 Сообщений: 1,502	Код: `var i:integer; sum,x,eps:real; begin writeln('Input eps'); readln(eps); i:=2;sum:=0; repeat x:=1/(i*(i-1)); sum:=sum+x; inc(i); until x<=eps; writeln(sum:10:10); end.` Нормальное состояние техники - нерабочее, все остальное частный случай.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Помогите решить задачи по Паскалю!	Brizon	Паскаль, Turbo Pascal, PascalABC.NET	1	09.06.2008 17:55
Помогите решить задачи по Паскалю!	Brizon	Паскаль, Turbo Pascal, PascalABC.NET	9	06.05.2008 20:02

01.12.2008, 10:59	#3
...Оленька... Пользователь Регистрация: 08.11.2008 Сообщений: 32	Большое спасибо!А поможешь составить блок схему!?пожалуйста заранее спасибо!

06.12.2008, 17:49	#5
...Оленька... Пользователь Регистрация: 08.11.2008 Сообщений: 32	я не пойму что с ней надо делать обьяснишь?