Задания уровня 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. Особенности работы с текстовыми файлами.