Вычислить импульс и кинетическую энергию системы материальных точек

@Misha_Beginner · Регистрация: 12.09.2013

Author24 — интернет-сервис помощи студентам

Сама задачка:
вычислить импульс (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)
$https://www.cyberforum.ru/cgi-bin/latex.cgi?P=\sum_{i=1}^{m}{m}_{i};T=\frac{1}{2}\sum_{i=1}^{n}{m}_{i}{v}_{i}^2$ (P- импульс, T-кинетическая энергия)
Как писал я (код большой):

Pascal

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 n1 do 
read(r1[u,v]);
end;
procedure vuvid_massivy(r2:massiv; n2:integer);
var i:integer;
begin
writeln('вивід елементів');
for i:=1 to n2 do
write(r2[u,v])
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; 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;

помогите если что неправильно в программе исправить ошибки! Вообще незнаю правильно ли алгоритм составил

@Puporev · 08.11.2013, 14:31

Pascal

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

	08.11.2013, 14:31

Опции темы