Автор: asdfg

asdfg — Sun, 18 Jul 2021 20:16:40 +0000

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.

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.

Автор: asdfg

asdfg — Sun, 18 Jul 2021 19:39:54 +0000

Рабочий вариант для 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.

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.

Комментарии: Решаем задачи Абрамян на Паскале. File7

Автор: asdfg

Автор: asdfg