Решение задач с использованием файлов

1. Дано число к и файл, содержащий целые числа. Вывести элемент файла с номером к. если такой элемент отсутствует, то вывести 0.

2. Дан файл вещественных чисел. Создать 2 новых файла, в первый из которых содержит строки исходного файла с четными номерами, а второй с нечетными номерами.

1)

var k, a, i, n : integer;

t : Text;

begin

readln (k) ;

n : = 0;

Assign (t,'test. txt') ;

Reset (t) ;

i : = 1;

while not Eof (t) do

begin

read (t, a) ;

if a = k then

n : = i;

i : = i + 1;

end;

Close (t) ;

writeln (n) ;

end.

2)

var

t, t1, t2 : Text;

i : integer;

a : real;

begin

Assign (t,'text. txt') ;

Reset (t) ;

Assign (t1,'r1. txt') ;

rewrite (t1) ;

Assign (t2,'r2. txt') ;

rewrite (t2) ;

i : = 1;

while not Eof (t)

do

begin

read (t, a) ;

if i mod 2 = 1 then

write (t1, a:3:3,' ')

else

write (t2, a:3:3,' ') ;

i: = i + 1;

end;

Close (t) ;

Close (t1) ;

Close (t2) ;

end.