- •Министерство образования и науки рф
- •Наука информатика
- •Алгоритмы и программы
- •Информация, ее количественная мера и принципы кодирования
- •Принципы программного управления обработкой информации и структура современных пк
- •Принципы построения и технические характеристики устройств пк Основные устройства
- •Клавиатура
- •Лабораторная работа №1 название: знакомство с эвм, операционной системой и файловыми менеджерами
- •Начальные сведения об операционной системе dos
- •Файлы и каталоги на дисках
- •Работа с программой Dos Navigator
- •Краткая справка по Dos Navigator
- •Краткая справка по текстовому редактоРу среды
- •** Команды перемещения курсора **
- •** Команды удаления/вставки**
- •** Команды работы с блоками **
- •** Команды, передаваемые среде из редактора**
- •Лабораторная работа №3 название: организация ввода/вывода,вычисление выражений,использование стандартных функций
- •Лабораторная работа № 4 название: Организация циклов в программе с использованием условного операторА
- •Лабораторная работа №5 название: Организация циклов в программе с использованием операторов цикла
- •Лабораторная работа № 6
- •Лабораторная работа №7 название: работа с массивами чисел
- •Программа:
- •Лабораторная работа №8 название: упорядочение элементов массива
- •Программа:
- •Программа:
- •Лабораторная работа №9 название: работа с комбинированными типами данных
- •Программа:
- •Результаты работы программы
- •Лабораторная работа №10 название: организация программ с использованием подпрорамм
- •Программа:
- •Результаты работы программы
- •Лабораторная работа №11 название: организация программ с использованием модулей
Лабораторная работа №9 название: работа с комбинированными типами данных
ЦЕЛЬ РАБОТЫ:
1. Получение навыков в организации ввода/вывода значений комбинированных типов данных.
2. Получение практических навыков программирования задач с использованием записей.
ПОСТАНОВКА ЗАДАЧИ:
Имеется список студентов, содержащий сведения о 25 человек. Для каждого студента указано: фамилия, и., о., дата рождения и оценки двух сессий. Информацию о каждом студенте оформить в программе в виде записи. Совокупность записей объединить в массив.
Составить программу, которая обеспечивает ввод полученной информации из файла B.DAT. Получить распечатку программы, получить распечатку файла результатов работы программы. Файл результата должен содержать исходный файл B.DAT и результаты работы.
СОДЕРЖАНИЕ ОТЧЕТА:
1. Задание на лабораторную работу.
2. Блок-схему алгоритма и текст программы.
3. Результаты работы программы.
МЕТОДИЧЕСКИЕ УКАЗАНИЯ:
1. Величина N (количество студентов в группе) должна быть описана в разделе констант.
2. Поля записи, соответствующие оценкам, описать как переменные ограниченного типа.
3. Пример программы:
Программа ZAP вводит из файла B.DAT информацию о пяти студентах:
фамилия, год рождения и оценки последней сессии.
РЕЗУЛЬТАТОМ РАБОТЫ ПРОГРАММЫ ЯВЛЯЕТСЯ СПИСОК ОТЛИЧНИКОВ.
Исходная информация из файла B.DAT
------------------------------------------------------------------
ФАМИЛИЯ ГОД РОЖД. ОЦЕНКИ СЕССИИ
-----------------------------------------------------------------
ВОРОНОВ 1976 3 4 3 3
КАРАТАЕВ 1975 5 5 5 5
КОРОТКОВА 1976 4 5 5 5
РОМАНОВ 1975 5 5 5 5
МАКАРОВ 1975 3 4 5 3
Программа:
PROGRAM ZAP;
CONST N=5; M=15; K=4;
TYPE STUD=RECORD
FAM:ARRAY[1..M] OF CHAR;
GOD: INTEGER;
O:ARRAY[1..4] OF 2..5
END;
VAR B:ARRAY[1..N] OF STUD;
I,J:INTEGER; KEY:BOOLEAN; INF,OUTF:TEXT;
BEGIN
ASSIGN(INF,'B.DAT'); ASSIGN(OUTF,'LAB10.DAT);
REWRITE(OUTF); RESET(INF);
WRITELN(OUTF);WRITELN(OUTF,'АНКЕТНЫЕ ДАННЫЕ И ОЦЕНКИ');
FOR I:=1 TO 4 DO READLN(INF);
FOR I:=1 TO N DO
BEGIN
FOR J:=1 TO M DO
BEGIN
READ(INF,B[I].FAM[J]); WRITE(OUTF,B[I].FAM[J]);
END;
READ(INF,B[I].GOD); WRITE(OUTF,B[I].GOD:5,'Г');
FOR J:=1 TO K DO
BEGIN
READ(INF,B[I].O[J]); WRITE(OUTF,B[I].O[J]:3)
END;
READLN(INF); WRITELN(OUTF);
END;
WRITELN(OUTF); WRITELN(OUTF,'СПИСОК ОТЛИЧНИКОВ');
FOR I:=1 TO N DO
BEGIN
KEY:=TRUE; FOR J:=1 TO K DO
IF B[I].O[J] <> 5 THEN KEY:=FALSE;
IF KEY THEN
BEGIN
FOR J:=1 TO M DO WRITE(OUTF,B[I].FAM[J]);
WRITELN(OUTF,B[I].GOD:5,'Г');
END
END;
CLOSE(OUTF)
END.
Результаты работы программы
АНКЕТНЫЕ ДАННЫЕ И ОЦЕНКИ
ВОРОНОВ 1976г 3 4 3 3
КАРАТАЕВ 1975г 5 5 5 5
КОРОТКОВА 1976г 4 5 5 5
РОМАНОВ 1975г 5 5 5 5
МАКАРОВ 1975г 3 4 5 3
СПИСОК ОТЛИЧНИКОВ
КАРАТАЕВ 1975г
РОМАНОВ 1975г
Контрольные вопросы:
Как описывается комбинированный тип на Паскале?
Как обратиться к полю записи?