Комментарии 2

• Рабочий вариант для PascalABC:

  var s: string; f: file of integer; i: integer; begin readln(s); // название файла if fileexists(s) then assign(f, s);// если есть такой файл, то связываем с переменной reset(f); // указатель на начало файла read(f, i); // считал 1 элемент write(i, ' '); // вывел read(f, i); // считал следующий (2й) write(i, ' '); // вывел seek(f, filesize(f) - 2); // установил указатель на предпоследний элемент файла read(f, i); // считал следующий (предпоследний) write(i, ' '); // вывел read(f, i); // cчитал следующий (последний) write(i, ' '); // вывел end.

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

  var   s: string;   f: file of integer;   i: integer;   begin   readln(s);                         // название файла   if fileexists(s) then assign(f, s);// если есть такой файл, то связываем с переменной   reset(f);                          // указатель на начало файла   read(f, i);                        // считал 1 элемент   write(i, ' ');                     // вывел   read(f, i);                        // считал следующий (2й)   write(i, ' ');                     // вывел   seek(f, filesize(f) - 2);          // установил указатель на предпоследний элемент файла   read(f, i);                        // считал следующий (предпоследний)   write(i, ' ');                     // вывел         read(f, i);                        // cчитал следующий (последний)   write(i, ' ');                     // вывел end.

  Ответить

• var s1,s2:string; f1,f2:file of real; r:real; begin readln (s1); // считываем имя файла который есть if fileexists(s1) then assign (f1,s1);// если правильно записали соединяем readln (s2); // считываем название 2ого файла которого нет assign (f2,s2);// соединяем с переменной f2 rewrite (f2); // создание файла (которого нет) reset (f1); // установка указателя на начало файла который есть read (f1,r); // считываение 1ого элемента write (f2,r); // запись в созданный пустой файл seek (f1,filesize(f1)-1);//установка указателя на предпоследний элемент read (f1,r); // считывание следующего за ним элемента write (f2,r); //запись в созданный файл close (f2); //закрываем записанный файл чтобы открыть для чтения reset(f2); //указатель на начало for var i:=1 to filesize(f2) do // с начала до конца begin read (f2,r); // прочитали элемент write(r:1:2,' ');// вывели end; end.

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

  var s1,s2:string; f1,f2:file of real; r:real; begin readln (s1);   // считываем имя файла который есть if fileexists(s1) then assign (f1,s1);// если правильно записали соединяем readln (s2);   // считываем название 2ого файла которого нет assign (f2,s2);// соединяем с переменной f2 rewrite (f2); //  создание файла (которого нет) reset (f1);   //  установка указателя на начало файла который есть read (f1,r);  // считываение 1ого элемента write (f2,r); // запись в созданный пустой файл seek (f1,filesize(f1)-1);//установка указателя на предпоследний элемент read (f1,r);    // считывание следующего за ним элемента write (f2,r);   //запись в созданный файл close (f2);     //закрываем  записанный файл чтобы открыть для чтения reset(f2);      //указатель на начало for var i:=1 to filesize(f2) do // с начала до конца begin read (f2,r);  // прочитали элемент write(r:1:2,' ');// вывели end; end.

  Ответить