Функции в паскале

[swedalena]

Помогите найти ошибку:
Program Pr_4;
uses crt;
type
array1=array[1..10] of real;
function sum (n1,n2:integer;k1,k2:real;y:array1) :real;
var
s:real;
i:integer;
begin
s:=0;
for i:=n1 to n2 do
s:=s+y[i];
s:=k1*s;
end;
const
y:array1=(1,2,7,3,4,9,5,6,7.05,8,9, 10);
c=3;
var
s1,r1,r2:real;
begin
clrscr;
r1:=(2,1,10,1,y);
r2:=(3,2,10,1,y);
s1:=c*c*r1+exp(3*ln(c))*r2;
writeln('s1' , s1:8:3);
end.

[Roof]

y:array1=(1,2,7,3,4,9,5,6,7.05,8,9, 10);

тут многовато элементов, у тебя по условию всего 10

r1:=(2,1,10,1,y);
r2:=(3,2,10,1,y);

это как понять?

и пожалуйста пользуйся при вставке кода на форум специальным оформлением - кнопка # вверху над редактором сообщения

[swedalena]

r1:=(2,1,10,1,y);
r2:=(3,2,10,1,y)
это не нужно?

[ROMA2PVT]

я в упор невижу применение написанной функции в программе.

[swedalena]

спасибо за помощь

[Roof]

у тебя r1 и r2 - real, а ты им присваиваешь что-то совсем не real.

[Roof]

2 ROMA2PVT - ну и что нету - значит не нада

[ROMA2PVT]

ага она просто так для красоты. Ну неплохо было бы узнать формулировку задания для начала.

[Roof]

2 ROMA2PVT - ну да, это самое важное для проверки правильности. А я так синтаксис только проверил.

[ROMA2PVT]

http://programmersforum.ru/showthread.php?t=101878
<<offtop>>
заче же постить по 15 раз.