Ĺadny brzuch
Może i banalne, ale jakoś nie mogę się doszukać
...
type Z=SET OF 'A'..'Z';
...
var litera:Z;
...
Losowo zapełnić zmienną tego typu w taki sposób, aby znajdowały się 3 litery.
No do losowania liczb służy random B) . A jak bez przechodzenia do kodów ASCII wylosować jakąś literę z tego zbioru?
PS. No i nie bardzo kumam val('string',zmienna_numeryczna,kod). :P
1. Koniecznie musi być set?type Z=array[0..2]of char; var litera:Z; i:byte; begin randomize; for i:=0 to 2 do litera[i]:=chr(random(ord('Z')-ord('A'))+ord( 'A'));
2.var st:string; l, k:integer; begin st:='1234'; val(st,l,k); if k<>0 then writeln('Blad przy konwersji!') else (...)
type Z=array[0..2]of char; var litera:Z; i:byte; begin randomize; for i:=0 to 2 do litera[i]:=chr(random(ord('Z')-ord('A'))+ord( 'A'));
Aha, czyli jednak ASCII. Niom dzinks. :)
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
Losowo zapełnić zmienną tego typu w taki sposób, aby znajdowały się 3 litery.
No do losowania liczb służy random B) . A jak bez przechodzenia do kodów ASCII wylosować jakąś literę z tego zbioru?
PS. No i nie bardzo kumam val('string',zmienna_numeryczna,kod). :P
1. Koniecznie musi być set?type Z=array[0..2]of char; var litera:Z; i:byte; begin randomize; for i:=0 to 2 do litera[i]:=chr(random(ord('Z')-ord('A'))+ord( 'A'));
2.var st:string; l, k:integer; begin st:='1234'; val(st,l,k); if k<>0 then writeln('Blad przy konwersji!') else (...)
type Z=array[0..2]of char; var litera:Z; i:byte; begin randomize; for i:=0 to 2 do litera[i]:=chr(random(ord('Z')-ord('A'))+ord( 'A'));
Aha, czyli jednak ASCII. Niom dzinks. :)