Question

pascal
De la tastatură se citesc două numere întregi. Elaboraţi un program cu funcţii prin intermediul
căruia se va determina:
a) Suma numerelor;
b) Produsul numerelor;
c) Media aritmetică a numerelor;
d) Cel mai mare divizor comun;
e) Cel mai mic multiplu comun;
f) Numărul minim;
g) Numărul maxim;
dau cornita

Answer 1

Program Tema;

function suma(a,b:integer):integer;
begin
suma:=a+b;
end;
function produs(a,b:integer):integer;
begin
produs:=a*b;
end;

function medie(a,b:integer):real;
begin
medie:=(a+b)/2;
end;

function cmmdc(a,b:integer):integer;
var temp:integer;
begin
while b<>0 do
begin;
temp:=b;
b:=a mod b;
a:=temp;
end;
cmmdc:=a;
end;

function cmmmc(a,b:integer):integer;
begin
cmmmc:=trunc((a*b)/(cmmdc(a,b)));
end;

function min(a,b:integer):integer;
begin
if(a<b) then
min:=a
else
min:=b;
end;

function max(a,b:integer):integer;
begin
if(a>b) then
max:=a
else
max:=b;
end;

var x,y:integer;
Begin

writeln('Introduceti cele doua numere: ');
read(x,y);
writeln('Suma celor doua numere este:',suma(x,y));
writeln('Produsul celor doua numere este:',produs(x,y));
writeln('Media aritmetica celor doua numere este:',medie(x,y));
writeln('CMMDC celor doua numere este:',cmmdc(x,y));
writeln('CMMMC celor doua numere este:',cmmmc(x,y));
writeln('Minimul celor doua numere este:',min(x,y));
writeln('Maximul celor doua numere este:',max(x,y));
End.