Форум программистов
 
О проблемах, например, с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail


Ответ
 
Опции темы
Старый 02.05.2007, 17:20   #1
SunCHO
 
Регистрация: 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 в 00:17.
SunCHO вне форума Ответить с цитированием
Старый 02.05.2007, 17:49   #2
SunCHO
 
Регистрация: 02.05.2007
Сообщений: 3
По умолчанию

умные люди говорят, что здесь дело тёмное-рекурсии...
SunCHO вне форума Ответить с цитированием
Старый 02.05.2007, 21:37   #3
Shuraken
Форумчанин
 
Аватар для Shuraken
 
Регистрация: 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;
Не надо ничего усложнять. Все достаточно тривиально.
Shuraken вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Сумма ряда Sova123456 Помощь студентам 8 11.06.2010 16:10
Формула на языке Pascal ViNcHeStEr Помощь студентам 9 03.07.2008 13:32
Программирование на алгоритмическом языке Turbo Pascal Дима82 Помощь студентам 28 10.05.2008 09:19
3. Написать программы на языке программирования С++ или Pasckal: НиколаМГВРК Фриланс 6 17.02.2008 00:58
Паскаль. Сумма бесконечного ряда Tream Помощь студентам 4 13.10.2007 22:42


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS
Здесь нужно купить рекламу за 7 тыс руб в месяц! )
пишите сюда - alarforum@yandex.ru
ИКС 840