Задание 1. Запись вводимых данных во внешний файл

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

Program Primer_1;

Var i: Integer;

x: Real;

F: File Of Real;

Begin

Assign(F,'d:\TP5\a.dat'); {Связываем переменную F с файлом a.dat}

Rewrite(F); {файл F открывается для записи}

For i:=1 to 7 do

Begin

Read(Х); {число запрашивается c клавиатуры и становится значением промежуточной переменной Х}

Write (F, Х) {значение Х записывается в очередной компонент файла}

End;

Close(F)

End.

После запуска программы и ввода чисел на диске d: в папке TP5 будет создан файл с именем a.dat, содержащий введенные числа. Если нужно изменить количество вводимых чисел, то в программе следует изменить верхнюю границу параметра i.

Задание 2. Чтение данных из файла

Составить программу чтения данных из внешнего файла и вывод их на экран монитора.

Program Primer_2;

Var i: Integer;

x: Real;

F: File Of Real;

Begin

Assign(F,'d:\TP5\a.dat'); {Связываем переменную F с файлом a.dat}

Reset(F); {файл F открывается для чтения}

While Not(Eof(F)) Do

Begin

Read(F,Х); {число запрашивается из файла F и становится значением промежуточной переменной Х}

Write (Х, ‘ ‘)

End;

Close(F)

End.

Задание 3. Нахождение суммы компонент числового файла

Создайте файл вещественных чисел и найдите сумму компонент этого файла.

Program Primer_3;

Var i: Integer;

x, sum: Real;

F: File Of Real;

Begin

Assign(F,'d:\TP5\a.dat'); }

Rewrite(F);

For i:=1 to 5 do

Begin

Readln(Х);

Write (F, Х)

End;

Close(F);

sum:=0;

Reset(F);

While Not(Eof(F)) Do

Begin

Read(F,Х);

sum:=sum+X

End;

Close(F);

Writeln(sum:4:2)

End.

Задание 4. Вывод списка учащихся из файла

Написать программу, которая вводит с клавиатуры список фамилий учащихся, а затем распечатывает его, кроме тех учащихся, у которых фамилия начинается с буквы "А".

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

Program Primer_4;

Var I,N: Integer;

F: File Of String;

S: String;

Begin

Assign(F,'Spis.lst'); {Связываем переменную F с файлом Spis.lst}

Writeln('Введите количество учащихся');

Readln(N); {Вводим количество учащихся}

Rewrite(F); {Создаем файл для записи в него данных}

For I:=1 To N Do {Для всех учащихся}

Begin

Writeln('Введите фамилию');

Readln(S);

Write(F,S)

End;

Close(F);

Reset(F);

Writeln;

Writeln('Список учащихся:');

While Not(Eof(F)) Do

Begin

Read(F,S);

If S[1]<>'А' Then Writeln(S)

End;

Close(F)

End.

Контрольное задание

Вариант вашего задания задает преподаватель!

Отчет по заданию оформите в письменном виде!

Отчет должен содержать условия задачи, блок-схему алгоритма, текст программы, исходные данные и результаты.

1. Создайте файл f, компоненты которого являются действительными числами. Напишите программу вычисления суммы компонент файла f и произведения ненулевых компонент этого файла, меньших по модулю единицы. Результаты запишите в файл.

2. Создайте файл f, компоненты которого являются действительными числами. Напишите программу вычисления суммы компонент файла f и наименьшей компоненты этого файла. Результаты запишите в файл.

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

4. Создайте файл f, компоненты которого являются целыми числами. Напишите программу нахождения квадрата суммы нечетных компонент файла f и найдите наименьшую четную компоненту этого файла. Результаты запишите в файл.

5. Создайте файл f, компоненты которого являются целыми числами. Напишите программу подсчета нечетных и четных компонент файла f и определите, каких из них больше. Результаты запишите в файл.

6. Создайте файл f, компоненты которого являются целыми числами. Напишите программу нахождения минимальной компоненты файла f, кратной 11 и определите, совпадает ли данная компонента с максимальной компонентой файла. Результаты запишите в файл.

7. Создайте файл f, компоненты которого являются целыми числами. Напишите программу, переписывающую компоненты файла в обратном порядке. (Новый файл не заводить!).

8. Составьте программу подсчета числа различных компонент целочисленного файла. Результаты запишите в файл.

9. Составьте программу, определяющую чаще всего встречающуюся компоненту файла f. Результаты запишите в файл.

10.Выясните, какая из компонент целочисленного файла – первая или последняя встречается в файле f чаще.

11.Дан файл f, компоненты которого являются целыми числами. Составьте программу, записывающую в файл g все четные числа файла f, а в файл h - все нечетные. Порядок следования чисел при этом должен сохраняться.

12.Даны символьные файлы f и g. Составьте программу, записывающую в файл h сначала компоненты файла f, затем – компоненты файла g с сохранением порядка.

13.Даны целочисленные файлы f и g. Определите, совпадают ли компоненты файла f с компонентами файла g. Получите номер первой компоненты, в которой файлы f и g отличаются между собой. В случае, когда один из файлов имеет n компонент (n>=0) и повторяет начало другого (более длинного) файла, ответом должно быть число n+1.

14.Дан файл f, компоненты которого являются целыми числами. Составьте программу, записывающую в файл g все компоненты файла f, делящиеся на 3 и принадлежащие интервалу (C,D).

15.Составьте программу, выясняющую, какое из чисел m или n встречается в целочисленном файле f чаще.

16.Составьте программу подсчета числа различных четных компонент целочисленного файла.

17.Создайте текстовый файл p, разбитый на непустые строки. Составьте программу, которая построчно печатает содержимое файла, вставляя в начало каждой печатаемой строки ее порядковый номер (он должен занимать 4 позиции) и пробел.

18.Составьте программу упорядочения (по возрастанию) компонент целочисленного файла f.

19.Составьте программу, увеличивающую каждую отрицательную компоненту файла на 2, после чего подсчитайте количество положительных и отрицательных компонент полученного файла.

20.Составьте программу вычисления суммы положительных компонент целочисленного файла. Результаты запишите в файл.

21.Составьте программу подсчета того, сколько раз максимальная компонента файла встречается в этом файле. Результаты запишите в файл.

22.Составьте программу, определяющую реже всего встречающуюся компоненту файла f. Результаты запишите в файл.

23.Выясните, какая из компонент целочисленного файла – первая или вторая встречается в файле f чаще.

24.Дан файл f, компоненты которого являются целыми числами. Составьте программу, записывающую в файл g все числа файла f, записанные на четных позициях, а в файл h - на нечетных позициях.

25.Даны символьные файлы f и g. Составьте программу, записывающую в файл h сначала компоненты файла f, затем – компоненты файла g в обратном порядке.

26.Создайте файл f, компоненты которого являются действительными числами. Напишите программу вычисления количества компонент файла f, равных его наименьшей компоненте. Результаты запишите в файл.

27.Создайте файл f, компоненты которого являются действительными числами. Напишите программу вычисления разности между наибольшей и наименьшей компонентами этого файла. Результаты запишите в файл.

28.Создайте файл f, компоненты которого являются целыми числами. Напишите программу нахождения суммы квадратов четных компонент файла f. Результаты запишите в файл.

29.Создайте файл f, компоненты которого являются целыми числами. Напишите программу нахождения количества компонентов файла f, меньших заданного числа. Результаты запишите в файл.

30.Создайте файл f, компоненты которого являются целыми числами. Напишите программу нахождения суммы компонентов файла f, больших заданного числа. Результаты запишите в файл.