разработка программ с использованием циклов с неизвестным числом повторений(блок-схема)

@Stellar_light · Регистрация: 13.10.2010

Author24 — интернет-сервис помощи студентам

Помогите пожалуйста составить блок-схему к программе:

Pascal

Program lab4;
uses crt;
Const t=0.01;
Var p,n:integer;
s,y:real;
Begin
    clrscr;
    S:=0;
    p:=-1;
    n:=1;
    repeat
         y:=(2*n+1)/(n*n*n*(n+1));
         S:=s+y*p;
         n:=n+1;
         p:=-p;
    until abs (y)<=t; Writeln('repeat - until:');
    Writeln('Сумма=', s:9:7,' n=',n:2);
     S:=0;
    p:=1;
    n:=1;
    y:=1;
    WHILE abs(y)>t do
    Begin
         y:=(2*n+1)/(n*n*n*(n+1));
         S:=s+y*p;
         n:=n+1;
         p:=-p;
         end;
         Writeln ('While- do:');
         Writeln ('Сумма=', s:9:7,' n=',n:2);
         readln;
         end.

@Stellar_light · 05.01.2011, 15:15 **[ТС]**

уже не надо

@Stellar_light 0 / 0 / 0 Регистрация: 13.10.2010 Сообщений: 12
	05.01.2011, 15:15 [ТС]	2
	уже не надо 0