👤
VLADIMIRBCEZ
a fost răspuns

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

Răspuns :

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.
Vă mulțumim că ați vizitat platforma noastră dedicată Informatică. Sperăm că informațiile oferite v-au fost utile. Dacă aveți întrebări sau aveți nevoie de asistență suplimentară, nu ezitați să ne contactați. Așteptăm cu nerăbdare să vă revedem și nu uitați să ne salvați în lista de favorite!


Ez Askings: Alte intrebari