Напечатать N-й элемент типизированного файла - Turbo Pascal

Формулировка задачи:

Дан типизированный файл, элементами которого являются отдельныеслова Напечатать: а) первый элемент; б) пятый элемент; в) к-н элемент; г) последний элемент.


textual

Код к задаче: «Напечатать N-й элемент типизированного файла - Turbo Pascal»

Var f:file of string;
    i,k:byte;
    s:string;
Begin
    writeln('Окончание ввода .');
    Assign(f,'in.dat');Rewrite(f);
    Repeat
     write('Слово: ');
     readln(s);
     if s<>'.' then write(f,s);
    Until s='.';
    if FileSize(f)>0 then 
    Begin
      write('Первый элемент: ');
      Seek(f,0);
      read(f,s);
      writeln(s);
      if FileSize(f)>=5 then
      Begin
        write('Пятый элемент: ');
        Seek(f,4);
        read(f,s);
        writeln(s);
      End
      else writeln('Нету 5-го элемента');
      write('Введите k: ');readln(k);
      if FileSize(f)>=k then
      Begin
        write('k-н элемент: ');
        Seek(f,k-1);
        read(f,s);
        writeln(s);
      End
      else writeln('Нету k-н элемента');
      write('Полседний элемент: ');
      Seek(f,FileSize(f)-1);
      read(f,s);
      writeln(s);
    End
    else writeln('Файл пуст');
    Close(f);
    readln;
End.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

15   голосов, оценка 3.800 из 5

Источник
Похожие ответы