"Datormācība. Skaitlisko aprēķinu realizācijas metodes ...

x[i]:=random(10)+1;
end;
procedure mas_izvade(var x: array of
integer; y: integer);
begin
for i:= 1 to y do write(x[i]:4);
writeln;
end;
function summa(var x: array of integer;
y: integer): integer;
var sum:integer;
begin sum:=0;
for i:=1 to y do
sum:= sum+x[i];
summa:=sum;
end;
begin ClrScr;
randomize;
write('Ievadi masiva A elementu skaitu
n= '); readln (n);
mas_aizpilde (A,n);
mas_izvade(A,n);
writeln ('Masiva A elementu summa ir:',
Summa(A,n));
write ('Ievadi masiva B elementu skaitu:
'); readln(m);
Mas_aizpilde (B,m);
Mas_izvade (B,m);
writeln ('Masiva B elementu summa ir: ',
Summa(B,m));
if summa (A,n) > summa (B,m) then
sīvs un tā elementu skaits.}
{procedūra, kura izvada viendimensiju
masīva elementu vērtības: no programmas
galvenās daļas uz procedūru tiek
nodoti divi mainīgie - masīvs un tā elementu
skaits}
{viendimensiju masīva elementu vērtību
aprēķina funkcija }
{no programmas galvenās daļas uz funkciju
tiek nodoti divi mainīgie - masīvs
un tā elementu skaits, bet pēc funkcijas
izpildes programmas galvenajai daļai
tiek nodots vesels skaitlis (summa) -
funkcijas lokālais mainīgais, kura vērtība
nav pieejama programmas galvenajai
daļai}
{sākas pamatprogramma}
{ izvēlas parametra n vērtību}
{izsauc procedūru, nododot tai divus
mainīgos –masīvu A nodod kā mainīgo
ar vērtību, bet masīva elementu skaitu n
nodod tikai kā mainīgā vērtību. Masīva
A vērtības piešķirs procedūras mainīgajam
x, bet masīva elementu skaita n vērtību
piešķirs mainīgajam y. Pēc procedūras
izpildes masīva x vērtības tiks piešķirtas
masīvam A, bet mainīgā n vērtība
netiks izmainīta. {izsauc procedūru, kas
izvada uz ekrāna masīva A vērtības}
{izsauc funkciju summa, kas atgriež
masīva A elementu summu, kuru
writeln operators izvada uz monitora
ekrāna.}
{analogas manipulācijas tiek veiktas arī
ar masīvu B}
{salīdzina masīvu elementu summas
(funkcijas summa(A,n) un summa(B,m)}
49