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

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

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

Таблица 11

n	Условие А	n	Условие А
	После 1970 года		В январе месяце
	15 числа		В 1972 году
	В марте 1973 года		10 апреля
	летом		Осенью
	Зимой		Весной

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

Таблица 12

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

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

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

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

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

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

Таблица 13

n	Условие В
	складывать рациональные числа a и b и их сумму присваивать рациональному числу c
	вычитать рациональные числа a и b и результат присваивать рациональному числу c
	умножать рациональные числа a и b и результат присваивать рациональному числу c
	делить рациональное число a на b и результат присваивать рациональному числу c
	определять среднее арифметическое рациональных чисел a и b и результат присваивать рациональному числу c
	находить абсолютную величину рационального числа a и результат присваивать числу b
	рациональное число a возводить в целую степень результат присваивать числу b
	определять равенство двух рациональных чисел a и b
	вычислять наибольшее из массива рациональных чисел
	вычислять наименьшее из массива рациональных чисел