|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
17.04.2013, 17:36 | #1 (permalink) |
Member
Регистрация: 17.04.2013
Сообщений: 13
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Программирование алгоритмов итерационной циклической структуры
|
17.04.2013, 17:36 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Пролистайте данные темы, это не займет много времени Программирование алгоритмов линейной структуры Программирование алгоритмов разветвляющейся структуры Программирование алгоритмов циклической структуры Разработка циклической программы с неизвестным количеством повторений в Pascal |
17.04.2013, 19:37 | #2 (permalink) |
Member
Регистрация: 29.01.2013
Сообщений: 91
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 565
|
В роде бы так но лучше если проверите (на matlab matcad Excel и т.д).
Код:
Program IF1; var Fx:real; x:real; fac:real; step:real; proiz:real; Hlenriada:real; i:integer; begin i:=1; X:=-2.2; Hlenriada:=1; Fx:=1; fac:=1; step:=1; proiz:=1; while abs(Hlenriada)>=0.0000000001 do begin proiz:=proiz*i; inc(i,3); fac:=fac*(i-1)*(i-2)*(i-3); step:=step*x*x*x; Hlenriada:=(proiz/fac)*step; Fx:=Fx+Hlenriada; end; Writeln('Ответ F(x):=',Fx); end. |
17.04.2013, 19:55 | #3 (permalink) |
Member
Регистрация: 17.04.2013
Сообщений: 13
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
снова спасибо)
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|