Итеративные циклы с предусловием

[Fitch573]

Буду очень благодарен, если напишите программный код. А если нарисуете блок схему - тогда вообще буду должен до конца жизни.

[Stilet]

Примерно так:

MODULE m;
IMPORT StdLog;

PROCEDURE do*;
VAR l,i,k:INTEGER;  a,e:REAL;
BEGIN
 a:=1;i:=1;e:=0;
 WHILE (a-e)>0.0001 DO
  e:=a;
  a:=a+1/(i*i);
  INC(i);
 END;
 StdLog.Clear;
 StdLog.RealForm(a,5,10,0,' ');StdLog.Ln;
 StdLog.RealForm(3.14*3.14/6-1,5,10,0,' ');StdLog.Ln;
END do;

END m.

С блок-схемой извини, не умею их делать.

[Fitch573]

Спасибо большое. А это, если не секрет, на каком языке?

[Stilet]

Оберон. Компонентный Паскаль, если точнее.