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

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

Ответы 1

  • 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.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years