Описать Структуру с именем STUDENT с полями NAME-фамилия и инициалы;GROUP-номер группы;SES-успеваемость(массив из 5 элементов).Написать программу, выполняющую следующие действия:
-ввод с клавиатуры данных в массив STUD1, состоящий из 10 структур типаа STUDENT;записи упорядочиваются по алфавиту.
- вывод фамилий и номер группы студентов,имеющих хотя бы одну оценку 2;
-вывод соответствующегося сообщения, если таковых студентов нет.(желательно с функциями и процедурами и чтобы можно было дополнять информацию в файле)
Uses CRT;
Var ocenka : 2..5;
sr_ball : Real;
name : String[15];
nomer : String[10];
baza : Text;
Begin
ClrScr;
Assign(baza, 'baza.txt');
ReWrite(baza);
Repeat
Write('Номер группы:');
ReadLn(nomer);
If (Length(nomer) = 0)
Then Break;
Write(baza, nomer:10);
Write('Фамилия:');
ReadLn(name);
Write(baza, name:15);
Write('Имя:');
ReadLn(name);
Write(baza, name:15);
Write('Оценка:');
ReadLn(ocenka);
Write(baza, ocenka:3);
Write('Ср. балл:');
ReadLn(sr_ball);
WriteLn(baza, sr_ball:6:2);
Until (False);
Close(baza);
ReadLn;
End.
В ней нет:
SES-успеваемость(массив из 5 элементов)
-ввод с клавиатуры данных в массив STUD1, состоящий из 10 структур типаа STUDENT;записи упорядочиваются по алфавиту.
- вывод фамилий и номер группы студентов,имеющих хотя бы одну оценку 2;
-вывод соответствующегося сообщения, если таковых студентов нет.
Помггите плз