Вычислить корни системы уравнений - 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.
Объяснение кода листинга программы
- В начале кода объявляются переменные n, x и y типа integer и real соответственно.
- Затем вызывается процедура korni с аргументами n, x и y.
- Внутри процедуры объявляются три дополнительные переменные d, d1 и d2 типа integer.
- Вычисляется значение переменной d как a*a-1.
- Значения переменных d1 и d2 вычисляются как d1=a-5 и d2=5*a-1.
- Проверяется условие a=5. Если оно истинно, то выводится сообщение
Корней нет. - Если условие не выполняется, то выполняется блок else.
- Внутри блока else вычисляются значения переменных x и y как x=d1/d и y=d2/d соответственно.
- Выводится сообщение с значениями x и y.
- Конец программы.