Имеет ли решение система уравнений? Если имеет - найдите корни (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();
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д