Технический форум - Помогите с блок-схемой Pascal

Технический форум (http://www.tehnari.ru/)

- Delphi, Kylix and Pascal (http://www.tehnari.ru/f43/)

- - Помогите с блок-схемой Pascal (http://www.tehnari.ru/f43/t262621/)

Memphis4

24.01.2019 13:47

Помогите с блок-схемой Pascal

Вложений: 1

Ребят помогите с этим заданием

Vladimir_S

24.01.2019 14:07

Так. "Блок-схема Pascal" — это что-то новенькое. Вы уж определитесь, Вам блок-схему или программу на Паскале? С программой могу помочь, блок-схемами не занимаюсь.

Vladimir_S

24.01.2019 14:37

Ну вот Вам программа:

Код:

Const

 Eps=0.0001;



Var

 x,y:Real;

 i:Byte;



Function S(z:real):real;

var

 a,T:real;

 n:byte;

begin

 a:=3.0/(z*2);

 n:=2;

 T:=a;

 Repeat

  a:=a/((n-1)*(n+1));

  Inc(n);

  a:=a*(n-1)*(n+1)/(z*n);

  T:=T+a;

 Until Abs(a)<Eps;

 S:=T;

end;



Begin

 Writeln('  x         y');

 for i:=4 to 20 do

  begin

   x:=i/2;

   y:=S(x);

   Writeln(x:4:1, y:12:5);

  end;

 Readln

End.

Часовой пояс GMT +4, время: 23:42.