Имеет ли решение система уравнений? Если имеет - найдите корни (Pascal -> C#)

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

Определите, имеет ли решение система ax+by=c, dx+ey=f Если имеет, найдите корни.

                    Листинг программы
                
 
                        
                          
                    
uses crt;
var a,b,c,d,e,f:real;
begin
 clrscr;
 writeln('vvodite koeficienti');
read(a,b,c,d,e,f);
if (a/d=b/e) and (b/e=c/f) and (a/d=c/f) and (b/e=c/f) then writeln('net resheniy');
readln
end.

Решение задачи: «Имеет ли решение система уравнений? Если имеет - найдите корни (Pascal -> C#)»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Double a,b,c,d,e,f;
Console.WriteLine("вводите коофиценты");
a=Convert.ToDouble(Console.ReadLine());
b=Convert.ToDouble(Console.ReadLine());
c=Convert.ToDouble(Console.ReadLine());
d=Convert.ToDouble(Console.ReadLine());
e=Convert.ToDouble(Console.ReadLine());
f=Convert.ToDouble(Console.ReadLine());
if ((a/d==b/e) && (b/e==c/f) && (a/d==c/f) && (b/e==c/f)) Console.WriteLine("нет решений");
Console.ReadLine();

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

6 голосов , оценка 4.167 из 5

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

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

Похожие ответы