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

• #1958 N!tRo tag Gyuri16 #1956

  Új Válasz 2007-06-29 21:52:44 #1958

  Ú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

  

  N!tRo

  tag

  válasz Gyuri16 #1956 üzenetére

  nah hát fordítottam öt percet arra hogy a kedves kollega kívánságát teljesítsem, tessék:
  
  
  program clrdev_test;
  uses crt;
  procedure clrdev(sx,sy,fx,fy:integer);
  begin
  gotoxy(sx,sy);
  while (sx<>fx) or (sy<>fy) do
  begin
  write(' ');
  if sx<>80 then inc(sx)
  else begin inc(sy); sx:=0; end;
  gotoxy(sx,sy);
  end;
  write(' ');
  end;
  
  begin
  clrscr;
  writeln('123456789');
  writeln('123456789');
  writeln('123456789');
  writeln('123456789');
  readln;
  clrdev(3,1,2,2);
  readln;
  end.
  
  
  Nem kellenek windowok.
  Köszöntem.
  
  
  [Szerkesztve]

• #1957 N!tRo tag Gyuri16 #1956

  Új Válasz 2007-06-29 21:36:56 #1957

  Ú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

  

  N!tRo

  tag

  válasz Gyuri16 #1956 üzenetére

  én ezt csak így írtam, pascal már rég nincs a gépemen, de a te kedvedért felrakom

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