Viết chương trình giải phương trình bậc nhất ax+b=0 pascal
thuật toán giải phương trình bậc I Program GIAI_PHUONG_TRINH_BAC_NHAT; Uses crt; Var a,b,x: real; Begin Clrscr; Writeln('GIAI PHUONG TRINH BAC NHAT: AX + B=0'); Writeln('------------------------------------------------------------'); Write ('Nhap a= '); readln(a); Write ('Nhap b= '); readln(b); If(a=0) then If(b=0) then Writeln(' Phuong trinh co vo so nghiem') Else writeln(' Phuong tring vo nghiem') Else Writeln('Phuong trinh co nghiem x=',-b/a: 4: 2); Readln End. Các bạn có để ý dòng Readln ở gần End. không có dấu ; không, thông thường dòng lệnh cuối cùng trước End. không cần phải ; cũng không bị báo lỗi.
3.4 13 votes Đánh giá bài viết
Lorem ipsum dolor sit amet, consectetur adipiscing elit.Morbi adipiscing gravdio, sit amet suscipit risus ultrices eu.Fusce viverra neque at purus laoreet consequa.Vivamus vulputate posuere nisl quis consequat. Create an account
Lorem ipsum dolor sit amet, consectetur adipiscing elit.Morbi adipiscing gravdio, sit amet suscipit risus ultrices eu.Fusce viverra neque at purus laoreet consequa.Vivamus vulputate posuere nisl quis consequat. Create an account
Đề bài : Viết chương trình giải phương trình ax+b=0
Thông thường để giải phương trình ax+b=0, làm như sau :
Bài giải :
Program GIAI_PHUONG_TRINH_BAC_NHAT; Uses crt; Var a,b,x: real; BEGIN Clrscr; Writeln('GIAI PHUONG TRINH BAC NHAT: AX + B=0'); Writeln('------------------------------------------------------------'); Writeln(‘Nhap a = ‘); readln(a); Writeln(‘Nhap b= ‘); readln(b); If a=0 then If(b=0) then Writeln(' Phuong trinh co vo so nghiem') Else writeln(' Phuong tring vo nghiem') Else Writeln('Phuong trinh co nghiem x=',-b/a: 4: 2); Readln; END. Hướng dẫn chi tiết : Với bài tập này, ta sẽ cần tạo ra 3 biến gồm :
Biến này sẽ có kiểu là real, tức là kiểu số thực.
Program GIAI_PHUONG_TRINH_BAC_NHAT; Uses crt; Var a,b,x: real; {Khai báo các biến } “Có lạc rồi sẽ có rượu” ( clrscr ) sẽ giúp xóa cache trước khi bắt đầu chương trình của chúng ta. Như đã nói cách giải ở bên trên, ta sẽ lần lượt xét các điều kiện như sau : - Nếu a khác 0 thì phương trình có nghiệm x=-b/a(âm b phần a) - Nếu a = 0 và b = 0 thì phương trình có vô số nghiệm - Nếu a = 0 và b khác 0 thì phương trình vô nghiệm Đoạn code dưới đây mình đảo ngược lại so với đoạn mẫu ở phần bài giải 1 chút, bạn dùng cái nào cũng OK nha :
BEGIN Clrsrc; Writeln(‘Giai Phuong trinh bac nhat ax+b=0’); Writeln(‘Nhap a =’); readln(a); Writeln(‘Nhap b=’); readln(b); If (a<>0) then writeln (‘Phuong trinh co Nghiem x =’, -b/a: 4: 2) Else if (a=0 and b!=0) then writeln(‘Phuong trinh co vo so nghiem’) Else writeln(‘Phuong trinh da cho vo nghiem’); Readln; END. Với bài này thì ta có rất nhiều cách để viết với lệnh If Else, tùy thói quen và sở thích của mỗi người mà có cách viết khác . Chúc các bạn học tốt
2019-11-30T09:38:18-05:00 2019-11-30T09:38:18-05:00 Bài 1: Viết chương trình giải phương trình bậc nhất (ax + b = 0)Bài 2: Viết chương trình giải bất phương trình bậc nhất (ax + b >= 0) giải phương trình, bất phương trình bậc nhất, lập trình pascal https://baikiemtra.com/uploads/news/2019_11/bai-tap-lap-trinh-pascal.jpg Bài Kiểm Tra https://baikiemtra.com/uploads/bai-kiem-tra-logo.png Bài 1: Viết chương trình giải phương trình bậc nhất (ax + b = 0)
Bài 2: Viết chương trình giải bất phương trình bậc nhất (ax + b >= 0)
© 2020 Bàikiểmtra.com. All Rights Reserved. |