III. Информационная модель

V. Программная модель

procedure tkvur.kvur;

var d:real;

begin

if a2<>0 then

begin

d:=(sqr(a1)-4*a2*a0);

if d>=0 then

begin

x1:=(-a1+sqrt(d))/(2*a2);

x2:=(-a1-sqrt(d))/(2*a2);

k:=2

end

else

k:=0

end

else linur

end;

Метод вывода решения квадратного уравнения

I. Спецификация

1. Назначение: вывод на экран результатов решения квадратного уравнения

1. Имя: PRINT2
2. Вид: процедура
3. Перечень параметров: без параметров
4. Заголовок: PROCEDURE PRINT2;

II. Метод решения

выбор по значению k из вариантов

Не нашли, что искали? Воспользуйтесь поиском: