Подпрограммы типа Function и Procedure

Задание 1:

составить схему алгоритма вычисления функции

с использованием подпрограммы типа Procedure для вычисления корней квадратных уравнений (x₁, x₂, y₁, y₂) вида az²+bz+c=0, приведённых в таблице 8.1

составить программу на языке Паскаль, реализующую построенный алгоритм;

произвести расчёты на микроЭВМ;

распечатать листинг программы;

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

Таблица 8.1

	Квадратные уравнения	Исходные данные (множитель)
	x2-6x+5=0; y2+5y+4=0	P=2.25
	0.6x2+3.2x-8.4=0; 3y2+7y+4=0	P=4.35
	x2-7x+12=0; 2.5y2+12.5y+10=0	P=7.75
	2.5x2+10x+7.5=0; y2-4y+3=0	P=8.625
	x2+4x+3=0; y2+5y+6=0	P=10.25
	x2-3x+2=0; y2+12y+10=0	P=11.55
	x2-6x+5=0; y2-13y+42=0	P=14.85
	x2-11x+30=0; 2y2-3y-2=0	P=15.45
	x2-6x+5=0; y2+5y+4=0	P=2.25
	0.6x2+3.2x-8.4=0; 3y2+7y+4=0	P=4.35

Задание 2: выполнить задание 1 (пп. 1 - 5). В качестве множителя р взять сумму или произведение элементов массива, указанных в таблице 8.2. Вычисление сумм и произведений оформить в виде подпрограмм типа Function.

Таблица 8.2

	Множ р	Исходные данные
		c0=0.95; c1=1.21; c2=-3.05; c3=2.75;
		c0=1.65; c1=2.6; c2=3.5; c3=5.25;
		c1=1; c2=2; c3=3.21; c4=4;
		c1=0.55; c2=0.67; c3=1; c4=2.5;
		c0=2.75; c1=3.25; c2=4.1; c3=0.84;
		c0=3.2; c1=4.1; c2=0.05; c3=0.085;
		c1=0.25; c2=0.47; c3=3.15; c4=5.25;
		c1=2; c2=5; c3=3.5; c4=2.5;
		c0=0.95; c1=1.21; c2=-3.05; c3=2.75;
		c0=1.65; c1=2.6; c2=3.5; c3=5.25;