Anonymní profil peter – Programujte.com

Php funguje taky dobre radu let vsude :)
Jinak teda, co do efektivnosti, tak v puvodnim kodu je 5 ifu a a 18 prirazeni (Honzc). Minule jsem napsal, ze staci 3 a prirazeni asi tak polovicka. Nema smysl tedy resit jazyk.
 

Tak, jako, on uz pred IFy mohl naplnit a1,b2,c3. IFama to jen prepsat. Ale prislo mi to nepodstatny, kdyz uz to nedela cyklem, polem nebo funkci/procedurou (ktera porovna dve hodnoty a pripadne je zameni). Tez jsem si nevsiml treba prevod stringu na cislo z readln, nevim, zda to pascal dela sam...

procedure porovnej(aa,bb) begin var tmp; if (aa>bb) then begin tmp=aa; aa=bb; bb=tmp; end;end;
porovnej(a,b);
porovnej(b,c);
porovnej(a,b);
Ale bude to treba prepsat pascalove spravne.

To si vyres s prodejcem. treba jsi jenom nezadal registracni kod. Nekdy to byva predinstalovane celkove i s kodem, jindy je treba kod vyplnit a registrovat si to online.