Процедуры и функции пользователя в Паскале

[Alex1991]

Тема работы: Процедуры и функции пользователя в Паскале.
Цель работы: Овладение навыками создания подпрограмм типа "процедура" и "функция". Изучение механизма обмена значениями.
Постановка задания:
1) Вычислить сумму бесконечного ряда, используя подпрограммы типа "функция".
2) Обработать массив, используя подпрограммы типа "процедура".

[Кагбе_Прогер]

1)вычислить сумму бесконечного ряда невозможно, т.к. он бесконечен, но если с клавиатуры будет вводиться некое N, являющееся старшим членом этого ряда(арифметической прогрессии), и A, являющееся младшим членом этой прогрессии, то код может выглядеть так:

program sr;
uses crt;
var
q,w:integer;
 function summa(a,n:integer):real;
 var
 s:real;i:integer;
 begin
 for i:=a to n do
 s:=s+i;
 summa:=s;
 end;
begin
clrscr;
readln(q,w);{здесь вводишь младший и старший члены прогресссии}
writeln(summa(q,w):4:0);
readkey;
end.

2)Для того чтобы обработать массив, нужно знать как его требуется обработать(упорядочить например)

[danekne]

Сообщение от Кагбе_Прогер

1)вычислить сумму бесконечного ряда невозможно, т.к. он бесконечен

Чушь! Сумма сходящегося числового ряда без проблем считается с заданной погрешностью. Учите мат анализ, милейший

[Кагбе_Прогер]

честно говоря не знал об этом, прошу прощения.
с массивом-то я не ошибся?

[danekne]

Сообщение от Кагбе_Прогер

честно говоря не знал об этом, прошу прощения.
с массивом-то я не ошибся?

)))) Безусловно - нет

[Кагбе_Прогер]

=))) а как найти сумму членов бесконечного ряда? аж интересно стало

[danekne]

Сообщение от Кагбе_Прогер

=))) а как найти сумму членов бесконечного ряда? аж интересно стало

Ммм... Не сочтите за флуд. Сходящийся числовой ряд имеет предел, который и называется суммой этого ряда. Извините за неточность определения, учил мат. ан. пять лет назад. Паскаля под рукой нету - есть пример на VBA похожей задачи. Если интересует - выложу

[Кагбе_Прогер]

VBA я не знаю, но думаю алгоритмы-то схожи. пожалуйста, если не затруднит...=)

[danekne]

Хорошо. Вот пример. Будут вопросы - стучи 386765845