Práce se soubory – Pascal – Fórum – Programujte.com

Ahoj,

potřeboval bych přečíst soubor kde na prvním řádku mám 2 čísla odděleny mezerou a a každé číslo načíst do proměnny.

Děkuji za případnou pomoc

#1 Jakub
 

var
  t : text;                 {Proměnná typu textový soubor}
  c1,c2 : integer;          {proměnné pro údaje ze souboru}
begin
  assign(t,'text.txt');     {Přiřazení jména souboru}
  reset(t);                 {Otevření souboru pro čtení}
  readln(t,c1,c2);          {Čti dvě hodnoty a zbytek řádku zahoď}
  writeln(c1,'  ',c2);      {Vypiš dvě hodnoty pro kontrolu na obrazovku}
  close(t);                 {Uzavření souboru}
end.

Nepíšeš jaká čísla, předpokládám celá...

Jde o naprosté základy, které se učí v první lekci práce se soubory.

Více viz třeba zde...