Informatika-práce se soubory

17. prosince 2007 v 20:39 |  INFORMATIKA
program textsoubor_1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
s1,s2:textfile;
i:integer;
jmeno:string[20];
begin
assignfile(s1,'a:soubor1.txt');
rewrite(s1);
for i:=1 to 10 do
begin
write('zadej ',i,' jmeno: ');
readln(jmeno);
writeln(s1,jmeno);
end;
closefile(s1);
assignfile(s2,'a:soubor1.txt');
reset(s2);
i:=1;
while not eof(s2) do
begin
readln(s2,jmeno);
writeln(i,'.',jmeno);
end;
closefile(s2);
readln;
readln;
end.
 

Buď první, kdo ohodnotí tento článek.

Nový komentář

Přihlásit se
  Ještě nemáte vlastní web? Můžete si jej zdarma založit na Blog.cz.
 

Aktuální články

Reklama