Fie 4 numere reale a,b,c,d. Elaborati o functie, in Pascal , care determina minimul dintre acestea. Va rog mult! ajutati-ma! Dau coroana!!
Răspunsuri la întrebare
Răspuns de
0
program proj_min_num;
var a,b,c,d,min: integer;
begin
WriteLn('Introduceti 4 numere (apasati enter dupa fiecare):');
ReadLn(a);
ReadLn(b);
ReadLn(c);
ReadLn(d);
WriteLn('Cel mai mic este: ', Min(a,b,c,d));
ReadLn;end.
var a,b,c,d,min: integer;
begin
WriteLn('Introduceti 4 numere (apasati enter dupa fiecare):');
ReadLn(a);
ReadLn(b);
ReadLn(c);
ReadLn(d);
WriteLn('Cel mai mic este: ', Min(a,b,c,d));
ReadLn;end.
natasamacovetc:
alta metoda nu stii..?
program maqsimaluri;
function min(a,b:integer):integer;
begin
if a>=b then
min:=a
else
max:=b
end;
var
a,b: Integer;
begin
a:=5;
b:=4;
write(max(a,b))
end.
function min(a,b:integer):integer;
begin
if a>=b then
min:=a
else
max:=b
end;
var
a,b: Integer;
begin
a:=5;
b:=4;
write(max(a,b))
end.
este asa metoda
program maqsimaluri;
function min(a,b:integer):integer;
begin
if a>=b then
min:=a
else
min:=b
end;
var
a,b: Integer;
begin
a:=5;
b:=4;
write(max(a,b))
end.
function min(a,b:integer):integer;
begin
if a>=b then
min:=a
else
min:=b
end;
var
a,b: Integer;
begin
a:=5;
b:=4;
write(max(a,b))
end.
am scris doar ca-s reale nemerele.
Alte întrebări interesante
Matematică,
8 ani în urmă
Limba română,
8 ani în urmă
Studii sociale,
8 ani în urmă
Studii sociale,
8 ani în urmă
Limba română,
8 ani în urmă
Matematică,
9 ani în urmă
Matematică,
9 ani în urmă