Решить характеристическое уравнение системы. - Turbo Pascal

Формулировка задачи:

интересует лишь то, как будет выглядеть программа на паскале: Составить программу определения величины ∆1 (∆2) на языке программирования высокого уровня Сам с паскалем впервые столкнулся и синтаксиса не знаю, прошу помощи.

Код к задаче: «Решить характеристическое уравнение системы. - Turbo Pascal»

textual
var a0, a1, a2, a3, a4, d1, d2: Real;
begin
  Write('a0 a1 a2 a3 a4: '); ReadLn(a0,a1,a2,a3,a4);
  d1:=a1*a2-a0*a3;
  d2:=a1*a2*a3-a0*a3*a3-a1*a1*a4;
  WriteLn('d1 = ',d1,', d2 = ',d2,', система устойчива: ',
    (a1>0) and (a1>0) and (a3>0) and (a4>0) and (d1>0) and (d2>0));
end.

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

7   голосов, оценка 4.429 из 5


СОХРАНИТЬ ССЫЛКУ