Решить систему уравнений - Pascal ABC
Формулировка задачи:
Подскажите пожалуйста, я чет даже не пойму с чего начать. можно даже на qbasic
сделал как по математике, но я уверен что это бред полный.
Решить систему уравнений:
Решение задачи: «Решить систему уравнений»
textual
Листинг программы
var a,b,f,c,d,e,x,y,dd,d1,d2:real; begin writeln('Введите коэффициенты 1 уравнения'); readln(a,b,f); writeln('Введите коэффициенты 2 уравнения'); readln(c,d,e); dd:=a*d-b*c; d1:=f*d-b*e; d2:=a*e-f*c; if dd=0 then writeln('Бесконечное число решений') else begin x:=d1/dd; y:=d2/dd; writeln('x=',x:0:2,' y=',y:0:2) end; end.
Объяснение кода листинга программы
- Создается переменная
a
и присваивается ей значение 0. - Создается переменная
b
и присваивается ей значение 0. - Создается переменная
f
и присваивается ей значение 0. - Создается переменная
c
и присваивается ей значение 0. - Создается переменная
d
и присваивается ей значение 0. - Создается переменная
e
и присваивается ей значение 0. - Создается переменная
x
и присваивается ей значение 0. - Создается переменная
y
и присваивается ей значение 0. - Создается переменная
dd
и присваивается ей значение 0. - Создается переменная
d1
и присваивается ей значение 0. - Создается переменная
d2
и присваивается ей значение 0. - Выводится сообщение 'Введите коэффициенты 1 уравнения'.
- Считываются коэффициенты первого уравнения.
- Выводится сообщение 'Введите коэффициенты 2 уравнения'.
- Считываются коэффициенты второго уравнения.
- Вычисляется значение переменной
dd
с помощью формулыa*d-b*c
. - Вычисляется значение переменной
d1
с помощью формулыf*d-b*e
. - Вычисляется значение переменной
d2
с помощью формулыa*e-f*c
. - Проверяется равенство
dd
нулю. - Если
dd
равно нулю, выводится сообщение 'Бесконечное число решений'. - Если
dd
не равно нулю, выполняется следующий блок кода. - Значение переменной
x
присваивается результату деленияd1
наdd
. - Значение переменной
y
присваивается результату деленияd2
наdd
. - Выводится сообщение 'x=', с указанием значения переменной
x
. - Выводится сообщение 'y=', с указанием значения переменной
y
. - Конец программы.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д