|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
02.04.2013, 18:43 | #1 (permalink) |
Member
Регистрация: 02.04.2013
Сообщений: 15
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Программирование алгоритмов циклической структуры
|
02.04.2013, 18:43 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Аналогичные вашей темы участники форума создавали ранее, прочитайте их Разработка циклической программы с неизвестным количеством повторений в Pascal Разработка циклической программы с неизвестным количеством повторений Составить алгоритм циклической структуры в Visual Studio C++ Программирование разветвляющихся алгоритмов |
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:13 | #8 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
А будет Вам вперед наука - ответственно относиться к формулировке заданий. Если бы из Вас не пришлось клещами вытаскивать информацию о языке программирования, возможно сегодня бы уже имели решение. А так...
P.S. И сразу предупреждаю: блок-схемами не занимаюсь. |
03.04.2013, 20:09 | #10 (permalink) |
Специалист
Регистрация: 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. |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|