Giải bất phương trình ax + b>=0 Pascal
Bài 2: Viết chương trình giải phương trình ax+b=0 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. Bài 3: Viết chương trình giải bất phương trình bậc 1 (ax + b > 0) Program BAT_PHUONG_TRINH_BAC_I; Uses crt; Var a,b: real; Begin Clrscr; Writeln('GIAI BAT PHUONG TRINH BAC NHAT: AX + B>=0'); Writeln('----------------------------------------------------------------------'); Write('nhap a='); readln(a); Write('nhap b='); readln(b); If a<>0 then If a>0 then Writeln('Bat phuong trinh co nghiem: x>=',-b/a: 4: 2) Else Writeln('Bat phuong trinh co nghiem: x<=',-b/a: 4: 2) Else If b>=0 then Writeln('Bat phuong trinh co vo so nghiem') Else writeln('Bat phuong trinh vo nghiem'); Readln End. Bài 4: Viết chương trình giải phương trình (ax2 + bx + c =0) Program GIAI_PHUONG_TRINH_BACII; Uses crt; Var a,b,c,d,x,x1,x2: real; Begin Clrscr; Writeln('GIAI PHUONG TRINH BAC II: '); Writeln('-------------------------------------------'); Write('Nhap he so a='); readln(a); Write('Nhap he so b='); readln(b); Write('Nhap he so c='); readln(c); If a=0 then Trần Văn Chung trường THPT Hoàng Văn Thụ Nha Trang ĐT: 0972.311.481 Trang 5 If b=0 then If c=0 then Writeln('Phuong trinh co vo so nghiem') Else Writeln('Phuong trinh vo nghiem') Else Writeln('Phuong trinh co mot nghiem: x=',-c/b: 4: 2) Else Begin d:=b*b-4*a*c; If d=0 then Writeln('Phuong trinh co nghiem kep: x=',-b/(2*a): 4: 2) Else if d<0 then Writeln(‘phuong trinh vo nghiem’) Else Begin x1:=(-b+sqrt(d))/(2*a); x2:=(-b-sqrt(d))/(2*a); Write('Phuong trinh co hai nghiem: ‘); Writeln(‘ x1=',x1: 4: 2,' va x2=',x2: 4: 2); End; End; Readln End.
January 2, 2012 vn4000 Ví dụ và Bài tập lập trình Pascal
Chương trình giải bất phương trình bậc nhất
Đề bài : Viết chương trình giải bất phương trình bậc 1 (ax + b > 0) Để giải bất phương trình một ẩn,thông thường ta có hai cách giải là: chuyển vế và nhân với một số bất kì nào đó.trường hợp này cũng vậy.
Bài giải : [COLOR=#000000]Program BAT_PHUONG_TRINH_BACI;[/COLOR]
[COLOR=#000000]Uses crt;[/COLOR]
[COLOR=#000000]Var a,b: real;[/COLOR]
[COLOR=#000000]BEGIN[/COLOR]
[COLOR=#000000] Clrscr;[/COLOR]
[COLOR=#000000] Writeln('GIAI BAT PHUONG TRINH BAC NHAT: AX + B > 0');[/COLOR]
[COLOR=#000000] Writeln('———————————————————————-');[/COLOR]
[COLOR=#000000] Write('nhap a=');readln(a);[/COLOR]
[COLOR=#000000] Write('nhap b=');readln(b);[/COLOR]
[COLOR=#000000] If a<>0 then[/COLOR]
[COLOR=#000000] If a>0 then[/COLOR]
[COLOR=#000000] Writeln('Bat phuong trinh co nghiem: x>=',-b/a:4:2)[/COLOR]
[COLOR=#000000] Else[/COLOR]
[COLOR=#000000] Writeln('Bat phuong trinh co nghiem: x<=',-b/a:4:2)[/COLOR]
[COLOR=#000000] Else[/COLOR]
[COLOR=#000000] If b>=0 then[/COLOR]
[COLOR=#000000] Writeln('Bat phuong trinh co vo so nghiem')[/COLOR]
[COLOR=#000000] Else[/COLOR]
[COLOR=#000000] writeln('Bat phuong trinh vo nghiem');[/COLOR]
[COLOR=#000000] Readln;[/COLOR]
[COLOR=#000000]END.[/COLOR][COLOR=#000000]
[/COLOR] Hướng dẫn chi tiết : Như đã nói bên trên, có hai cách giải vì vậy ta sẽ so sánh số a với 0, nếu a>0 thì phương trình có nghiệm -b/a và ngược lại, sử dụng hàm if else. Đầu tiên thì luôn luôn là phần khai báo thông tin cơ bản :
{Khai báo thông tin cơ bản của chương trình} [COLOR=#000000]Program BAT_PHUONG_TRINH_BACI;[/COLOR] [COLOR=#000000]Uses crt;[/COLOR] [COLOR=#000000]Var a,b: real;[/COLOR]{khai báo 2 biến a và b } Xong phần khai báo thông tin cơ bản, đây mới là phần quan trọng. Ta xét ba trường hợp của bất phương trình ax + b > 0 :
Để làm được điều đó ta sẽ sử dụng hàm if để kiểm tra xem nếu a>0 thì sẽ đưa ra kết quả nghiệm bằng -b/a. Ngược là, in ra kết quả trong hàm else a có nghiệm x<= -b/a. So sánh xong a thì làm tương tự với b, nếu b>=0 thì bất phương trình có vô số nghiệm , b<=0 thì bất phương trình vô nghiệm.
[COLOR=#000000]BEGIN[/COLOR] [COLOR=#000000] Clrscr;[/COLOR] [COLOR=#000000] Writeln('GIAI BAT PHUONG TRINH BAC NHAT: AX + B > 0');[/COLOR] [COLOR=#000000] Writeln('———————————————————————-');[/COLOR] [COLOR=#000000] Write('nhap a=');readln(a);[/COLOR] [COLOR=#000000] Write('nhap b=');readln(b);[/COLOR] [COLOR=#000000] If a<>0 then[/COLOR] [COLOR=#000000] If a>0 then[/COLOR] [COLOR=#000000] Writeln('Bat phuong trinh co nghiem: x>=',-b/a:4:2)[/COLOR] [COLOR=#000000] Else[/COLOR] [COLOR=#000000] Writeln('Bat phuong trinh co nghiem: x<=',-b/a:4:2)[/COLOR] [COLOR=#000000] Else[/COLOR] [COLOR=#000000] If b>=0 then[/COLOR] [COLOR=#000000] Writeln('Bat phuong trinh co vo so nghiem')[/COLOR] [COLOR=#000000] Else[/COLOR] [COLOR=#000000] writeln('Bat phuong trinh vo nghiem');[/COLOR] [COLOR=#000000] Readln;[/COLOR] [COLOR=#000000]END.[/COLOR][COLOR=#000000] [/COLOR] Chúc các bạn học tốt !
[COLOR=#000000]Writeln('GIAI BAT PHUONG TRINH BAC NHAT: AX + B > 0');[/COLOR]
[COLOR=#000000] Writeln('Bat phuong trinh co nghiem: x>=',-b/a:4:2)[/COLOR] ???
Viết chương trình giải bất phương trình bậc 1 (ax + b > 0) Program BAT_PHUONG_TRINH_BACI; Uses crt; Var a,b: real; Begin Clrscr; Writeln('GIAI BAT PHUONG TRINH BAC NHAT: AX + B > 0'); Writeln('———————————————————————-'); Write('nhap a=');readln(a); Write('nhap b=');readln(b); If a<>0 then If a>0 then Writeln('Bat phuong trinh co nghiem: x>=',-b/a:4:2) Else Writeln('Bat phuong trinh co nghiem: x<=',-b/a:4:2) Else If b>=0 then Writeln('Bat phuong trinh co vo so nghiem') Else writeln('Bat phuong trinh vo nghiem'); Readln; End.
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. |