Assign ( <файловая переменная>, <имя файла>)

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

Для чтения файл инициируется с помощью стандартной процедуры Reset (< файловая переменная>).

Стандартная процедура Rerite (< файловая переменная>) инициирует запись информации в файл, связанный ранее с файловой переменной. Этой процедурой нельзя инициировать запись информации в ранее существовавший дисковый файл: при выполнении старый файл уничтожается.

Стандартная процедура Append (< файловая переменная>) инициирует запись в ранее существовавший текстовый файл для его расширения.

Руководство пользователя

После запуска программы, программы, производится прорисовка интерфейса, после чего пользователю предоставляется выбор уровней сложности тестирования. Первые три уровня, с соответствующим увеличением сложности, содержат теоретические вопросы, на которые пользователь отвечает введением номера варианта с клавиатуры. На обдумывание вопроса дается 30 секунд, после чего экран очищается и программа ожидает ввод ответа. В процессе работы следует дождаться истечения времени и появления курсора в области ответов, после этого программа примет выбранный вариант. После завершения вывода на экран всех вопросов, программа выставляет оценку в зависимости от количества правильных ответов, которое также выводится на экран. Четвертый уровень содержит задачи по химии, на решение которых дается 120 секунд. Первый и третий уровни составляют по 30 вопросов, второй 20, четвертый 10.

Листинг программы

Основная программа

usesCRT, Graph, Mouse, DOS, Entr;

type q = record

a: string[72];

end;

var

f1,f2,f3,f4: text;

mas: array[1..9] of q;

e: array[1..670] of string[72];

i,j,x,y,sum,timer: integer;

z,mark,s1,s2,s3,s4: string;

procedure GraphInit;

var Driver, Mode, Error: integer;

begin

Driver:=Detect;

InitGraph(Driver,Mode,'');

Error:=GraphResult;

if Error<>grok then

begin

Writeln(GraphErrorMsg(Error));

halt;