Практикум по программированию на языке Turbo Pascal. Часть 2. Портнягина В.В - 64 стр.

UptoLike

ВУЗ: 

КамчатГТУ | Петропавловск-Камчатский

Составители: 

Рубрика: 

S [1]. SFIO : = 'Иванов В.В.';
S [2]. SFIO : = 'Петров С.В.';
S [3]. SFIO : = 'Сидоров М.В.';
S [4]. SFIO : = 'Яковлев К.П.';
S [5]. SFIO : = 'Пастухов Е.Г.';
{Ввод оценок студентов}
For f : = 1 To STMAX Do
Begin {2}
Writeln ('Введите оценки: ');
Writeln ('Студент –', S [f]. SFIO, ' ');
For b: = 1 To 4 Do
Begin{3}
Write ('Оценка', b, ' : ');
Read (S [f]. SBAL [b]);
End; {3}
End; {2}
{Определение наличия двоек и печать ФИО неуспевающих}
WriteLn (' ');
Textcolor (Lightred);
For f : = 1 To STMAX Do
Begin {4}
two : = False;
For b : = 1 To 4 Do
Begin {5}
If S [f]. SBAL [b] < 3
Then two : = True;
End; {5}
If two Then
WriteLn ('Неуспевающий: ', S [f]. sfio);
End; {4}
End. {1}
Протокол работы программы. Программа СТУДЕНТ.
Введите оценки:
Студент – Иванов В.В.
Оценка 1 :
3
Оценка 2 :
4
Оценка 3 :
4
Оценка 4 : 2
64
S [1]. SFIO : = 'Иванов В.В.';
S [2]. SFIO : = 'Петров С.В.';
S [3]. SFIO : = 'Сидоров М.В.';
S [4]. SFIO : = 'Яковлев К.П.';
S [5]. SFIO : = 'Пастухов Е.Г.';
{Ввод оценок студентов}
For f : = 1 To STMAX Do
Begin {2}
Writeln ('Введите оценки: ');
Writeln ('Студент –', S [f]. SFIO, ' ');
For b: = 1 To 4 Do
Begin{3}
Write ('Оценка', b, ' : ');
Read (S [f]. SBAL [b]);
End; {3}
End; {2}
{Определение наличия двоек и печать ФИО неуспевающих}
WriteLn (' ');
Textcolor (Lightred);
For f : = 1 To STMAX Do
Begin {4}
two : = False;
For b : = 1 To 4 Do
Begin {5}
If S [f]. SBAL [b] < 3
Then two : = True;
End; {5}
If two Then
WriteLn ('Неуспевающий: ', S [f]. sfio);
End; {4}
End. {1}
Протокол работы программы. Программа СТУДЕНТ.
Введите оценки:
Студент – Иванов В.В.
Оценка 1 : 3
Оценка 2 : 4
Оценка 3 : 4
Оценка 4 : 2
                        64

Страницы