From 318184dbda0658d8afae6dd3c13a0718382726a1 Mon Sep 17 00:00:00 2001 From: Raphael McSinyx Date: Mon, 9 Jan 2017 10:47:37 +0700 Subject: Add NTU/{pali2,editpic}.c and update README.md --- "09/Q-Hu\341\272\277-2014/bai2.pas" | 35 +++++++++++++++++++++++++++++++++++ 1 file changed, 35 insertions(+) create mode 100644 "09/Q-Hu\341\272\277-2014/bai2.pas" (limited to '09/Q-Huế-2014/bai2.pas') diff --git "a/09/Q-Hu\341\272\277-2014/bai2.pas" "b/09/Q-Hu\341\272\277-2014/bai2.pas" new file mode 100644 index 0000000..172137d --- /dev/null +++ "b/09/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