Read(с);
With x Do begin a:=ord(c); b:=c end;
у:=х;
if х=у Then у:=f(х);
With у Do Writeln(а, х);
Еnd.
4. Опишите, используя структуру записи, вступительные экзамены, на которых абитуриенты сдавали по три экзамена, а для поступления нужно было набрать 12 баллов. Составьте программу, считывающую с клавиатуры результаты всех вступительных экзаменов и выводящую на экран следующую информацию:
• список абитуриентов, сдавших все экзамены на 5
• список абитуриентов, потерпевших неудачу на экзаменах
• список абитуриентов, зачисленных в институт
5. Приведите пример программы, используя запись, содержащую следующую информацию: название, вес, среда обитания животного и для рептилий указать - вымерли или нет, для птиц — размер яйца, окольцованы или нет, являются ли перелетными, для млекопитающих - размер головного мозга, средний размер рождаемого детеныша, домашние или дикое.
Вариант №7
1. Опишите запись с именем типа Sport, содержащую информацию о лучших спортивных достижениях школы:
- название вида спорт (тип string),
- фамилия чемпиона (тип string),
- сообщение о результате (тип string).
Переменную, определяющую запись, назовите Rec.
2. Составить программу, которая описывает запись с именем, Vedomost (предмет, номер группы, дата экзамена, ФИО студента, номер зачетной книжки, оценка за экзамен) и обеспечивает ввод данных.
3. Определить какие значения будут иметь переменные z, w,p и re после выполнения следующих операторов:
Туре Соmр1ех=record rе, im:Real end;
Point=record х, у:Real end;
Var z, w: Complex; р: Point; re:Real;
Begin
With z Do Begin re:=0; im:=1 end;
w:=z; re:=2;
With z Do re:=1;
4. Опишите, используя структуру записи, цветочный магазин. Составьте программу, считывающую с клавиатуры данные о товаре (цена, количество поступившего в продажу и проданного товара) и выводящую на экран сведения о самом дорогом товаре, самом ходовом. Вывести на экран в виде таблицы сведения о всем товаре в отсортированном виде (по алфавиту), а так же информацию о интересующем товаре.
5. Приведите пример программы, используя запись, содержащую следующую информацию о кораблях: название, порт приписки, тоннаж и в зависимости от вида: для парусных судов - количество мачт, общая площадь парусов; для механических - мощность двигателя, количество двигателей, назначение; для атомных - используемое топливо, тип реактора.
Вариант № 8.
1. Опишите запись с именем типа Geometr, содержащую информацию об оценках студентов вашей группы по геометрии:
- Ф. И.О. (тип string);
- Оценки за семестр, max по 20 оценок в месяц.
Переменную, определяющую запись, назовите Dig.
2. Составить программу, которая описывает запись с именем Kniga, содержащую информацию о библиотечных фондах: автор книги, название, год издания, количество читателей прочитавших книгу, и обеспечивает ввод данных.
3. Определить какие значения будут иметь переменные z, w,p и re после выполнения следующих операторов:
Туре Соmр1ех=rесоrd re, im:Rеа1 end;
Роint=rесоrd х, у:Rеа1 end;
Var z, w: Соmр1ех; р: Роint; rе:Rеа1;
Begin
With z, w Do im:=-im; re:=0; im:=1 end;
With p Do Begin x:=re; y:=2 end;
4. Опишите запись с именем типа Sport, содержащую информацию о лучших спортивных достижениях школы по легкой атлетике:
• название вида атлетики (тип string);
• фамилия рекордсмена (тип string);
• дата установления рекорда (запись Dat, состоящая из полей Day, Моnth, Уеаr);
• сообщение о результате (тип Rеа1).
5. Приведите пример программы, используя запись, содержащую следующую информацию о пространственных телах: название, объем, площадь поверхности и для тел вращения указать - название фигуры, при вращении которой получается исходная, радиус, ось вращения.
Вариант №9
1. Опишите запись с именем типа Rasp, содержащую информацию о движении автобусов из вашего города:
• направление (типа string);
• время отправления автобуса (типа Rеа1).
Переменную, определяющую запись, назовите R.
2. Составить программу, которая описывает таблицу химических элементов, отображая следующую информацию: название, символическое обозначение, массу атома, заряд атомного ядра, перечень основных химических свойств. Программа должна выполнять ввод данных.
3. Дан тип:
Туре Роint_1=Аrrау [(х, у)] оf Rеаl;
Роint_2=Rесоrd х, у: Rеа1 еnd;
Vаr р1: Роint_1; р2: Роint_2; d: Rеа1;
Почему допустим данный раздел типов, хотя в нем одними и теми же именами (х и у) обозначены разные объекты (индексы и поля)?
4. Опишите, используя структуру записи, школьный класс (фамилия, инициалы, дата рождения, год рождения). Составьте программу, считывающую с клавиатуры данные об учащихся класса и выводящую на экран данные о днях рождения учащихся по месяцам. Например: Январь - 12 , 23 , 30 и т. д.
5. Приведите пример программы, используя запись, содержащую следующую информацию о летательных аппаратах: название, количество пассажиров, которое можно взять на борт, название аэропорта и в зависимости от вида указать: для самолетов и вертолетов -конструкторское бюро, мощность двигателя, наличие вертикального взлета, для воздушных шаров - количество полетов, участие в соревнованиях, вид топлива, для космических аппаратов - количество ступеней, возвращаемый или нет, автоматически пилотируемый или нет, для ЭНЛО - видели или нет, форма аппарата.
Вариант №10
1. Опишите запись с именем типа Post, содержащую информацию в почтовой базе о подписчиках на журналы и газеты:
- ФИО (типа string);
- Адрес (типа string);
- 10 строк с названием газет и журналов.
Переменную, определяющую запись, назовите G.
2. Составить программу, которая описывает запись с именем Tkani (название ткани, ширина, цвет, стоимость 1 метра) и обеспечивает ввод данных.
3. Дан тип:
Туре Рoint_1=Аrrау [(х, у)] of Rеаl;
Роint_2=Rесоrd х, у: Real end;
Vаr р1: Роint_1; р2: Роint_2; d: Rеа1;
Переменной d присвоить расстояние между точками р1 и р2.
4. Опишите запись с именем типа Systema, содержащую информацию о планетах солнечной системы: название планеты, расстояние до Солнца; диаметр, апогей, перигей и спутники. Составить программу, которая обеспечивает ввод данных, поиск самой отдаленной планеты от Солнца и самой ближайшей к Земле.
5. Составить программу, которая описывает записьGibdd, содержащую следующую информацию: марка машины, цвет, номер, год выпуска и для частных машин указать: Ф. И.О. владельца, адрес, вид страховки, а для машин предприятий - название организации, пробег.
Лабораторная работа № 10
Программные модули
Цель: овладеть навыками алгоритмизации и программирования структуры модуля, навыками использования модулей, приобретение навыков по компиляции модулей и отладке программ.
Студент должны знать: понятие модуля; синтаксис зарезервированных слов структуры модуля; структуру модуля; правила компиляции модулей; стандартные модули Pascal.
Студент должны уметь: компилировать модули; организовать доступ к объектам объявленным в модуле; использовать стандартные модули Pascal.
Теоретические вопросы:
1. Что такое модуль?
2. Структура модуля.
3. Заголовок модуля и связь модулей друг с другом.
4. Интерфейсная часть.
5. Исполняемая часть.
6. Инициирующая часть.
7. Компиляция модулей.
8. Доступ к объявленным в модуле объектам.
9. Стандартные модули.
Вариант №1
1. Написать модуль, рисующий снежинку.
2. Составить программу, рисующую снегопад (используя модуль, написанный в предыдущей задаче).
Вариант №2
1. Составить модуль, реализующий решение квадратного уравнения.
2. Напишите программу, использующую модуль, составленный в предыдущей задаче.
Вариант №3
1. Составить модуль, переводящий числа из десятичной системы счисления в двоичную систему счисления.
2. Напишите программу, реализующую сложение и вычитание чисел в двоичной системе счисления.
Вариант №4
1. Составить модуль, рисующий падающую линию.
2. Напишите программу, использующую этот модуль.
Вариант № 5
1. Написать модуль, переводящий числа из шестнадцатеричной системы счисления в двоичную систему.
2. Напишите программу, реализующую сложение чисел в шестнадцатеричной системе счисления.
Вариант № 6
1. Создать модуль, реализующий арифметику комплексных чисел.
2. Напишите программу, использующую модуль, составленный в предыдущей задаче.
Вариант №7
1. Создать модуль, закрепляющий за определённой клавишей конкретную ноту и длительность ее звучания.
2. Напишите программу, позволяющую исполнять произвольную мелодию.
Вариант №8
1. Написать модуль, рисующий звезду.
2. Составить программу, имитирующую звездное небо
Вариант №9
1. Написать модуль, строящий три художественные рамки для текста.
2. Напишите программу, которая позволяет оформить поздравление в художественную рамку по выбору пользователя.
Вариант №10
1. Написать модуль, строящий графики трёх каких-нибудь функций, и программу, использующую этот модуль.
2. Напишите программу, использующую этот модуль
Лабораторная работа № 11
Файлы. Обработка внешних файлов
Цель лабораторной работы: закрепление теоретических знаний о сложных структурах данных языка Паскаль; овладение практическими навыками разработки алгоритмов и программ, использующих внешние текстовые и типизированные файлы.
Студент должен знать: назначение файлов в алгоритмах и программах; виды файлов; правила определения файловых переменных в языке программирования Паскаль, основные процедуры и функции работы с файловым типом в Паскале; ограничения на использование файлов.
Студент должен уметь: записывать блок-схемы решаемых задач, программировать алгоритмы, использующие файловые переменные, использовать различные приемы программирования работы с файлами.
|
Из за большого объема этот материал размещен на нескольких страницах:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 |
