Hali !

Igazan nem kotekedes kepen, lenne egy sohajnyi megjegyzesem.
(Kulonben nagyon szellemes megoldasnak talalom amit irtal !)
DE nem kellen leinicializalni az S-t ? 
S:='';
Anelkul furcsa lesz a vegeredmeny !
Megegyszer ; _Csak_ a rend kedveert irtam, merthogy tipushiba.

Udv : Csiszar L.

> program lotto2;
> var i,j,k,m: integer;
>           s: string;
> begin
> randomize;
> writeln;
> for i:=1 to 90 do
>   begin
>   s:=s+chr(i);
>   end;
> for i:=1 to 5 do
>   begin
>   j:=random(92-i);
>   writeln(ord(s[j]));
>   delete(s,j,1);
>   end;

>    Lenne egy kis keresem.
>    Szuksegem van egy Lottoszamgeneralo PASCAL programra.
>    Feltetelek:
>    -felejtsd el az 'IF' utasitast;azaz nem szabad hasznalni
>    -gyakorlatilag egyetlen 'FOR' (1 to 5) ciklusbol all az egesz
>    -ne legyen hosszabb 15-20 sornal
>    -nem lehet ket egyforma szam
>    -az eredmenyeket novekvo sorrendben irja ki
Aha.
Az IF-et helyettesiteni lehet pl.:

"IF A+5<B THEN [...]" -t

boolean:=A+5<B;
asm 
cmp boolean,1
jz [...]          {ha igaz, akkor ugras ide meg oda}
end;

-vel. hihi. Remelem nem strukturalt-agyu a pascal-tanarod... :)

bye,
Hory