diff options
author | Raphael McSinyx <vn.mcsinyx@gmail.com> | 2016-11-06 11:13:14 +0700 |
---|---|---|
committer | Raphael McSinyx <vn.mcsinyx@gmail.com> | 2016-11-06 11:13:14 +0700 |
commit | 7de121c4b4ef888a0d1990c27144a7f9dd8c5f94 (patch) | |
tree | 2a298c9a957ad490cf8251ab264413f4effa9dce /9/TP-Huế-2014/bai2.pas | |
parent | e4767bb46d1d759f9c863704e3f347d2a0c8c49a (diff) | |
download | cp-7de121c4b4ef888a0d1990c27144a7f9dd8c5f94.tar.gz |
Thêm đề HSG 12 huyện Vĩnh Tường, Vĩnh Phúc
Diffstat (limited to '9/TP-Huế-2014/bai2.pas')
-rw-r--r-- | 9/TP-Huế-2014/bai2.pas | 35 |
1 files changed, 0 insertions, 35 deletions
diff --git a/9/TP-Huế-2014/bai2.pas b/9/TP-Huế-2014/bai2.pas deleted file mode 100644 index 172137d..0000000 --- a/9/TP-Huế-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. |