Ramzey
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
[code=pas]
{1.Комбинированный тип записи.
Определить комб тип для представления анкеты школьника, включающей в себя
его ФИО, возраст, № школы, № класса, оценки по пяти предметам.
Ввести инфу о нескольких учениках (или задать типизированной константой) и
напечатать фамилии учеников, обучающихся в № 105 на 4 и 5.}
USES Crt;
TYPE
TOcenki = record
Fizika : byte;
Matem : byte;
Istor : byte;
Fizra : byte;
Litera : byte;
end;
TUchen = record
SureName : string[64];
Name : string[64];
SecName : string[64];
Age : byte;
NSchool : word;
NClass : byte;
Ocenki : TOcenki;
end;
CONST
LenKart = 10;
H = [4,5];
cKart : array [1..LenKart] of TUchen =
((Surename : 'Иванов';Name : 'Иван' ; SecName : 'Иванович';
Age : 10; NSchool : 105; NClass : 4;
Ocenki : (Fizika : 4; Matem : 5; Istor : 4; Fizra : 5; Litera : 5)),
(Surename : 'Петров';Name : 'Петр' ; SecName : 'Петрович';
Age : 12; NSchool : 104; NClass : 6;
Ocenki : (Fizika : 3; Matem : 3; Istor : 4; Fizra : 5; Litera : 3)),
(Surename : 'Сидоров';Name : 'Олег' ; SecName : 'Иванович';
Age : 9; NSchool : 105; NClass : 4;
Ocenki : (Fizika : 5; Matem : 5; Istor : 3; Fizra : 3; Litera : 3)),
(Surename : 'Семенюк';Name : 'Сергей' ; SecName : 'Вадимович';
Age : 11; NSchool : 4; NClass : 5;
Ocenki : (Fizika : 5; Matem : 5; Istor : 3; Fizra : 5; Litera : 5)),
(Surename : 'Рабинович';Name : 'Абрам' ; SecName : 'Цуневич';
Age : 10; NSchool : 105; NClass : 4;
Ocenki : (Fizika : 5; Matem : 5; Istor : 5; Fizra : 5; Litera : 5)),
(Surename : 'Гольдштейн';Name : 'Иссак' ; SecName : 'Вайнбергович';
Age : 10; NSchool : 105; NClass : 4;
Ocenki : (Fizika : 5; Matem : 5; Istor : 5; Fizra : 5; Litera : 5)),
(Surename : 'Путин';Name : 'Владимр' ; SecName : 'Владимирович';
Age : 11; NSchool : 105; NClass : 5;
Ocenki : (Fizika : 5; Matem : 5; Istor : 5; Fizra : 5; Litera : 5)),
(Surename : 'Лукашенко';Name : 'Александр' ; SecName : 'Григорьевич';
Age : 14; NSchool : 105; NClass : 4;
Ocenki : (Fizika : 3; Matem : 3; Istor : 3; Fizra : 5; Litera : 3)),
(Surename : 'Буш';Name : 'Джордж' ; SecName : 'Джорджевич';
Age : 15; NSchool : 10; NClass : 10;
Ocenki : (Fizika : 2; Matem : 2; Istor : 2; Fizra : 5; Litera : 2)),
(Surename : 'Череззаборногозадерищенский';Name : 'Иван' ; SecName : 'Иванович';
Age : 12; NSchool : 14; NClass : 7;
Ocenki : (Fizika : 4; Matem : 5; Istor : 4; Fizra : 5; Litera : 5)));
VAR
i,Sum : word;
BEGIN
clrscr;
writeln('На 4 и 5 в школе 105 учатся:');
for i:=1 to LenKart do
with cKart[i] do
if NSchool = 105 then
begin
with Ocenki do
if (Fizika in H) and (Matem in H) and (Istor in H) and
(Fizra in H) and (Litera in H)
then writeln(Surename)
end;
repeat until keypressed;
END.
[/code]
|
Всего записей: 11 | Зарегистр. 10-12-2006 | Отправлено: 17:47 15-12-2006 | Исправлено: Ramzey, 18:12 15-12-2006 |
|
