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

• #520 Fermat tag

  Új Válasz 2007-04-22 02:20:11 #520

  Ú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

  

  Fermat

  tag

  Sry az oFFert.
  Lenne egy problemam. Az OMrol letoltott es konyvbol kiirt erettsegi feladatmegoldasoknal, meg az altalam irt egyszeru programoknal hibat ír ki a freepascal:
  program SZAMOLAS;
  uses CRT;
  var i,n:integer;
  begin
  clrscr;
  write ('K‚rem a sz mot:');Readln(n);
  for i:=n downto 1 do begin
  GotoXY(30,5+1);
  write(i,' Pascal');
  end;
  readln;
  end.
  
  Itt meg nincs hiba.
  De itt mar igen :
  
  program SZAMOLAS;
  uses CRT;
  var i,n:integer;
  begin
  clrscr;
  write ('Kerem a szamot:');Readln(n);
  repeat
  for i:=1 to n do begin
  GotoXY(30,5+1);
  write(i,' Pascal');
  Delay(500);delline;
  end;
  for i:=n downto 1 do begin
  GotoXY(30, i+5);Write(i:4,' Pascal');
  Delay(500);delline;
  end;
  repeat until keypressed;
  end.
  
  ''until'' expected but ''end'' found
  Es minden programra ezt írj ki, az ideg megvag 3 hettel az infoerettsegi elott.
  

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