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

• #1069 K.Viktor16 tag Lortech #1068

  Új Válasz 2006-04-01 08:51:13 #1069

  Ú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

  

  K.Viktor16

  tag

  válasz Lortech #1068 üzenetére

  Procedure szinvalt;
  
  VAR
  ch:char;
  
  BEGIN
  
  t:=0;
  ch:=Readkey;
  IF ch=#50 THEN
  Begin
  t:=6;
  Gotoxy(5,20);
  Write ('piros');
  
  End;
  End;
  Hát ennyi lenne. Mondom nem vágom annyira, valami biztos kimaradt.

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