Напечатать N-й элемент типизированного файла - Turbo Pascal
Формулировка задачи:
Дан типизированный файл, элементами которого являются отдельныеслова
Напечатать:
а) первый элемент;
б) пятый элемент;
в) к-н элемент;
г) последний элемент.
Решение задачи: «Напечатать N-й элемент типизированного файла»
textual
Листинг программы
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.
Объяснение кода листинга программы
- Объявляются переменные: f - файл типа string, i - байт, k - байт, s - строка.
- Открывается файл 'in.dat' для чтения и записи.
- Выводится сообщение 'Окончание ввода .'
- Если файл не пуст, то считывается и выводится первый элемент.
- Если файл не пуст и k больше или равно 5, то считывается и выводится пятый элемент.
- Выводится сообщение 'Нету 5-го элемента' если файл не содержит 5-го элемента.
- Считывается и выводится k-й элемент, если файл содержит k-й элемент.
- Выводится сообщение 'Нету k-го элемента' если файл не содержит k-го элемента.
- Считывается и выводится последний (после k-го) элемент, если файл содержит k-й элемент.
- Выводится сообщение 'Файл пуст' если файл пуст.
- Файл закрывается.
- Выводится сообщение 'Окончание ввода .'
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д