Hogy kell TURBOpascalban lottóprogramot írni?

Házi?

Elindítod a kedvenc fejlesztő programod. Amíg tölt

végiggondolod a problémát. Amikor betöltött elkezded begépelni a problémát megoldó kódot.

Hol akadtál el?

Ha csak generálsz öt számot, és berakod a tömbbe, mi biztosítja, hogy nem húztad ki kétszer ugyanazt a számot?

Vagy a 2-iktól minden húzás után összehasonlítod az előzőekkel, vagy ismerkedj meg a set (halmaz) adattípussal, ami nevéhez méltóan nem duplikál, és addig pakolod bele a számokat, amíg 5 eleme nem lesz.

Az a probléma, ha valaki megírja, bemásolja, nem fogod érteni a működését, mert nem gondolkodtál rajta eleget...

program lotto;

uses crt;

type szamok=set of 1..90;

var

i,v,elem:byte;

sors:szamok;

tipp:array[1..5] of byte;

begin

clrscr;

writeln('Kerem a tippeket');

for i:=1 to 5 do

begin

write(i,'. tipp: ');

readln(elem);

tipp[i]:=elem;

end;

writeln;

writeln('A tippek:');

writeln;

for i:=1 to 5 do

write(i:5);

randomize;

i:=0;

sors:=[];

repeat

v:=random(90) +1;

if [v]*sors<>[v] then

begin

sors:=sors +[v];

i:=i +1;

end;

until i=5;

writeln;

writeln('A generalt szamok:');

writeln;

for v:=1 to 90 do

if v in sors then

write(v:4);

readln

end.