Matematické Fórum
Nevíte-li si rady s jakýmkoliv matematickým problémem, toto místo je pro vás jako dělané.
Nástěnka
❗22. 8. 2021 (L) Přecházíme zpět na doménu forum.matweb.cz!
❗04.11.2016 (Jel.) Čtete, prosím, před vložení dotazu, děkuji!
❗23.10.2013 (Jel.) Zkuste před zadáním dotazu použít některý z online-nástrojů, konzultovat použití můžete v sekci CAS.
Nejste přihlášen(a). Přihlásit
#1 03. 02. 2012 18:59
Pascal - serazeni
Zdravim sesmelil jsem program a z nejakych zahadnych duvodu nefunguje spravne, jde o serazeni tri cisel vzestupne. Napr. kdyz zadam 12,56,2, tak to nefunguje spravne :(
program serad_cisla;
var prvni,druhe,treti : integer;
procedure serazeni (var leva,prava:integer);
var pom:integer;
begin
pom:=leva;
leva:=prava;
prava:=pom;
end;
begin
writeln('zadej tri cisla');
readln(prvni,druhe,treti);
if prvni>druhe then
serazeni(prvni,druhe);
if druhe>treti then
serazeni(druhe,treti);
writeln(prvni,' ',druhe,' ',treti);
readln;
end.
Offline