From 2f674dc80f0382f1c3178f435714960734dc9d3c Mon Sep 17 00:00:00 2001 From: Nguyễn Gia Phong Date: Sat, 6 Jun 2020 21:33:13 +0700 Subject: Reorganize stuff from secondary school --- "09/Q-Hu\341\272\277-2014/bai2.pas" | 35 ----------------------------------- 1 file changed, 35 deletions(-) delete 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" deleted file mode 100644 index 172137d..0000000 --- "a/09/Q-Hu\341\272\277-2014/bai2.pas" +++ /dev/null @@ -1,35 +0,0 @@ -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