Контрольная работа № 6
(файлы, модули)

1. Точно и однозначно сформулировать условие задачи, решение которой приведено ниже.

Program Example_File_1;
Var F : File Of Real; G : File Of Integer;
    S : String; A : Real; B : Integer;
Begin
	Write('Имя файла? '); ReadLn(S); Assign(F, S);
	Write('Имя файла? '); ReadLn(S); Assign(G, S);
	ReSet(F); ReWrite(G);
	While Not Eof(F) Do
	Begin
		Read(F, A); B := Trunc(A); B := Ord(Odd(B)) * B; Write(G, B)
	End; Close(F); Close(G)
End.

2. Решить задачу: заполнить файл целыми числами из отрезка [-1000; 1000] с помощью датчика случайных чисел. Переписать в один из новых файлов те из компонент исходного файла, модуль которых является простым числом, в другой — все остальные.

3. Решить задачу: сведения о результатах сессии студентов второго курса (фамилия, номер группы и оценки по трем экзаменам) хранятся в файле:

	Type Stud = Record
			fam:string[12];
			num:121..126;
			otm1, otm2, otm3: 2..5;
		    end;
	Var Kurs: File of Stud;

4. Решить задачу: удалить из файла, содержащего целые числа, неположительные компоненты. Дополнительных файлов и массивов не использовать.

5. Решить задачу: разработать модуль для работы с векторами вида a(a₁, a₂). Реализовать операции сложения, вычитания, нахождения длины вектора. Используя модуль, переписать из данного файла в другой те векторы, длины которых больше заданного K.