👤
a fost răspuns

Fie date 2 numere intregi x si y.Alcatuiti un program care calculeaza valoarea expresiilor:
[tex]u = min(xy.x^{2} + y^{2} )[/tex]
si
[tex]v = min(2u.2(x + y))[/tex]
utilizind o functie cu 2 parametri de intrare a si b de tip intreg care calculeaza si returneaza valoarea minima minim(a,b:integer):integer.
VA ROG FRUMOS IN PASCAL ,DAU COROANA SI MA ABONEZ.​

Răspuns :

Răspuns:

program cuFuncMin;

var x,y,u,v:integer;

function minim(a,b:integer):integer;

begin

 if a<b then minim:=a

 else minim:=b;

end;

begin  

  Write('x='); Read(x);

  Write('y='); Read(y);

  u:=minim(x*y, x*x+y*y);

  Writeln('u=minim(x*y, x*x+y*y)=',u);

  v:=minim(2*u,2*(x+y));

  Writeln('v=minim(2*u, 2*(x+y))=',v);

end.

Explicație:

Alte intrebari