Turbo pascal 3 szám növekvő sorrend hogy?

var

a, b, c : Integer;

begin

Write(#13#10,'Kérem az első számot : ');

ReadLn(a);

Write(#13#10,'Kérem a második számot : ');

ReadLn(b);

Write(#13#10,'Kérem a harmadik számot : ');

ReadLn(c);

end.

Innentől te jössz.

Az "if", "then" utasításoknak nézz utána, vagy esetleg még a case-vel is meg lehet oldani.

Szia.

Ha tömb nélkül oldod meg a feladatot, ugyan azt kell csinálni amit ránézésre csinálnál. Tehát az összes variációt fel kellene venni - csak az emberi agy ránézésre eldönti, hogy mi a sorrend - és ez egyik lesz a jó sorrend : az első variációt leirom a többit neked kell :

if (a>=b) and (a>=c) and (b>=c) then writeln ('A sorrend : ',a,' , ',b,' , ',c).

Sok sikert.

üdv.

Létezik rövidebb megoldás természetesen, ha tömböt használsz és rendezed a számok felvétele után, majd kiíratod.

Program Harom_szam_novekvo;

var

szamok : array [1..3] of integer;

i, j, cs : byte;

begin

for i := 1 To 3 Do

begin

Write(#13#10,'Kérem az ',i,' számot : ');

ReadLn(szamok[i]);

end;

for i := 1 to 2 do

begin

for j:=i+1 to 3 do

begin

if szamok[i]>szamok[j] then

begin

cs:=szamok[i];

szamok[i]:=szamok[j];

szamok[j]:=cs;

end;

end;

end;

Write(#13#10,'A számok növekvő sorrendben: ');

for i:=1 To 3 Do

Write(szamok[i],' ');

ReadLn;

end.