Salut, am nevoie de ajutor va rog.
Se considera trei numere intregi x,y si z scrie un program pascal utilizand o procedura care aranjeaza aceste numere in oridine crescatorare
va rog urgent.
Răspunsuri la întrebare
Răspuns de
1
Răspuns:
program Ordonare3;
var x,y,z:integer;
procedure ordonare(var m,n,p:integer);
var t, ok:integer;
begin
ok:=0;
while ok=0 do
begin
ok:=1;
if (m>n) then begin t:=m; m:=n; n:=t; ok:=0; end;
if (n>p) then begin t:=n; n:=p; p:=t; ok:=0; end;
end;
end;
begin
write('introdu 3 numere intregi: '); read(x,y,z);
ordonare(x,y,z);
writeln('Dupa ordonare crescator: ',x,' ',y,' ',z);
end.
Explicație:
codhdjsj:
Mersi
cu placere, succese!
daca mai putea ajuta si aici, si daca ai timp desigur:
Se considera un numar intreg n , Scrie un program utilizind o functie care va determina ultima cifra din numarul n
e foarte simplu...
function ultima(num:integer):integer;
begin
ultima:=num mod 10;
end;
function ultima(num:integer):integer;
begin
ultima:=num mod 10;
end;
mersi:)
cu placere, succese!
Alte întrebări interesante
Limba română,
8 ani în urmă
Geografie,
8 ani în urmă
Matematică,
8 ani în urmă
Limba română,
8 ani în urmă
Limba română,
9 ani în urmă
Matematică,
9 ani în urmă