Пример программ обработки числовых файлов

Программа создания файла целых чисел

Program Project1;

{---Программа формирования файла целых чисел---}

{$APPTYPE CONSOLE}

Uses SysUtils, EsConsole in ‘EsConsole.pas’;

Var F : File of Integer ;

i, j : Integer ;

begin

Randomize;

AssignFile (F, ‘file.dat’) ;

Rewrite (F) ;

for i := 1 to Random(20) do

begin

j := Random(100) ;

Write (F,j);

end ;

CloseFile (F) ;

end.

Программа обработки файла целых чисел

Program Project1;

{--- Программа распечатки существующего файла целых чисел---}

{$APPTYPE CONSOLE}

Uses SysUtils, EsConsole in ‘EsConsole.pas’;

Var F : File of Integer;

i, j : Integer;

begin

AssignFile (F, ‘file.dat’) ;

Reset (F) ;

{---Распечатка данных из файла на экран---}

WriteLn(‘Исходный файл:’) ;

while not eof(F) do

begin

read (F, i);

write (i : 3) ;

end ;

Writeln;

CloseFile (F) ;

end.

Контрольные вопросы

1. Что такое файл?

2. Как обрабатывать элементы файла в программе?

Тестовые задания

1. КАКИЕ КОНСТРУКЦИИ ИСПОЛЬЗУЮТСЯ ПРИ ОПРЕДЕЛЕНИИ ТИПИЗИРОВАННЫХ ФАЙЛОВ

1. File

2. Of

3. <тип элементов>

4. <тип файла>

5. While

6. Repeat

7. for

1. ВЫБЕРИТЕ ВЕРНЫЙ ПРИМЕР ОПИСАНИЯ ФАЙЛОВ, СОДЕРЖАЩИХ ВЕЩЕСТВЕННЫЕ ЧИСЛА

1. Var f: file of real;

2. Var f: array of real;

3. Var f: real file;

4. Var f: real file real;

5. Var f: real file of real element;

1. ВЫБЕРИТЕ ВЕРНЫЙ ПРИМЕР ОПИСАНИЯ ФАЙЛОВ, СОДЕРЖАЩИХ СИМВОЛЫ

1. Var st: file of string[1];

2. Var st: file of array[1] of char;

3. Var st: char file of char;

4. Var st: file of char;

Практические задания Задание 1: работа с готовым файлом данных (контрольное)

Цель задания

1. Изучение операторов, использующихся при работе с файлами.

2. Получение навыков работы с числовыми файлами.

Постановка задачи

Дан файл целых чисел dosja.my1 (маршрут уточнить у преподавателя). Определить:

• количество элементов в файле;

• серединный элемент файла;

• отсечь данные, составляющие последнюю четверть файла.

Методические указания

1. Программа должна вначале обязательно выводить содержимое исходного файла на экран.

2. После отсечения также вывести оставшееся содержимое файла на экран.

3. Все выводы обязательно сопровождать заголовками.

Задание 2: работа с готовым файлом данных (контрольное)

Цель задания

1. Изучение операторов, использующихся при работе с файлами.

2. Получение навыков работы с числовыми файлами.

Постановка задачи

Дан файл вещественных чисел dosja.my2 (маршрут уточнить у преподавателя). Определить:

• количество элементов в файле;

• серединный элемент файла;

• отсечь данные, составляющие последнюю четверть файла.

Методические указания

1. Программа должна вначале обязательно выводить содержимое исходного файла на экран.

2. После отсечения также вывести оставшееся содержимое файла на экран.

3. Все выводы обязательно сопровождать заголовками.

Задание 3: создание и обработка типизированного файла

Цель задания

1. Изучение алгоритмов обработки типизированных файлов.

2. Закрепление навыков работы с числовыми файлами.

Постановка задачи

Реализовать алгоритм решения задачи, указанной в индивидуальном варианте.

Методические указания

1. Написать одну программу, создающую файл данных. Данные сохранить в файле с расширением my.

2. Написать вторую программу, в которой обрабатываются данные из файла, созданного первой программой.

3. На экран первая программа не выводит ничего, на усмотрение студента можно вывести содержимое файла. Вторая программа обязательно выводит содержимое и найденные значения с заголовками.

Варианты заданий

1 вариант. Дан файл, компоненты которого целые числа. Найти количество четных чисел среди компонент и сумму квадратов нечетных чисел.

2 вариант. Дан файл с компонентами из действительных чисел. Найти разность первой и последней компонент файла.

3 вариант. Дан файл с компонентами из действительных чисел. Найти наибоьшее из значений модулей компонент с нечетными номерами.

4 вариант. Дан файл с компонентами из действительных чисел. Найти наименьшее из значений компонент с четными номерами.

5 вариант. Дан файл с компонентами из действительных чисел. Найти наибольшее из значений компонент файла.

6 вариант. Дан файл с компонентами из действительных чисел. Найти последнюю компоненту файла.

7 вариант. Дан файл с компонентами из действительных чисел. Найти модуль суммы и квадрат произведения компонент файла.

8 вариант. Дан файл с компонентами из действительных чисел. Найти сумму квадратов компонент файла.

9 вариант. Дан файл с компонентами из действительных чисел. Найти произведение компонент файла.

10 вариант. Дан файл с компонентами из действительных чисел. Найти сумму компонент файла.

11 вариант. Дан файл с компонентами из действительных чисел. Найти количество одинаковых элементов в файле.

12 вариант. Дан файл с компонентами из действительных чисел. Найти количество элементов, равных числу, введенному с клавиатуры.