|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
18.01.2012, 19:21 | #1 (permalink) |
Новичок
Регистрация: 18.01.2012
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Сумма бесконечного ряда, Pascal
Вычислить сумму бесконечного ряда, используя подпрограммы типа функция. вот программа uses crt; var x,eps,s,y:real; f,i:integer; begin read(x,eps); writeln ('номер',' член ряду',' поточна сума'); s:=0;y:=1;i:=1;f:=2; while abs(y)>eps do begin y:=((cos(i)*sin(i)+(i*x))/(f+exp(i+x))); s:=s+y; writeln (i:3,y:12:6,s:12:6); i:=i+1;f:=f*i end; writeln ('остаточна сума = ',s:12:6); end. сделайте правельно очень прошу, сказали что семечки) |
18.01.2012, 19:21 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Упрощу вам решение проблемы - вот список аналогичных обсуждений Последовательность чисел. Паскаль Pascal RGR Бесконечная загрузка Windows Напишите функцию, преобразующую символы табуляции в последовательность из n пробелов |
18.01.2012, 19:49 | #2 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Во-первых, за каким бесом Вы полезли в чужую тему, да еще ту, где обсуждается программа на QuickBasic? А во-вторых, будьте так любезны ПОЛНОСТЬЮ выложить задание. Тогда и разбираться будем.
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|