Uložení do textového souboru

1) Uložení do textového souboru
jednoduchý program
var F : text;
S : string [100];
begin assign (F, fyz. jméno souboru);
rewrite (F);
while not eof do begin
readln (S);
writeln (F,S);
end;
close (F);
end.
- je to posloupnost bytů
- máme n-řetězců
- prům. délka : 50 znaků
- délka souboru : N*52(+1) ........ 50 délka, 2 cr, ef a 1 eof

1) netextový soubor
- na základě typu můžeme definovat soubor
- na základě souboru definujeme proměnnou
a) s pevnou strukturou
type Polozka = string [100];
var F: file of polozka
S: Polozka;
begin assign (F, );
rewrite (F);
while not eof do begin
readln (S);
write (F;S);
end;
close (F);
end.

- řetězce budou v souboru fyzicky uloženy v posloupnosti bytů
- každou položku tvoří1 znak
- máme N řetězců, jestliže rpům. délka řetězce bude 50 znaků, jaká bude délka osuboru?
n*52(+1) znak konce, 50 znaků + 2 řídící