Delphi - umí zde někdo ? – Delphi – Fórum – Programujte.com

Ahoj, doufám, že mě pomůže nějaký odborník s aplikací, mám tento zdrojový kód který porovnává dvě čísla podle velikosti a vypisuje vždy to větší číslo, potřeboval bych to ale upravit tak, aby ty dvě čísla seřadil od menšího po větší a vypsal na obrazovku, zkoušel jsem už nevím co a nejde mě to.


var a,b: integer;

begin
write('Napis prvni cislo: '); readln(a);
write('Napis druhe cislo: '); readln(b);
if a>b then
write('Vetsi cislo je ',a)
else
if a=b then write('Cisla jsou stejna')
else write('Vetsi cislo je ',b);
readln;
end.

nejak sem nepochopil... jako ze mas dve cisla a snazis se vypsat prvni mensi a druhy to vetsi?

Proc chces seradit dve cisla, ktery mas ulozeny jenom v promennych moc nechapu (kdyby byly ulozeny v poli, seznamu atd. tak proc ne), ale jestli chces vypsat nejdriv to mensi cislo a potom to vetsi tak co treba takhle:

var a,b: integer;

begin
write('Napis prvni cislo: '); readln(a);
write('Napis druhe cislo: '); readln(b);
if a>b then
write(b, ' ', a)
else
if a=b then write('Cisla jsou stejna')
else write(a, ' ', b);
readln;
end.

Nevim jestli je to syntakticky spravne, pac sem Pascal uz dlouuho nevidel.. :)

Proc chces seradit dve cisla, ktery mas ulozeny jenom v promennych moc nechapu (kdyby byly ulozeny v poli, seznamu atd. tak proc ne), ale jestli chces vypsat nejdriv to mensi cislo a potom to vetsi tak co treba takhle:

var a,b: integer;

begin
write('Napis prvni cislo: '); readln(a);
write('Napis druhe cislo: '); readln(b);
if a>b then
write(b, ' ', a)
else
if a=b then write('Cisla jsou stejna')
else write(a, ' ', b);
readln;
end.

Nevim jestli je to syntakticky spravne, pac sem Pascal uz dlouuho nevidel.. :)

Sorry za ten double post, ale v Operu to asi moc nebere :( BTW Zajimavy ze je tady rubrika, kritika webu.

var a, b: integer;



begin

	write('Napis prvni cislo: ');

	readln(a);

	write('Napis druhe cislo: '); 

	readln(b);



	if a>b then begin

		write('Vetsi cislo je ',a,' (',b,', ',a,')');

	end

	else	begin

		if a=b then begin

			write('Cisla jsou stejna');

		end

		else begin

		write('Vetsi cislo je ',b,' (',a,', ',b,')');

		end;

	end;

readln;

end.