Программирование алгоритмов циклической структуры

[БаирАбушеев]

Программирование алгоритмов циклической структуры

помогите сделать работу по программированию алгоритмов циклической структуры, срочно надо!:tehnari_ru_837:

 

[БаирАбушеев]

забыл, еще надо блок-схему сделать

 

[Vladimir_S]

забыл, еще надо блок-схему сделать

Вы еще кое-что "забыли" - а именно указать язык программирования. А у нас, знаете ли, :telepat:

 

[БаирАбушеев]

pascal,пожалуйста

 

[БаирАбушеев]

:tehnari_ru_837::tehnari_ru_837::tehnari_ru_837::tehnari_ru_837::tehnari_ru_837::tehnari_ru_837::tehnari_ru_837::tehnari_ru_837::tehnari_ru_837::tehnari_ru_837::tehnari_ru_837::tehnari_ru_837::tehnari_ru_837::tehnari_ru_837::tehnari_ru_837::tehnari_ru_837::tehnari_ru_837::tehnari_ru_837::tehnari_ru_837::tehnari_ru_837::tehnari_ru_837:

 

[Vladimir_S]

Не кричите. Возможно, вечером посмотрю. Мне кое-что в первой формуле не нравится, проверить нужно.

 

[БаирАбушеев]

спасибо, мне просто уже завтра сдавать

 

[Vladimir_S]

спасибо, мне просто уже завтра сдавать

А будет Вам вперед наука - ответственно относиться к формулировке заданий. Если бы из Вас не пришлось клещами вытаскивать информацию о языке программирования, возможно сегодня бы уже имели решение. А так...

P.S. И сразу предупреждаю: блок-схемами не занимаюсь.

 

[БаирАбушеев]

я уже готов заплатить за свою тупость:tehnari_ru_093:

 

[Vladimir_S]

Пожалуйста, получите:

Const
 n=30;
 x=20.0;
 Eps=1E-9;
Var
 i:Word;
 Q,a,S:Extended;
Begin
 Q:=1;
 For i:=1 to n do
  Q:=Q*(x/2)/i;
 a:=1;
 S:=a;
 i:=0;
 Repeat
  Inc(i);
  a:=-a*Sqr(x/2)/i/(n+i);
  S:=S+a;
 Until Abs(Q*a)<Eps;
 S:=S*Q;
 Writeln('Result: ',S:0:15);
 Readln
End.

Const
 x=0.12;
 Eps=1E-4;
Var
 i:Word;
 a,S:Real;
Begin
 a:=1;
 S:=a;
 i:=0;
 Repeat
  Inc(i);
  a:=a/Cos(Pi/3*(i-1))*Cos(Pi/3*i)*x/i;
  S:=S+a;
 Until Abs(a)<Eps;
 Writeln('Result: ',S:0:8);
 Readln
End.

 

[БаирАбушеев]

спасибо огромное!!!спасли мне жизнь!