Programalama > PASCAL

Etiketler: sayisal, loto, tahmin, programi

Ort. 0
Puan ver:
PROGRAM LOTO;
uses crt;
label don,dongu;
var
gina:char;
lt1,lt2,lt3,lt4,lt5,lt6:integer;
begin
clrscr;
textcolor(11);
don:
clrscr;
Writeln('                 LOTO TAHMIN PROGRAMI');
writeln;
Writeln('Numaralar');
randomize;
lt1:=random(49);
lt2:=random(49);
lt3:=random(49);
lt4:=random(49);
lt5:=random(49);
lt6:=random(49);
Writeln(lt1,'-',lt2,'-',lt3,'-',lt4,'-',lt5,'-',lt6);
if (lt1=0) or (lt2=0) or (lt3=0) or (lt4=0) or (lt5=0) or (lt6=0) then
goto don;
if (lt1=lt2) or (lt1=lt3) or (lt1=lt4) or (lt1=lt5) or (lt1=lt6) then
goto don;
if (lt2=lt3) or (lt2=lt4) or (lt2=lt5) or (lt2=lt6) then
goto don;
if (lt3=lt4) or (lt3=lt5) or (lt3=lt6) then
goto don;
if (lt4=lt5) or (lt4=lt6) then
goto don;
if (lt5=lt6) then
goto don;
gina:=readkey;
if gina=#27 then goto dongu
else
goto don;
dongu:end.


Yorumlar                 Yorum Yaz
Bu hazır kod'a ilk yorumu siz yapın!
KATEGORİLER
ASP - 240
ASP.NET - 24
C# - 75
C++ - 174
CGI - 8
DELPHI - 247
FLASH - 49
HTML - 536
PASCAL - 246
PERL - 11
PHP - 160
WML - 9
XML - 2
Copyright © 2002 - 2018 Hazır Kod - Tüm Hakları Saklıdır.
Siteden yararlanırken gizlilik ilkelerini okumanızı tavsiye ederiz.
hazirkod.com bir İSOBİL projesidir.