Программирование и алгоритмические языки

№

Задание

п/п

диагонали.

В двухмерном массиве элементы каждого столбца упорядочить по увеличению

34значений элементов.

35В двухмерном массиве вычислить сумму элементов каждого столбца.

В двухмерном массиве вычислить количество строк, которые содержат хотя бы

36один положительный элемент.

ЛАБОРАТОРНАЯ РАБОТА № 8

МНОЖЕСТВА, ЗАПИСИ И СТРОКИ В СРЕДЕ ПРОГРАММИРОВАНИЯ TURBO

PASCAL 7.0

ГРУППА БАк-2-12

СОДЕРЖАНИЕ РАБОТЫ

1.Изучить возможности среды программирования Turbo Pascal 7.0, которые позволяют использовать в программе множества, записи и строки.

2.Выполнить анализ задания в соответствии с вариантом.

3.Составить программу на языке программирования Turbo Pascal 7.0 для выполнения поставленного задания.

ПОРЯДОК ВЫПОЛНЕНИЯ ЛАБОРАТОРНОЙ РАБОТЫ

1.Ввести множество, запись или строку с помощью клавиатуры.

2.Вывести на экран монитора исходную запись, множество или строку.

3.Выполнить необходимые преобразования над исходным множеством, записью или строкой, а также выполнить необходимые вычисления.

4.Вывести на экран монитора преобразованное множество, запись или строку, а также вывести результаты вычислений.

ВАРИАНТЫ ЗАДАНИЙ

№

Задание

п/п

Задана строка текста длиной не менее двадцати символов и задан один отдельный

1символ. Вычислить, какое максимальное количество расположенных подряд таких отдельных символов имеется в строке текста.

Задано множество, содержащее все дни недели от понедельника до воскресенья.

2Получить из этого множеств новое множество путем исключения двух произвольных дней.

Задана запись с вариантами, имеющая два поля длиной два байта (тип Integer)

3каждое. Получить значения каждого из четырех байт (тип Byte), составляющих эти два поля записи, по отдельности.

№

Задание

п/п

Задана строка текста длиной не менее двадцати символов и задан один отдельный

4символ. Вычислить все порядковые номера символов в строке, не совпадающие с заданным отдельным символом.

5Задано множество, содержащее все сезоны года от весны до зимы. Получить из этого множеств новое множество путем исключения одного произвольного сезона.

Задана запись с вариантами, имеющая два поля логического типа (тип Boolean)

6каждое. Получить значения каждого из двух байт (тип Byte), составляющих эти два поля записи, по отдельности.

Задана строка текста длиной не менее двадцати символов. Определить, сколько

7слов, разделенных пробелами, имеется в этой строке текста.

Заданы два множества, первое состоит из произвольных десяти чисел в диапазоне

8от 1 до 100, второе состоит из произвольных десяти чисел в диапазоне от 50 до 150. Получить новое множество, состоящее из чисел, которые есть и в первом

множестве, и во втором множестве.

Задана запись, имеющая три поля: первое – высота параллелепипеда, второе –

9ширина параллелепипеда, третье – глубина параллелепипеда. Найти объем и площадь всей поверхности такого параллелепипеда.

Задана строка текста длиной не менее двадцати символов. Определить, сколько

10прописных символов русского и английского алфавитов, и сколько строчных символов русского и английского алфавитов имеется в этой строке текста.

Заданы два множества, первое состоит из произвольных десяти чисел в диапазоне

11от 1 до 150, второе состоит из произвольных десяти чисел в диапазоне от 50 до 200. Получить новое множество, состоящее их чисел, которые есть только в

первом множестве и которых нет во втором множестве.

Задана запись, имеющая три поля: первое – первая сторона треугольника, второе –

12вторая сторона треугольника, третье – третья сторона треугольника. Найти площадь и периметр такого треугольника.

№

Задание

п/п

13Задана строка текста длиной не менее двадцати символов. Определить, сколько символов русского и английского алфавитов имеется в этой строке текста.

Заданы два множества, первое состоит из произвольных десяти чисел в диапазоне

14от 25 до 75, второе состоит из произвольных десяти чисел в диапазоне от 50 до 100. Получить новое множество, состоящее из чисел, которые есть или только в

первом множестве, или только во втором множестве.

Задана запись, имеющая три поля: первое – площадь нижнего основания

