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

• #1645 MIFtIli aktív tag

  Új Válasz 2006-11-22 22:40:28 #1645

  Ú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

  

  MIFtIli

  aktív tag

  program keprnyovedo;
  uses crt;
  var i,j,x,y:word;
  begin
  clrscr;
  textcolor (4);
  randomize;
  x:=random (80)+1;
  y:=random (24)+1;
  i:=1;
  j:=1;
  while not (keypressed) do
  begin
  if (x=1) or (x=80) then i:=i*-1;
  if (y=1) or (y=24) then y:=y*-1;
  x:=x+1;
  y:=y+1;
  GotoXY(x,y);
  writeln ('Windows XP Home');
  delay (1000);
  end;
  end.
  
  össze vissza..
  nemakar visszapattani és kettő darab szöveg megy..miért?

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