Bài Tập Pascal : Viết Chương Trình Giải Bất Phương Trình Bậc 1 (ax+b>0)

Forum

• 
• Diễn đàn
• Mới nhất
• Công nghệ
• Điện thoại
• Máy tính
• Xe
• Thủ Thuật
• Hỏi đáp

Đăng nhập News Feed

Tìm kiếm

Mọi thứ Chủ đề Diễn đàn này Chủ đề này Chỉ tìm trong tiêu đề Bởi: Tìm Tìm kiếm nâng cao… Menu Đăng nhập Đăng ký Install the app Cài đặt You are using an out of date browser. It may not display this or other websites correctly.You should upgrade or use an alternative browser.

• Lập Trình - Đồ họa - Web
• Lập trình
• Pascal
• Bài tập lập trình Pascal

Bài tập Pascal : Viết chương trình giải bất phương trình bậc 1 (ax+b>0)

• Tùng Minky
• 15/12/18

Đề 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 : Mã: [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 : Mã: {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 :

• a <>0 thì phương trình có nghiệm x=-b/a
• a,b =0 thì bất phương trình có vô số nghiệm
• a =0, b <> 0 thì bất phương trình vô nghiệm

Để 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. 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 !

Chủ đề bai tap pascal bai tap pascal 11 hoc pascal pascal co ban

isokids

✩✩

Mã: [COLOR=#000000]Writeln('GIAI BAT PHUONG TRINH BAC NHAT: AX + B > 0');[/COLOR] mà Mã: [COLOR=#000000] Writeln('Bat phuong trinh co nghiem: x>=',-b/a:4:2)[/COLOR] ??? Đăng nhập bằng tài khoản VFO hoặc Facebook Google

Bài viết mới nhất

• Kho truyện ngắn cực hay
  • shopoga
  • 19:40 Hôm qua
• Sách Hay Mỗi Ngày
  • shopoga
  • 19:20 Hôm qua
• T Lộ diện máy tính bảng Honor MagicPad 2
  • Tin Tức
  • 15:35 Hôm qua
• T realme 13 Pro+ trang bị màn hình OLED, SoC Snapdragon 7s Gen 3
  • Tin Tức
  • 15:08 Hôm qua
• T Nothing CMF Phone 1 trang bị màn hình AMOLED, SoC Dimensity 7300
  • Tin Tức
  • 14:54 Hôm qua

Bài viết đang hot

• T OPPO đã chọn ngày ra mắt Reno12 series tại Việt Nam
  • Tin Tức
  • 15:41, Thứ hai
• realme 13 Pro+ trang bị màn hình OLED, SoC Snapdragon 7s Gen 3
  • NTTH
  • 21:35, Thứ tư

Thống kê

Chủ đề 101,045 Bài viết 468,064 Thành viên 339,967 Thành viên mới nhất congggameiwin

Bài viết được quan tâm nhiều

• OPPO A3x trang bị SoC Snapdragon 680, camera chính 8MP
  • Tin Nhanh
  • 13:56, Thứ ba
• Intel chính thức bổ nhiệm lãnh đạo mới cho nhà máy tại Việt Nam
  • TCBC
  • 10:00, Thứ ba
• T OPPO đã chọn ngày ra mắt Reno12 series tại Việt Nam
  • Tin Tức
  • 15:41, Thứ hai
• T Huawei ra mắt MatePad SE 11 (2024) Vitality Edition: màn hình 11 inch, SoC Snapdragon 685
  • Tin Tức
  • 16:43, Thứ hai
• Đ Loa bluetooth JBL Clip 5: kiểu dáng nhỏ gọn có móc đa năng và âm thanh ưng ý
  • Được tài trợ
  • 08:52, Thứ tư

Top