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

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

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

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

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

умные люди говорят, что здесь дело тёмное-рекурсии...
SunCHO вне форума Ответить с цитированием
Старый 02.05.2007, 22: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 вне форума Ответить с цитированием
Ответ
Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Сумма ряда 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 01:58
Паскаль. Сумма бесконечного ряда Tream Помощь студентам 4 13.10.2007 23:42