Вычисление суммы - проверьте пожалуйстa!

[Naposaram]

Всем привет =) наконец то последняя программка на паскале =D УРЯЯЯ!!!
Вот, нашел в сети примитивный пример и по образцу сделал прогу =)
Условие:

: Выполнить программу, использующую подпрограмму - функцию.
Вычислить значение величины, содержащей несколько однотипных сумм. Для вычисления сумм написать функцию пользователя.

Помогите вот в этих вопросах:
1) может ли быть "предел" у сумм разный или он и должен быть разный? наверно надо сделать отдельный ввод "m" для каждой суммы?
2) правильно ли я написал в третьей функции "m+2"?

program p1;
uses crt;

var m,k,i,a:integer;
    y:single;

function s1(): single;
var s:single;
    x:integer;
begin
 s:=0;
  for x:=1 to m do
   s:=s+k*k*k+2;
   s1:=s;
end;

function s2(): single;
var s:single;
    x:integer;
begin
 s:=0;
  for x:=1 to m do
   s:=s+i*i*i+3;
   s2:=s;
end;

function s3(): single;
var s:single;
    x:integer;
begin
 s:=0;
  for x:=3 to m+2 do
   s:=s+5*(k*k*k)+a;
   s3:=s;
end;

begin
 clrscr;
 writeln ('m='); readln (m);
 writeln ('k='); readln (k);
 writeln ('i='); readln (i);
 writeln ('a='); readln (a);
 y:=(2*s1+a*s2)/(6+s3);
 writeln ('y = ',y);
 readln;
end.

[spein]

Если не ошибаюсь, в Паскаль функция не может быть без параметров.

[Stilet]

может ли быть "предел" у сумм разный или он и должен быть разный? наверно надо сделать отдельный ввод "m" для каждой суммы?

Может. Я бы сделал так: Для каждой суммы определил свои параметры. К примеру

function s1(a,b:integer): single;
var s:single;
    x:integer;
begin
 s:=0;
  for k:=a to b do
   s:=s+k*k*k+2;
   s1:=s;
end;

Ну и вызов:

y:=(2*s1(1,m)...;

Если не ошибаюсь

Ошибаешся, впрочем для автора стоит прислушаться к твоим словам.

2) правильно ли я написал в третьей функции "m+2"?

Сойдет, но всетки параметризируй функции.

[Serge_Bliznykov]

я бы тоже пошёл по пути, предложенном Stilet!

только я бы добавил в параметры и множитель первого элемента выражения и значение второго элемента выражения.
Это позволит использовать одну и ту же универсальную функцию вместо трёх разных.
примерно так:

function SumK(a, b, MnogK, AddConst : LongInt) : LongInt;
var k, s : longint;     
begin 
  s := 0;
  for k:=a to b do 
    s := s + (MnogK * k * k * k + AddConst);
  SumK := s;
end;

....
var y : double;

  тут описание переменных, ввод m, a
Обратите внимание, что во втором ряду суммируется L - по всей видимости его тоже надо ввести!

y := (2.0 * SumK(1, m, 1,  2) + a * SumK(1,m, 0, L*L*L+3) ) /
        ( 6 + SumK(3, m+2, 5, a) );

[Naposaram]

Сообщение от Serge_Bliznykov

только я бы добавил в параметры и множитель первого элемента выражения и значение второго элемента выражения.
Это позволит использовать одну и ту же универсальную функцию вместо трёх разных.

Учтем =)

Вот только мне немного не понятна эта запись:

SumK(1, m, 1, 2)

Вызов функции, а в скобках это зачем писать?

Пойду пока теорию поюзаю по функциям =)

[Serge_Bliznykov]

Вызов функции, а в скобках это зачем писать?

в скобках - это параметры, которые мы в эту функцию передаём.

Пойду пока теорию поюзаю по функциям =)

вот это точно Вам не помешает!