Új hozzászólás Aktív témák

• #1796 Gyomman aktív tag [HUN]Zolee #1795

  Új Válasz 2007-04-01 11:46:11 #1796

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Gyomman

  aktív tag

  válasz [HUN]Zolee #1795 üzenetére

  ITT VAN (még csak az eleje);
  program jatek;
  uses crt,graph;
  var i,j,k,szam:integer;
  gd,gm:integer;
  procedure menu;
  begin
  gd:=detect;
  InitGraph(gd,gm,'');
  for i:=1 to 24 do
  begin
  gotoXY(1,i);
  writeln(CHR(178));
  gotoxy(2,i);
  writeln(CHR(177));
  gotoXY(3,i);
  writeln(CHR(176));
  end;
  gotoXY(5,5);
  SetTextStyle(0,0,3);
  writeln('JATEK NEVE');
  SetTextStyle(0,0,1);
  sound(100);
  delay(100);
  sound(200);
  delay(100);
  sound(300);
  delay(100);
  sound(400);
  delay(100);
  sound(500);
  delay(100);
  sound(600);
  delay(100);
  Nosound;
  for j:=17 to 63 do
  begin
  gotoXY(j,3);
  writeln(CHR(219));
  gotoXY(j,23);
  writeln(CHR(219));
  gotoXY(j,21);
  writeln(CHR(196));
  end;
  for k:=3 to 23 do
  begin
  gotoXY(17,k);
  writeln(CHR(219));
  gotoXY(63,k);
  writeln(CHR(219));
  end;
  gotoXY(34,5);
  writeln(CHR(177),'JATEK NEVE',CHR(177));
  gotoXY(34,11);
  writeln('1 : elsoprogram');
  gotoXY(34,13);
  writeln('2 : masodikprogram');
  gotoXY(34,15);
  write('3 : Kilep');
  gotoXY(18,22);
  write('Add meg a kivant utasitas szamat ');
  readln;
  CloseGraph;
  end;
  begin
  clrscr;
  elokepmenu;
  readln(szam);
  if szam>3 then halt;
  repeat until keypressed
  end.

Új hozzászólás Aktív témák