Автор: dedok 21.05.2004 6:29
Сведения об ученике состоят из его имени и фамилии, названия класса (год обучения и буквы), в котором он учился, оценок полученных учеником за последнюю четверть. Пусть дан массив, содержащий сведения об ученике школы. Выясните, имеются ли в школе ученики у которых совпадают Фамилия и имя.
Автор: BlackShadow 24.05.2004 15:52
Код
Const
N = 20;
Type
TChel=Record
Name:String;
SurName:String;
ClassYear:Integer;
ClassLetter:Char;
Marks:Array[1..10] Of Integer
End;
Var
Data:Array[1..N] Of TChel;
Function Test:Boolean;
Var
i,j:Integer;
Begin
Test:=True;
For i:=1 To N-1 Do
For j:=i+1 To N Do
If (Data[i].Name=Data[j].Name) And (Data[i].SurName=Data[j].SurName) Then
Exit;
Test:=False
End;