{ cisla_subor.pas } { Program na citanie/zapis cisel z/do suboru. } { } { Author: ghostix } { Datum:20.04.2005 http://www.trsek.com } program progcisla; uses crt; var F:file of integer; ODP:char; procedure VSTUP; var FM:string[12]; X:integer; begin write('Meno suboru na disku: '); readln(FM); assign(F,'C:\data\'); rewrite(F); repeat write('Vlozit cislo: '); readln(X); write(F,X); writeln('Vlozit dalsie cislo (nie - N) ?':52); until upcase(readkey)='N'; close(F); end; procedure VYSTUP; var FM:string[12]; X:integer; begin write('Meno suboru na disku: '); readln(FM); assign(F,FM); reset(f); while not eof(F) do begin read(F,X); write(X:4); end; close(F); readln end; BEGIN repeat clrscr; gotoxy(1,10); writeln('Vytvorit subor ............... V':50); writeln; writeln('Zobrazit subor ............... Z':50); writeln; writeln('Koniec ....................... K':50); repeat ODP:=upcase(readkey); until (ODP='V')or(ODP='Z')or(ODP='K'); clrscr; case ODP of 'V' : VSTUP; 'Z' : VYSTUP; end until ODP='K' END.