Задания уровня 1
Упражнение 1.
Программа, в результате выполнения которой выводятся все четные числа из данного файла int с целочисленными компонентами.
1. Наберите текст программы:
PROGRAM REM; VAR INT: TEXT; I: INTEGER; BEGIN ASSIGN (INT, 'input.txt'); RESET (INT); WHILE NOT EOF (INT) DO BEGIN READ (INT, I); IF I MOD 2=0 THEN BEGIN WRITELN (I); END; END; CLOSE (INT); END.
2. Запустите программу на выполнение и проверьте её работу: Ctrl-F9
3. Для просмотра результатов выполненной программы необходимо нажать: Alt-F5
4. Сохраните программу на своем диске: A:\P10PR1
Упражнение 2.
Программа, которая формирует типизированный файл из целых чисел, вводимый с клавиатуры. Их количество заранее не известно. Признаком конца ввода является 0. Программа находит: сумму и произведение чисел из файла, разность между предпоследним и вторым по счету числами, наибольшее из чисел.
1. Наберите текст программы:
PROGRAM RABF;
TYPE FILE_TYPE=FILE OF INTEGER;
VAR F: FILE_TYPE;
SUM, MULT, R, K1, K2, MAX: INTEGER;
BEGIN
WRITELN ('ВВЕДИТЕ ЭЛЕМЕНТЫ ФАЙЛА, ОКОНЧАНИЕ - 0');
{ЗАПИСЬ ЭЛЕМЕНТОВ В ФАЙЛ}
ASSIGN (F, 'DATA.DAT'); REWRITE (F);
REPEAT
READLN (R); IF R<>0 THEN WRITE (F, R);
UNTIL R=0;
{ВЫЧИСЛЕНИЕ РЕЗУЛЬТАТОВ}
SEEK (F, 0); SUM:=0; MULT:=1;
READ (F, R); MAX:=R; SEEK (F, FILEPOS(F)-1);
WHILE NOT EOF (F) DO
BEGIN
READ (F, R); SUM:=SUM+R; MULT:=MULT*R;
{ПОИСК МАКСИМАЛЬНОГО ЭЛЕМЕНТА}
IF MAX<R THEN MAX:=R;
END;
SEEK (F, 1); READ (F, K1); {ЧТЕНИЕ ВТОРОГО КОМПОНЕНТА}
SEEK (F, FILESIZE (F)-2); READ (F, K2); { ЧТЕНИЕ ПРЕДПОСЛЕДНЕГО КОМПОНЕНТА}
CLOSE (F);
{ВЫВОД РЕЗУЛЬТАТОВ}
WRITELN ('СУММА = ', SUM,'ПРОИЗВЕДЕНИЕ =', MULT);
WRITELN ('РАЗНОСТЬ = ', K2-K1,'МАКСИМУМ =', MAX);
END.
2. Запустите программу на выполнение и проверьте её работу: Ctrl-F9
3. Для просмотра результатов выполненной программы необходимо нажать: Alt-F5
4. Сохраните программу на своем диске: A:\P10PR2
Задания уровня 2
1. Создать три программы:
a) Считывает 10 действительных чисел с клавиатуры и записывает их в файл. Сохранить программу под именем P10PR3
b) Добавляет в этот файл еще 5 чисел. Сохранить программу под именем P10PR4
c) Читает этот файл и выводит числа, содержащиеся в нем на экран. Сохранить программу под именем P10PR5
Задания уровня 3
2. Написать программу, в результате выполнения которой выводятся все числа кратные трем из данного файла int с целочисленными компонентами. Сохранить программу под именем P10PR6
3. Дан файл Input.txt, элементы которого являются целыми числами. Получите в файле Output.txt все элементы файла Input.txt, которые делятся на 3 и не делятся на 7. Сохранить программу под именем P10PR7
Контрольные вопросы:
1. Понятие файла в Паскале.
2. Что называют файловым типом переменной?
3. Какова организация доступа к файлам?
4. Назовите основные типы операций работы с файлами.
5. Перечислите установочные и завершающие операции работы с файлами.
6. Какие операции ввода-вывода существуют для работы с файлами?
7. Назовите операции перемещения по файлу.
8. Перечислите специальные операции для работы с файлами.
9. Особенности работы с текстовыми файлами.