15усеченного конуса, второе – площадь верхнего основания усеченного конуса, третье – высота усеченного конуса. Найти объем и площадь всей поверхности

такого усеченного конуса.

Задана строка текста длиной не менее двадцати символов. Определить, сколько

16пробелов имеется в этой строке текста.

Заданы два множества, первое состоит из произвольных десяти чисел в диапазоне

17от 75 до 175, второе состоит из произвольных десяти чисел в диапазоне от 25 до 125. Получить новое множество, состоящее их чисел, которые лежат в диапазоне

от 25 до 175 и которые отсутствуют и в первом множестве, и во втором множестве. Задана запись, имеющая три поля: первое – первая сторона параллелограмма, второе – вторая сторона параллелограмма, третье – угол между первой и второй

18сторонами параллелограмма. Найти площадь и периметр такого параллелограмма.

Задана строка текста длиной не менее двадцати символов и заданы два отдельных

19символа. Выполнить замену первого символа на второй символ во всей строке текста.

Задано множество целых чисел от 1 до 255. Получить из этого множества новое

20множество, в котором отсутствуют числа, кратные 2.

№

Задание

п/п

Заданы три записи, каждая из которых имеет два поля: первое – действительная часть, второе – мнимая часть комплексного числа. Получить третью запись, поля

21которой содержат результат сложения двух комплексных чисел из первой и второй записей.

Задана строка текста длиной не менее двадцати символов. Выполнить перевод

22всех символов этой строки из верхнего регистра в нижний, а из нижнего регистра в верхний.

№

Задание

п/п

Заданы три записи, каждая из которых имеет два поля: первое – действительная часть, второе – мнимая часть комплексного числа. Получить третью запись, поля

30которой содержат результат деления двух комплексных чисел из первой и второй записей.

31Задана строка текста длиной не менее двадцати символов и задан один отдельный символ. Вычислить, какое количество раз этот символ встречается в строке текста.

Задано множество, содержащее все месяцы года от января до декабря. Получить

32из этого множеств новое множество путем исключения четырех произвольных месяцев.

Задана запись с вариантами, имеющая одно поле длиной четыре байта (тип

33LongInt). Получить значения каждого из четырех байт (тип Byte), составляющих это поле записи, по отдельности.

Задана строка текста длиной не менее двадцати символов и задан один отдельный

34символ. Вычислить все порядковые номера символов в строке, совпадающие с заданным отдельным символом.

Задано множество, содержащее все цвета светового спектра от красного до

35фиолетового. Получить из этого множеств новое множество путем исключения трех произвольных цветов.

Задана запись с вариантами, имеющая четыре поля символьного типа (тип Char)

36каждое. Получить значения каждого из четырех байт (тип Byte), составляющих эти четыре поля записи, по отдельности.

ЛАБОРАТОРНАЯ РАБОТА № 9

СОЗДАНИЕ СИСТЕМЫ МЕНЮ В СРЕДЕ ПРОГРАММИРОВАНИЯ TURBO PASCAL 7.0

ГРУППА БАк-2-12

СОДЕРЖАНИЕ РАБОТЫ

1.Изучить возможности среды программирования Turbo Pascal 7.0, которые позволяют использовать в программе систему меню.

2.Выполнить анализ задания в соответствии с вариантом.

3.Составить программу на языке программирования Turbo Pascal 7.0 для выполнения поставленного задания.

ПОРЯДОК ВЫПОЛНЕНИЯ ЛАБОРАТОРНОЙ РАБОТЫ

1.Вывести на экран монитора систему меню, расположенную горизонтально или вертикально. Перед выводом системы меню необходимо вывести заставку.

2.В любой момент времени должен быть выбран только один элемент меню, который должен выделяться с помощью другого цвета, повышенной или пониженной интенсивности свечения, выделения первой буквы в названии или иным способом.

3.Необходимо иметь возможность перемещаться по пунктам горизонтальной системы меню с помощью клавиш <Стрелка влево> и <Стрелка вправо>, а по пунктам вертикальной системы меню с помощью клавиш <Стрелка вверх> и <Стрелка вниз>.

4.Необходимо иметь возможность выбора элемента меню нажатием на клавишу <Enter> или какую-либо другую аналогичную клавишу.

5.Необходимо иметь возможность выхода из системы меню нажатием на клавишу <Esc> или какую-либо другую аналогичную клавишу.

ВАРИАНТЫ ЗАДАНИЙ