Programalama > PASCAL

uses crt;
var
a1,a2,a3,a4,a5,a6,s1,s2,s3,s4,s5,s6:integer;
c:string;
begin
repeat
randomize;
clrscr;
a1:=random((48)+1);
a2:=random((48)+1);
a3:=random((48)+1);
a4:=random((48)+1);
a5:=random((48)+1);
a6:=random((48)+1);
textcolor(11);
gotoxy(30,2);
writeln('ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»');
gotoxy(30,3);
writeln('ºSAYISAL LOTO PROGRAMIº');
gotoxy(30,4);
writeln('ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ');
textcolor(white);
gotoxy(45,24);
writeln('HASAN AKGÜN:akgunbright@gmail.com');
gotoxy(45,25);
writeln('BYLAL KAYA:biloaga_17@hotmail.com');
gotoxy(38,4);
writeln('güngören teknik ve endüstri meslek lisesi');
writeln('TAHMiN');
gotoxy(10,5);
writeln('1.Say');
gotoxy(12,7);
readln(s1);
gotoxy(20,5);
writeln('2.Say');
gotoxy(22,7);
readln(s2);
gotoxy(30,5);
writeln('3.Say');
gotoxy(32,7);
readln(s3);
gotoxy(40,5);
writeln('4.Say');
gotoxy(42,7);
readln(s4);
gotoxy(50,5);
writeln('5.Say');
gotoxy(52,7);
readln(s5);
gotoxy(60,5);
writeln('6.Say');
gotoxy(62,7);
readln(s6);
begin
gotoxy(10,10);
writeln('1.Say');
delay(5000);
gotoxy(12,12);
writeln(random(49));
delay(5000);
gotoxy(12,12);
writeln(random(49));
delay(5000);
gotoxy(12,12);
writeln(random(49));
delay(5000);
gotoxy(12,12);
writeln(random(49));
delay(5000);
gotoxy(12,12);
writeln(random(49));
delay(5000);
gotoxy(12,12);
writeln(random(49));
delay(5000);
gotoxy(12,12);
writeln(random(49));
delay(5000);
gotoxy(12,12);
writeln(random(49));
delay(5000);
gotoxy(12,12);
writeln(random(49));
gotoxy(12,12);
writeln('   ');
delay(5000);
gotoxy(12,12);
writeln(a1);
end;
begin
gotoxy(20,10);
writeln('2.Say');
delay(5000);
gotoxy(22,12);
writeln(random(49));
delay(5000);
gotoxy(22,12);
writeln(random(49));
delay(5000);
gotoxy(22,12);
writeln(random(49));
delay(5000);
gotoxy(22,12);
writeln(random(49));
delay(5000);
gotoxy(22,12);
writeln(random(49));
delay(5000);
gotoxy(22,12);
writeln(random(49));
delay(5000);
gotoxy(22,12);
writeln(random(49));
delay(5000);
gotoxy(22,12);
writeln(random(49));
delay(5000);
gotoxy(22,12);
writeln(random(49));
gotoxy(22,12);
writeln('  ');
delay(5000);
gotoxy(22,12);
writeln(a2);
end;
begin
gotoxy(30,10);
writeln('3.Say');
delay(5000);
gotoxy(32,12);
writeln(random(49));
delay(5000);
gotoxy(32,12);
writeln(random(49));
delay(5000);
gotoxy(32,12);
writeln(random(49));
delay(5000);
gotoxy(32,12);
writeln(random(49));
delay(5000);
gotoxy(32,12);
writeln(random(49));
delay(5000);
gotoxy(32,12);
writeln(random(49));
delay(5000);
gotoxy(32,12);
writeln(random(49));
delay(5000);
gotoxy(32,12);
writeln(random(49));
gotoxy(32,12);
writeln('  ');
delay(5000);
gotoxy(32,12);
writeln(a3);
end;
begin
gotoxy(40,10);
writeln('4.Say');
delay(5000);
gotoxy(42,12);
writeln(random(49));
delay(5000);
gotoxy(42,12);
writeln(random(49));
delay(5000);
gotoxy(42,12);
writeln(random(49));
delay(5000);
gotoxy(42,12);
writeln(random(49));
delay(5000);
gotoxy(42,12);
writeln(random(49));
delay(5000);
gotoxy(42,12);
writeln(random(49));
delay(5000);
gotoxy(42,12);
writeln(random(49));
delay(5000);
gotoxy(42,12);
writeln(random(49));
delay(5000);
gotoxy(42,12);
writeln(random(49));
gotoxy(42,12);
writeln('  ');
delay(5000);
gotoxy(42,12);
writeln(a4);
end;
begin
gotoxy(50,10);
writeln('5.Say');
delay(5000);
gotoxy(52,12);
writeln(random(49));
delay(5000);
gotoxy(52,12);
writeln(random(49));
delay(5000);
gotoxy(52,12);
writeln(random(49));
delay(5000);
gotoxy(52,12);
writeln(random(49));
delay(5000);
gotoxy(52,12);
writeln(random(49));
delay(5000);
gotoxy(52,12);
writeln(random(49));
delay(5000);
gotoxy(52,12);
writeln(random(49));
delay(5000);
gotoxy(52,12);
writeln(random(49));
delay(5000);
gotoxy(52,12);
writeln(random(49));
gotoxy(52,12);
writeln('  ');
delay(5000);
gotoxy(52,12);
writeln(a5);
end;
begin
gotoxy(60,10);
writeln('6.Say');
delay(5000);
gotoxy(62,12);
writeln(random(49));
delay(5000);
gotoxy(62,12);
writeln(random(49));
delay(5000);
gotoxy(62,12);
writeln(random(49));
delay(5000);
gotoxy(62,12);
writeln(random(49));
delay(5000);
gotoxy(62,12);
writeln(random(49));
delay(5000);
gotoxy(62,12);
writeln(random(49));
delay(5000);
gotoxy(62,12);
writeln(random(49));
delay(5000);
gotoxy(62,12);
writeln(random(49));
delay(5000);
gotoxy(62,12);
writeln(random(49));
gotoxy(62,12);
writeln('  ');
delay(5000);
gotoxy(62,12);
writeln(a6);
end;
gotoxy(5,17);
write('Tutanlar: ');
if s1=a1 then Write(s1,' ');
if s1=a2 then Write(s1,' ');
if s1=a3 then Write(s1,' ');
if s1=a4 then Write(s1,' ');
if s1=a5 then Write(s1,' ');
if s1=a6 then Write(s1,' ');
if s2=a1 then Write(s2,' ');
if s2=a2 then Write(s2,' ');
if s2=a3 then Write(s2,' ');
if s2=a4 then Write(s2,' ');
if s2=a5 then Write(s2,' ');
if s2=a6 then Write(s2,' ');
if s3=a1 then Write(s3,' ');
if s3=a2 then Write(s3,' ');
if s3=a3 then Write(s3,' ');
if s3=a4 then Write(s3,' ');
if s3=a5 then Write(s3,' ');
if s3=a6 then Write(s3,' ');
if s4=a1 then Write(s4,' ');
if s4=a2 then Write(s4,' ');
if s4=a3 then Write(s4,' ');
if s4=a4 then Write(s4,' ');
if s4=a5 then Write(s4,' ');
if s4=a6 then Write(s4,' ');
if s5=a1 then Write(s5,' ');
if s5=a2 then Write(s5,' ');
if s5=a3 then Write(s5,' ');
if s5=a4 then Write(s5,' ');
if s5=a5 then Write(s5,' ');
if s5=a6 then Write(s5,' ');
if s6=a1 then Write(s6,' ');
if s6=a2 then Write(s6,' ');
if s6=a3 then Write(s6,' ');
if s6=a4 then Write(s6,' ');
if s6=a5 then Write(s6,' ');
if s6=a6 then write(s6,' ');
gotoxy(5,20);
writeln('Bidaha sralamak i‡in herhangi bir tusa bas');
gotoxy(5,22);
writeln('Exit:ESC');
c:=readkey;
if c=#27 then exit
else until keypressed;
readln;
end.

hasan akgün
akgunbright@gmail.com