Kullanıcının isteğine göre menude bulunan tahmin oyunu, sayısal loto programlarından istediğini çalıştıran program.
uses crt;
var
t,secenek,x,b,i,no,a,c:integer;
begin
clrscr;
randomize;
writeln(‘MENU’);
writeln(‘1-Tahmin oyunu’);
writeln(‘2-Sayısal loto’);
writeln(‘3-Tariçe’);
writeln(‘secenek seçiniz’);readln(secenek);
if (secenek=!) then begin
a:=random(100);
x:=random(10);
writeln(‘kaç kere oynayacaksınız:’);readln(c);
writeln(‘tahmin hakkınız’,x);readln;
for b:=1 to c do begin
clrscr;
for i:=1 to x do begin
writeln(‘tahmini sayıyı giriniz:’);readln(no);
if (a=no) then begin
writeln(‘doğru bildin’);break;end
else writeln(‘yalnış girdiniz’);
if (no>a) then
writeln(‘aşağı in’);
if (no<a) then
writen(‘yukarı çık’);
end;end;end
else if (secenek=2) then begin
for t:=1 to 8 do begin
writeln(‘’);
writeln(‘’);
for i:=1 to 6 do begin
x:=random(49);
gotoxy(5*i,2*t);
write(‘ ‘,x+1);end;
end; end
else if (secenek=3) then
writeln(‘kullanıcının tüm hakları saklıdır’);
readln;
end.
Linkback: https://www.buyuknet.com/kullanicinin-istegine-gore-menude-bulunan-tahmin-oyunu-sayisal-loto-programlari-t8629.0.html