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

@CatMeow · Регистрация: 21.09.2014

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

Pascal

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.

@Darth Coder · 21.09.2014, 16:13

C#

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();

Опции темы

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

Решение