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

Страница 1 из 2

Показывать 40 сообщений этой темы на одной странице

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

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Программирование алгоритмов циклической структуры (http://www.tehnari.ru/f41/t87081/)

БаирАбушеев

02.04.2013 18:43

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

Вложений: 2

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

БаирАбушеев

02.04.2013 18:44

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

Vladimir_S

02.04.2013 19:57

Цитата:

Сообщение от БаирАбушеев (Сообщение 890320)

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

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

БаирАбушеев

03.04.2013 07:54

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

БаирАбушеев

03.04.2013 17:05

:tehnari_ru_837::tehnari_ru_837::tehnari_ru_837::t ehnari_ru_837::tehnari_ru_837::tehnari_ru_837::teh nari_ru_837::tehnari_ru_837::tehnari_ru_837::tehna ri_ru_837::tehnari_ru_837::tehnari_ru_837::tehnari _ru_837::tehnari_ru_837::tehnari_ru_837::tehnari_r u_837::tehnari_ru_837::tehnari_ru_837::tehnari_ru_ 837::tehnari_ru_837::tehnari_ru_837:

Vladimir_S

03.04.2013 17:07

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

БаирАбушеев

03.04.2013 17:09

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

Vladimir_S

03.04.2013 17:13

Цитата:

Сообщение от БаирАбушеев (Сообщение 890856)

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

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

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

БаирАбушеев

03.04.2013 19:44

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

Vladimir_S

03.04.2013 20:09

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

Код:

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.

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

Страница 1 из 2

Показывать 40 сообщений этой темы на одной странице