Вычислить корни системы уравнений - Pascal ABC

Узнай цену своей работы

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

Само задание во вложении. Помогите, пожалуйста. Вообще не представляю как сделать. Можно в принципе просто алгоритм написать дабы сам додумал как сделать. Всё, что написал... это только ввод A. Всё оО Что дальше делать не представляю. Ну вернее Y вроде написал. Но потом что то дошло, что неизвестных многовато...

Решение задачи: «Вычислить корни системы уравнений»

textual
Листинг программы
procedure korni(a:integer;var x,y:real);
var d,d1,d2:integer;
begin
d:=a*a-1;
d1:=a-5;
d2:=5*a-1;
if a=5 then writeln('Корней нет')
else
 begin
  x:=d1/d;
  y:=d2/d;
  writeln('x=',x:0:2,' y=',y:0:2);
 end;
end;
var n,a:integer;
    x,y:real;
begin
write('n=');
readln(n);
for a:=2 to n do
korni(a,x,y);
end.

Объяснение кода листинга программы

  1. В начале кода объявляются переменные n, x и y типа integer и real соответственно.
  2. Затем вызывается процедура korni с аргументами n, x и y.
  3. Внутри процедуры объявляются три дополнительные переменные d, d1 и d2 типа integer.
  4. Вычисляется значение переменной d как a*a-1.
  5. Значения переменных d1 и d2 вычисляются как d1=a-5 и d2=5*a-1.
  6. Проверяется условие a=5. Если оно истинно, то выводится сообщение Корней нет.
  7. Если условие не выполняется, то выполняется блок else.
  8. Внутри блока else вычисляются значения переменных x и y как x=d1/d и y=d2/d соответственно.
  9. Выводится сообщение с значениями x и y.
  10. Конец программы.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

5   голосов , оценка 4.4 из 5
Похожие ответы