Решаем задачи Абрамян на Паскале. File6

File6. Дано целое число $$K$$ и файл, содержащий неотрицательные целые числа. Вывести $$K$$-й элемент файла (элементы нумеруются от $$1$$). Если такой элемент отсутствует, то вывести $$-1$$.

Решение:

program File6;
var
 S:String;
 F: File of Integer;
 K,i,Num:integer;

begin
  Write('S: ');
  Readln(S);
  Write('K: ');
  Readln(K);

  Assign(F,S);
  Reset(F);
  Num:=1;
  while (not eof(F)) and (Num<=K)  do
   begin
    Read(F,i);
    inc(Num);
   end;
  if Num-1<>K then Writeln(-1)
  else writeln(i);
  Close(F);
end.

program File6;

var

S:String;

F: File of Integer;

K,i,Num:integer;

begin

Write('S: ');

Readln(S);

Write('K: ');

Readln(K);

Assign(F,S);

Reset(F);

Num:=1;

while (not eof(F)) and (Num<=K) do

begin

Read(F,i);

inc(Num);

end;

if Num-1<>K then Writeln(-1)

else writeln(i);

Close(F);

end.

Другие задачи из раздела File можно посмотреть здесь.

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

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

var
  s: string;
  f: file of integer;
  i, n, k: integer;

begin
  readln(s);
  readln(k);
  if fileexists(s) then   // если есть файл с таким названием...
    assign(f, s);         // ...то соединить его с переменной  
  reset(f);
  if filesize(f) >= k then //если количество элементов в файле больше чем
  begin                     //номер элемента в задании
    seek(f, k - 1); //устанавливаем указатель на предыдущую позицию
    read(f, i);     //считывает следующий за указателем элемент
    write(i, ' ');  // выводит его
  end
  else write(-1);
end.

var

s: string;

f: file of integer;

i, n, k: integer;

begin

readln(s);

readln(k);

if fileexists(s) then // если есть файл с таким названием...

assign(f, s); // ...то соединить его с переменной

reset(f);

if filesize(f) >= k then //если количество элементов в файле больше чем

begin //номер элемента в задании

seek(f, k - 1); //устанавливаем указатель на предыдущую позицию

read(f, i); //считывает следующий за указателем элемент

write(i, ' '); // выводит его

end

else write(-1);

end.

Ответить

ника

05.09.2021 в 17:25

а можно на пайтоне…

Ответить

Решаем задачи Абрамян на Паскале. File6

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

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

Добавить комментарий Отменить ответ