Задание 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, больших заданного числа. Результаты запишите в файл.