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

• #2127 prune csendes tag

  Új Válasz 2008-02-04 11:16:14 #2127

  Ú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

  

  prune

  csendes tag

  kezdőknek ajánlom:
  Program MATRIX;
  Uses Crt;
  Var
  col,lin,ql,cont,aux:integer;
  letra:char;
  Begin
  Clrscr;
  Repeat
  col:=1+Random(79);
  lin:=1+Random(23);
  ql:= Random(10);
  for cont:= lin to lin+ql do
  Begin
  if cont<24 then
  Begin
  letra:= chr(Random(255));
  for aux:=1 to 2 do
  Begin
  if aux= 1 Then
  Textcolor(10)
  else
  Textcolor(2);
  gotoxy(col,cont);
  write(letra);
  delay(50);
  end;
  end;
  end;
  until keypressed;
  end.

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