Главная | Обратная связь | Поможем написать вашу работу!
МегаЛекции

В а р і а н т и з а в д а н ь




1. Створити файл цілих чисел. Перемістити цілі додатні, парні числа до другого файлу, від’ємні та непарні у третій файл. Шляхом читання другого та третього файлів створити четвертий файл, у якому парні та непарні числа чергуються.

2. Створити файл цілих чисел, вводячи дані з клавіатури. Переписати парні числа до другого файлу, підрахувати їх кількість. Визначити розмір файлу, якщо він перевищує задане користувачем значення, то обрізати його.

3. Створити файл цілих та дробових чисел, вводячи дані з клавіатури. Переписати дробові числа до другого файлу, підрахувати їх кількість. Число кількості дописати в файл з дробовими числами. Визначити розмір файлу з дробовими числами.

4. Створити файл цілих та дробових чисел, вводячи дані з клавіатури. Попарно скласти два числа, що знаходяться поруч (перше+друге, третє+ четверте). Якщо сума ціле число то переписати такі числа в вихідний файл. Підрахувати кількість таких сум.

5. Створити файл записів з полями: прізвище, телефон, плата. Вилучити з файлу абонентів, що не сплатили.Переписати прізвища в алфавітному порядку.

6. Ввести з клавіатури записи і занести їх у файл. Структура запису: автор та назва книги. Вилучити із файлу всі записи, у яких прізвище починається на задану букву.

7. Створити файл цілих чисел, відсортувати його за збільшенням значень чисел. Переписати у новий файл числа, що являюься квадратами чисел.

8. Заданий файл F, компонентами якого є цілі числа однозначні та двозначні (в межах від 1 до 50). Створити два вихідні файли. Один з яких містить числа однозначні, а другий двозначні.

9. Заданий файл записів з полями: прізвище, телефон, не відсортований (номера телефону може не бути). Вилучити з файлу абонентів у яких немає номеру телефону. Вихідний файл відсортувати за номером телефону.

10. Заданий файл записів з полями Прізвище та прохідний бал. Відсортувати заданий файл за балом. В цьому ж файлі видалити ті записи, в яких не набрано прохідного балу.

11. В заданому файлі, який складається з цілих чисел. Знайти добуток всіх компонентів та з отриманого результату добути корінь квадратний.

12. Заданий файл цілих чисел. Записати в вихідний файл всі числа, що діляться на 3 та не діляться на 9.

13. Заданий файл цілих чисел. В вихідний файл переписати всі від'ємні числа без повторень, дописати кількість повторів чисел.

14. Пряма на площині задається рівнянням Ах+Ву+С=0, А та В не дорівнюють 0. Якийсь файл містить коефіцієнти декількох прямих. Переписати в вихідний файл всі коефіцієнти тих прямих,які є паралельними до даної

15. Створити два файли даних з полями прізвище та ціна за деяку послугу. Якщо прізвища повторюються, то просумувати ціну послуг, переписати дані в вихідний файл..

 

Лабораторна робота №8

Файли

Текстові файли

Текстові файли описуються словом Text.

Наприклад:

Var f:text;

Текстовий файл складається з символів, які складають рядки. В загальному випадку це рядки різної довжини. Закінчується рядок ознакою кінець рядку. Ця ознака вводиться при натисканні клавіші Enter. Файл закінчується ознакою кінець файлу. Кінець файлу розпізнає функція Eof. Кінець рядку розпізнає функція EoLn. Файлова змінна зв'язується з файлом на диску оператором Assign. Для вводу інформації в текстовий файл використовуєтьс процедура Rewrite, для читання Reset, для доповнення файлу використовується процедура Append. Длязапису даних в файл використовується процедура WriteLn абоWrite а для читання ReadLn або Read. Після того, як робота з файлом закінчена його закривають оператором Close. Вводити початкові значення можна також з текстового редактору. Але при такому вводі початкових даних треба слідкувати щоб всі числові дані були відділені одне від одного пропуском. Enter є ознакою закінчення числового рядку. Якщо інформація до текстового файлу вводилась як один рядок, але в ньому є дані різних типів то отримати окремі складові можна за допомогою текстової функції Copy. І, взагалі, така інформація обробляється з використанням функцій обробки рядків.

Наприклад:

Var f:text;

namber,s:real;

Begin

Assign(f,’text.dat’);

s:=0; reset(f);

Поделиться:





Воспользуйтесь поиском по сайту:



©2015 - 2024 megalektsii.ru Все авторские права принадлежат авторам лекционных материалов. Обратная связь с нами...