Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 02.04.2013, 18:43   #1 (permalink)
БаирАбушеев
Member
 
Регистрация: 02.04.2013
Сообщений: 15
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Программирование алгоритмов циклической структуры

помогите сделать работу по программированию алгоритмов циклической структуры, срочно надо!
bsl_1.jpg
bsl_2.jpg
БаирАбушеев вне форума   Ответить с цитированием

Старый 02.04.2013, 18:43
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Аналогичные вашей темы участники форума создавали ранее, прочитайте их

Разработка циклической программы с неизвестным количеством повторений в Pascal
Разработка циклической программы с неизвестным количеством повторений
Составить алгоритм циклической структуры в Visual Studio C++
Программирование разветвляющихся алгоритмов

Старый 02.04.2013, 18:44   #2 (permalink)
БаирАбушеев
Member
 
Регистрация: 02.04.2013
Сообщений: 15
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

забыл, еще надо блок-схему сделать
БаирАбушеев вне форума   Ответить с цитированием
Старый 02.04.2013, 19:57   #3 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Цитата:
Сообщение от БаирАбушеев Посмотреть сообщение
забыл, еще надо блок-схему сделать
Вы еще кое-что "забыли" - а именно указать язык программирования. А у нас, знаете ли,
Vladimir_S вне форума   Ответить с цитированием
Старый 03.04.2013, 07:54   #4 (permalink)
БаирАбушеев
Member
 
Регистрация: 02.04.2013
Сообщений: 15
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

pascal,пожалуйста
БаирАбушеев вне форума   Ответить с цитированием
Старый 03.04.2013, 17:05   #5 (permalink)
БаирАбушеев
Member
 
Регистрация: 02.04.2013
Сообщений: 15
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

:t ehnari_ru_837::teh nari_ru_837::tehna ri_ru_837::tehnari _ru_837::tehnari_r u_837::tehnari_ru_ 837:
БаирАбушеев вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Старый 03.04.2013, 17:07   #6 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Не кричите. Возможно, вечером посмотрю. Мне кое-что в первой формуле не нравится, проверить нужно.
Vladimir_S вне форума   Ответить с цитированием
Старый 03.04.2013, 17:09   #7 (permalink)
БаирАбушеев
Member
 
Регистрация: 02.04.2013
Сообщений: 15
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

спасибо, мне просто уже завтра сдавать
БаирАбушеев вне форума   Ответить с цитированием
Старый 03.04.2013, 17:13   #8 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

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

P.S. И сразу предупреждаю: блок-схемами не занимаюсь.
Vladimir_S вне форума   Ответить с цитированием
Старый 03.04.2013, 19:44   #9 (permalink)
БаирАбушеев
Member
 
Регистрация: 02.04.2013
Сообщений: 15
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

я уже готов заплатить за свою тупость
БаирАбушеев вне форума   Ответить с цитированием
Старый 03.04.2013, 20:09   #10 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

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

Код:
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.
Vladimir_S вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




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

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.