Из опыта создания универсальных тестовых редакторов
Категория реферата: Рефераты по информатике, программированию
Теги реферата: особенности курсовой работы, образ жизни доклад
Добавил(а) на сайт: Казимира.
Предыдущая страница реферата | 1 2 3 4 5 | Следующая страница реферата
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('Отчесчтво: '); {вписывание отчества, процедура повторяется }
Рекомендуем скачать другие рефераты по теме: доклад по обществознанию, quality assurance design patterns системный анализ.
Предыдущая страница реферата | 1 2 3 4 5 | Следующая страница реферата