задача на подпрограмму в Pascal - вычислить импульс и кинетическую энергию точек

[mishammm]

Сама задачка:
вычислить импульс (p -формулу я прикрепил) и кинетическую энергию (t -тоже приккрепил к теме) системы n=10 материальных точек заданными массивами своих масс и скоростей M (10) = (1,2,3,4,5,6,7,8 , 9,10) U(10)= (2,3,4,5,6,7,8,9)
Вот код:

program laba9_3;
const n=10;
type 
     massiv =  array[1..2,1..10] of real;
procedure vvid_mas(var r1:massiv ; n1:integer); 
var i:integer;
begin
writeln('введіть елементи массиву');
For i:=1 to 2 do 
begin
For j:=1 to 10 do
read(r1[i,j]);
end;
end;
procedure vuvid_massivy(r2:massiv; n2:integer);
var i:integer;
begin
writeln('вивід елементів');
for i:=1 to 2 do
begin
for j:=1 to 10 do begin
write(r2[i,j])
end;
end;
procedure impuls(r:massiv ; var m,v:real);
var 
   m,i:integer;
   p:real;
   begin
   For i:=1 to m do begin
   p:=p+m+v;
   end;
   procedure kinetichna(r:massiv; var m,v:real);
   var 
      t:real;
      n,i:integer;
      For i:=1 to n do begin
      t:=t+m+sqr(v);
      end;
      t*1/2;
      End;
      procedure vuvid_res
      begin
      writeln('impuls',p);
      writeln('kinetihna',t);
      end;

не могу разобраться с циклом в impuls - не знаю правильно ли написал. помогите плиз

[Mad_Cat]

procedure impuls(r:massiv ; var m,v:real);

зачем тут m и v??

procedure impuls(r1:massiv ; n1:integer;Res:Real);
var i:integer;
begin
Res:=0;
for  i:=1 to n1 do
Res:=res+r[i,1]*r[i,2];
end;

с энергией аналогично практически

[mishammm]

procedure impuls(r1:massiv ; n1:integer; Res:Real);
var 
   i:integer;
   begin
   Res:=0;
   For i:=1 to n1 do begin
   res:=res+r[i,1]*r[i,2];
   end;
   procedure kinetichna(r:massiv; n2:integer; res2:real;);
   var 
      
      i:integer;
      res2:=0;
      For i:=1 to n2 do begin
      res2:=res2+r[i,1]+sqr(r[i,2]);
      end;
      res2:=res2*1/2;
      End;

написал так как вы сказали но ошибка на строке:

procedure impuls(r1:massiv ; n1:integer; Res:Real);

Встречено 'procedure', а ожидался оператор

[SaLoKiN]

А оно вообще работало?

procedure impuls(r1:massiv ; n1:integer; Res:Real);
var 
   i:integer;
   begin
   Res:=0;
   For i:=1 to n1 do begin
   res:=res+r[i,1]*r[i,2];
   end;
End;// для процедуры

[mishammm]

procedure impuls(r1:massiv ; n1:integer; Res:Real);
var 
   i:integer;
   begin
   Res:=0;
   For i:=1 to n1 do begin
   res:=res+r[i,1]*r[i,2];
   end;
   End;

тоже самое

[mishammm]

не понимаю данная строка написана правильно не понимаю почему там ошибка?

[Mad_Cat]

бегинов -3
эндов - 2
ничего не говорит?

[mishammm]

доставил 1 End; перед procedure impuls вроде бы нормально

[Mad_Cat]

доставил 1 End; перед procedure impuls вроде бы нормально

Лучше бы begin убрал из цикла по j
P.S работает верно? (в чем я сомневаюсь)

[mishammm]

program laba9_3;
const n=10;
type 
     massiv =  array[1..2,1..10] of real;
procedure vvid_mas(var r1:massiv ; n1:integer); 
var i:integer;
begin
writeln('введіть елементи массиву');
For i:=1 to 2 do 
begin
For j:=1 to 10 do
read(r1[i,j]);
end;
end;
procedure vuvid_massivy(r2:massiv; n2:integer);
var i:integer;
begin
writeln('вивід елементів');
for i:=1 to 2 do
begin
for j:=1 to 10 do 
write(r2[i,j])
end;
end;
procedure impuls(r1:massiv; n1:integer; Res:Real);
var 
   i:integer;
   begin
   Res:=0;
   For i:=1 to n1 do begin
   res:=res+r[i,1]*r[i,2];
   end;
   End;
   procedure kinetichna(r:massiv; n2:integer; res2:real);
   var 
      
      i:integer;
      res2:=0;
      begin
      For i:=1 to n2 do begin
      res2:=res2+r[i,1]+sqr(r[i,2]);
      end;
      res2:=res2*1/2;
      End;
      procedure vuvid_res;
      begin
      writeln('impuls',p);
      writeln('kinetihna',t);
      end;
      End.

убрал begin , теперь в самом конце кода пишет Встречено 'End', а ожидалось begin ему я так понял еще что то надо написать в програме? может вызвать процедуру? ))