- Автоматизация
- Антропология
- Археология
- Архитектура
- Биология
- Ботаника
- Бухгалтерия
- Военная наука
- Генетика
- География
- Геология
- Демография
- Деревообработка
- Журналистика
- Зоология
- Изобретательство
- Информатика
- Искусство
- История
- Кинематография
- Компьютеризация
- Косметика
- Кулинария
- Культура
- Лексикология
- Лингвистика
- Литература
- Логика
- Маркетинг
- Математика
- Материаловедение
- Медицина
- Менеджмент
- Металлургия
- Метрология
- Механика
- Музыка
- Науковедение
- Образование
- Охрана Труда
- Педагогика
- Полиграфия
- Политология
- Право
- Предпринимательство
- Приборостроение
- Программирование
- Производство
- Промышленность
- Психология
- Радиосвязь
- Религия
- Риторика
- Социология
- Спорт
- Стандартизация
- Статистика
- Строительство
- Технологии
- Торговля
- Транспорт
- Фармакология
- Физика
- Физиология
- Философия
- Финансы
- Химия
- Хозяйство
- Черчение
- Экология
- Экономика
- Электроника
- Электротехника
- Энергетика
begin. then begin. then begin
begin
readln (f, student.fio);
readln (f, student.rost, student.ves, student.dr.d, student.dr.m, student.dr.g);
if(student.dr.g=2002) and(student.rost>=170) and((student.rost/student.ves>=2) and(student.rost/student.ves<=2.8))
then begin
if not(p)
then begin
writeln ('Кандидаты в баскетбольную команду:');
p:=true;
end;
writeln (student.fio:22, student.rost:5, ' см.', student.ves:5, ' кг', student.dr.d:4, '.', student.dr.m:2);
ifstudent.rost>basketbolist.rost
thenbasketbolist:=student;
end;
end;
close (f);
ifp
thenwrite ('Самый высокий кандидат: ', basketbolist.fio, basketbolist.rost:5, ' см.')
elsewrite ('Кандидатов в команду не найдено.');
end.
Исходный код программы
Запустим программу на выполнение. Данные о мальчиках школы хранятся в заранее подготовленном нами файле Ученики.txt в каталоге по умолчанию. Программа вывела на экран фамилии кандидатов в баскетбольную команду, среди которых самым высоким является ученик по фамилии Борисов, рост которого составляет 188 сантиметров.
Теперь сами создадим пустой текстовый файл в директории по умолчанию, после чего сохраним и закроем его. Запустим программу и введём имя созданного нами файла. Программа вывела на экран сообщение о том, что кандидатов в баскетбольную команду не найдено.
Программа работает правильно. Задача решена.
Важно запомнить:
· Комбинированный тип данныхобъединяет в себе компоненты различных типов, которые называются полями.
· Величина комбинированного типа называется записью.
· Поля записи могут иметь любой тип кроме файлового.
· Для того чтобы обратиться к полю записи используется его составное имя, включающее разделённые точкой имя записи и имя поля.