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

procedure tlinur.linur;

begin

if a1<>0 then

begin

k:=1;

x1:=-a0/a1

end

else

if a0=0 then k:=-1

else k:=0

end;

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

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

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

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

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

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

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

procedure tlinur.print;

begin

case k of

-1:writeln('любое значение');

0:writeln('решений нет');

1: writeln('один корень=',x1)

end

end;

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