|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
02.05.2007, 18:20 | #1 |
Регистрация: 02.05.2007
Сообщений: 3
|
Сумма ряда на ЭВМ и вычисленная аналитически, программы на языке Pascal
Задача:
Составить 2 программы на языке Pascal (одну не используя оператор цикла), другую используя соответствующий оператор цикла. Сравнить полученное ЭВМ значение суммы ряда со значением, вычисленным аналитически. Найти сумму 50 членов ряда: S=2+2/2*3+2/2^2*5+2/2^3*7 Скажу огромное спасибо тому, кто хоть подскажет русло в котором думать надо!!! Последний раз редактировалось RSLoader; 03.05.2007 в 01:17. |
02.05.2007, 18:49 | #2 |
Регистрация: 02.05.2007
Сообщений: 3
|
умные люди говорят, что здесь дело тёмное-рекурсии...
|
02.05.2007, 22:37 | #3 |
Форумчанин
Регистрация: 16.04.2007
Сообщений: 298
|
uses math;
type TForm1 = class(TForm) ... private function RowNum(num: integer); ... function TForm1.RowNum(num: integer); begin if Num > 0 then RowNum := (2*num + 1)/(Exp(Ln(2)*num)) + RowNum(num - 1) else RowNum := 0; end; procedure TForm1.Button1Click(Sender: TObject); begin Label1.Caption := FloatToStr(2 + RowNum(50)); end; procedure TForm1.Button2Click(Sender: TObject); var i: integer; r: real; begin r := 0; for i := 0 to 50 do r := r + (2*i + 1)/(Exp(Ln(2)*i)); Label2.Caption := FloatToStr(1 + r); end;
Не надо ничего усложнять. Все достаточно тривиально.
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Сумма ряда | Sova123456 | Помощь студентам | 8 | 11.06.2010 17:10 |
Формула на языке Pascal | ViNcHeStEr | Помощь студентам | 9 | 03.07.2008 14:32 |
Программирование на алгоритмическом языке Turbo Pascal | Дима82 | Помощь студентам | 28 | 10.05.2008 10:19 |
3. Написать программы на языке программирования С++ или Pasckal: | НиколаМГВРК | Фриланс | 6 | 17.02.2008 00:58 |
Паскаль. Сумма бесконечного ряда | Tream | Помощь студентам | 4 | 13.10.2007 23:42 |