Viết chương trình pascal ax b 0
câu 1:Viết chương trình giải phương trình bậc nhất dạng tổng quát bx+c=0.Các hệ số b,c được nhập từ bàn phím câu 2: Viết phương trình nhập số tự nhiên N từ bàn phím .In ra màn hình tổng các số chẳn trong khoảng từ 1->N câu 3: Viết chương trình Pascal tích lũy thừa bậc n của x vs x là các số thưc, n là các số tự nhiên được nhập từ bàn phím 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) program Phuong_trinh_bac_nhat; uses crt; var a,b : real; begin clrscr; write ('Nhap so a:'); readln(a); write ('Nhap so b:'); readln(b); if (a<>0) then writeln ('Nghiem cua phuong trinh la:', -b/a); if (a=0) and (b=0) then writeln ('Phuong trinh co vo so nghiem'); if (a=0) and (b<>0) then writeln ('Phuong trinh vo nghiem'); readln end. Đề bài : Viết chương trình giải phương trình ax+b=0
Mã:
Với bài tập này, ta sẽ cần tạo ra 3 biến gồm :
Mã: “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 : Mã: 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
|