Використання процедур мовою Pascal

 Процедури  на мові Pascal

Задача1 . Дано два набори дійсних чисел: (а₁; b₁; c₁) та  (а₂; b₂; c₂).

Знайти  найменше число та найбільше число у  кожному із наборів. чисел. Знайти суму двох найменших чисел та суму двох найбільших чисел.  Написати програму на мові Pascal для розв’язання цієї задачі.

Розв’язання.

program MINMAX;

var

a1,a2,c1,b1,b2,c2,Min1,Min2,Max1,Max2,s1,s2:real;

procedure MinMax(a,b,c:real;var Min,Max:real);

begin

Max:=a;

if Max<b then Max:=b;

if Max<b then Max:=c;

Min:=a;

if Min>b then min:=B;

if Min>c  then min:=c;

end;

begin

writeln(' a1= ');

readln(a1);

writeln(' b1= ');

readln(b1);

writeln(' c1= ');

readln(c1);

writeln(' a2= ');

readln(a2);

writeln(' b2= ');

readln(b2);

writeln(' c2= ');

readln(c2);

MinMax(a1,b1,c1,Min1,Max1);

MinMax(a2,b2,c2,Min2,Max2);

s1:=Min1+Min2;

s2:=Max1+Max2;

writeln('s1=',s1);

writeln('s2=',s2);

END.

Задача 2. Дано набір  цілих чисел: (а₁; b₁; c₁) . Знайти  НСК цих чисел. Написати програму на мові Pascal для розв’язання цієї задачі.

Розв’язання.

Program  NSK;

var a,b,c,y,nsk:integer;

procedure nsk1(m,n:integer; var pnsk:integer);

begin

pnsk:=m*n;

while m<>n do

if m>n then m:=m-n

else n:=n-m;

pnsk:=pnsk div m;

end;

begin

writeln('Vvedite znachenny 3 chisel a,b,c: ');

write('a= ');

readln(a);

write('b= ');

readln(b);

write('c= ');

readln(c);

nsk1(a,b,y);

nsk1(c,y,nsk);

writeln('HCK=',nsk);

end.