Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Laboratornye_raboty_PASKAL.doc
Скачиваний:
15
Добавлен:
25.03.2015
Размер:
969.22 Кб
Скачать

Задание к лабораторной работе

Составьте программы для решения следующих задач.

Вариант 0n. Запись имеет четыре поля, содержащих фамилию и дату рождения (число, месяц, год) студента. Напишите программу, которая вводит эту информацию и печатает фамилии и даты рождения студентов группы, родившихся <условие А> (табл. 11).

Таблица 11

n

Условие А

n

Условие А

1

После 1970 года

2

В январе месяце

3

15 числа

4

В 1972 году

5

В марте 1973 года

6

10 апреля

7

летом

8

Осенью

9

Зимой

0

Весной

Вариант 1n. Приняв способ изображения точки на плоскости с виде записи с двумя полями x,y:real, напишите программу, определяющую <условие Б> (табл. 12).

Таблица 12

n

Условие Б

1

площадь треугольника, заданного координатами его вершин

2

периметр треугольника, заданного координатами его вершин

3

длины высот треугольника, заданного координатами его вершин

4

длины медиан треугольника, заданного координатами его вершин

5

длины биссектрис треугольника, заданного координатами его вершин

6

радиусы вписанной и описанной окружностей треугольника, заданного координатами его вершин

7

длину окружности, описанной около треугольника, заданного координатами его вершин

8

площадь круга, вписанного в треугольник, заданного координатами его вершин

Продолжение таблицы 12

n

Условие Б

9

периметр четырехугольника, заданного координатами его вершин

0

площадь четырехугольника, заданного координатами его вершин

Вариант 2n. Приняв способ изображения рационального числа в виде записи с двумя полями

числитель, знаменатель: integer;

напишите программу, позволяющую <условие В> (табл. 13).

Таблица 13

n

Условие В

1

складывать рациональные числа a и b и их сумму присваивать рациональному числу c

2

вычитать рациональные числа a и b и результат присваивать рациональному числу c

3

умножать рациональные числа a и b и результат присваивать рациональному числу c

4

делить рациональное число a на b и результат присваивать рациональному числу c

5

определять среднее арифметическое рациональных чисел a и b и результат присваивать рациональному числу c

6

находить абсолютную величину рационального числа a и результат присваивать числу b

7

рациональное число a возводить в целую степень результат присваивать числу b

8

определять равенство двух рациональных чисел a и b

9

вычислять наибольшее из массива рациональных чисел

0

вычислять наименьшее из массива рациональных чисел

Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]