Tham khảo tài liệu 'tự học lập trình pascal tập 1 part 8', công nghệ thông tin, kỹ thuật lập trình phục vụ nhu cầu học tập, nghiên cứu và làm việc hiệu quả | 98 Pascal dành cho học sinh lf sqr a sqr b sqr c or sqr b sqr a sqr c or sqr c sqr b sqr a then Writeln Đó là ba cạnh của một tam giác vuông Else Writeln Đó không phải là ba cạnh của một tam giác vuông Readln End. b. Program CT7b Uses Crt Vara b c Real Begin Clrscr Write 1Mhập ba số dương Write a b c Readln a b c If sqr a sqr b sqr c or sqr b sqr a sqr c or sqr c sqr b sqr a then Writeln Đó là ba cạnh của một tam giác tù Else Writeln ĩ ó không phải là ba cạnh của một tam giác tù Readln End. c. Program CT7c Uses Crt Vara b c Real Begin Clrscr Phần 2. HƯỚNG DAN 99 Write Nhập ba số dương J Write a b c ReadlnỊa b c If sqr a sqr b sqr c and sqr b sqr a sqr c and sqr c sqr b sqr a then Writeln Đó là ba cạnh của một tam giác nhọn1 Else Writeln Đó không phải là ba cạnh của một tam giác nhọn1 Readìn End. 8. Program CT8 Uses Crt Vara b c Real Begin Clrscr Writefa b c ReadlnỊa b c If b-a c-b then Writeln Đó là các số hạng liên tiếp của một cấp số Công Else Writeln Đó không phải là các số hạng liên tiếp của một cấp số cộng1 Readln End. 9. Program CT9 Uses Crt Vara b c d max Real 100 Pascal dành cho học sinh Begin CLRSCR Writefa b c d y Readin a b c d Max a If Max b then Max b If Max c then Max c If Max d then Max d . Write 1Max ar b c d Max Readln End. 10. Program CT10 Uses Crt Vara b c d X y Real D Dx Dy m n Real Begin Clrscr Writefa b c d Readln a b c d Write hi n Readln m n D -a d-c b Dx d m - b n Dy a n -c m If D o then Writeln Hệ phương trinh vô nghiêm hoặc vô số nghiệm Else Writeln Hệ phương trình có nghiêm x Dx D Y Dy D Read In .
