From 7de121c4b4ef888a0d1990c27144a7f9dd8c5f94 Mon Sep 17 00:00:00 2001
From: Raphael McSinyx <vn.mcsinyx@gmail.com>
Date: Sun, 6 Nov 2016 11:13:14 +0700
Subject: Thêm đề HSG 12 huyện Vĩnh Tường, Vĩnh Phúc
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 "9/Q-Hu\341\272\277-2014/bai2.pas" | 35 +++++++++++++++++++++++++++++++++++
 1 file changed, 35 insertions(+)
 create mode 100644 "9/Q-Hu\341\272\277-2014/bai2.pas"

(limited to '9/Q-Huế-2014/bai2.pas')

diff --git "a/9/Q-Hu\341\272\277-2014/bai2.pas" "b/9/Q-Hu\341\272\277-2014/bai2.pas"
new file mode 100644
index 0000000..172137d
--- /dev/null
+++ "b/9/Q-Hu\341\272\277-2014/bai2.pas"
@@ -0,0 +1,35 @@
+var
+  a, b, c, e, p, k, tmp: real;
+
+function det(a, b, c, d: real): real;
+  begin
+    exit(a * d - b * c)
+  end;
+
+begin
+  read(a, b, c, e, p, k);
+
+  tmp := det(a, b, e, p);
+  
+  if tmp <> 0 then
+    begin
+      writeln('x = ', (det(c, b, k, p) / tmp):0:6);
+      writeln('y = ', (det(a, c, e, k) / tmp):0:6);
+      writeln('Hai đường thẳng cắt nhau.')
+    end
+  else if c <> k then
+    begin
+      writeln('Phương trình vô nghiệm.');
+      writeln('Hai đường thẳng song song.')
+    end
+  else
+    begin
+      if a = 0 then
+        writeln('y = ',  (c / b):0:6)
+      else if b = 0 then
+        writeln('x = ', (c / a):0:6)
+      else
+        writeln('x = ', (-b / a):0:6, 'y + ', (c / a):0:6);
+      writeln('Hai đường thẳng trùng nhau.')
+    end;
+end.
-- 
cgit 1.4.1