з використанням підпрограми типу Procedure для обчислення коренів квадратних рівнянь (x1, x2, y1, y2) виду az2+bz+c=0, приведених в таблиці 8.1
скласти програму на мові Паскаль, що реалізовує побудований алгоритм;
зробити розрахунки на МІКРОЕОМ;
роздрукувати лістинг програми;
початкові дані проміжні і остаточні результати розрахунку вивести на екран відеотерміналу (дисплея) і на друкуючий пристрій (принтер).
Таблиця 8.1
Квадратні рівняння
Початкові дані
((множник)
x2 - 6x+5=0; y2+5y+4=0
P=2.25
0.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.0.6x2+3.2x-8.4=0; 3y2+7y+4=0
P=4.35
Завдання 2: виконати завдання 1 (пп. 1 - 5). В якості множника р узяти суму або твір елементів масиву, вказаних в таблиці 8.2. Обчислення сум і творів оформити у вигляді підпрограм типу Function.