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

• #3286 magortaltos csendes tag

  Új Válasz 2021-11-05 13:40:54 #3286

  Ú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

  

  magortaltos

  csendes tag

  Igyekszünk játékosan programozást oktatni.
  Mondjuk egy kis konzolos játék ennyi Pascalban (Linux alatt természetesen), nem lesz nehéz áttekinteni. Most itt a nyakunkon a Python... Vajon ki tudja ugyan ezt megírni Pythonban, hogy az szép, érthető, tanítható legyen... ?

  Uses Crt,Unix;
  Var x,y,n : byte;
  xv,yv : shortint;
  c : char;

  Begin
  Clrscr;
  fpSystem('tput civis'); // Cursor_Off
  gotoxy(15,3);Write('Próbálj bennemaradni a négyzetbe !');
  For n:=5 to 50 do Begin
  Gotoxy(n,5);Write('*');
  Gotoxy(n,20);Write('*');
  end;

  For n:=5 to 20 do Begin
  Gotoxy(5,n);Write('*');
  Gotoxy(50,n);Write('*');
  end;

  x:=25; y:=7;

  Repeat
  if keypressed then C:=Readkey; If C=#0 then C:=Readkey;
  Case C of
  #72 : yv :=-1;
  #80 : yv := 1;
  #77 : xv := 1;
  #75 : xv :=-1;
  End;
  gotoxy(x,y);Write(' ');
  x:=x+xv; y:=y+yv;
  TextColor(Random(16)); Gotoxy(x,y);Write('O');
  Delay(100);
  if (x=5)or(x=50)or(y=5)or(y=20) then c:=#27;
  Until c=#27;

  gotoxy(20,55);Write('A játéknak vége !');
  Repeat Until Keypressed;

  End.

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