Из опыта создания универсальных тестовых редакторов

| Категория реферата: Рефераты по информатике, программированию
| Теги реферата: особенности курсовой работы, образ жизни доклад
| Добавил(а) на сайт: Казимира.

Writeln('количество правильных ответов: ',p);

Write('оценка '); {выставление оценки}

If z>=90 Then Begin

Writeln('5')

Writeln(b1,’5’);

End; else If z>=70 Then Begin

Writeln('4')

Writeln(b1,’4’);

End; else If z>=40 Then Begin

Writeln('3')

Writeln(b1,’3’);

End; else Begin

Writeln('2')

Writeln(b1,’2’);

End;

Readln;

Write('Фамилия: '); {вписывание фамилии}

Readln(a); d:=length(a); {выставление пробелов}

Write(b1,a); {запись в файл}

For i:=1 to 14-d do Write(b1,' ');

Write('Имя: '); {вписывание имени, процедура повторяется}

Readln(a);

Write(b1,a); d:=length(a);

For i:=1 to 11-d do Write(b1,' ');

Write('Отчесчтво: '); {вписывание отчества, процедура повторяется }