CÂU LỆNH IF..THEN (PASCAL)

CÂU LỆNH IF..THEN (PASCAL)

cú pháp:  IF <điều kiện> Then <Câu lệnh 1>
                                        Else <Câu lệnh 2>
Trong đó <điều kiện > thường là các phép so sánh gồm có (=, <>, >, <, <=,>=), có thể sử dụng nhiều điều kiện trong một câu lệnh  bằng các phép AND (và), OR (hoặc), NOT, XOR
Bài tập: Viết chương trình giải phương trình bậc 1 : AX+B=0

Gợi ý:
 A:=0; b:=0; 0X+0=0 có vô số nghiệm
A:=0; b:<>0; 0X+b=0 vô nghiệm
A<>0; vd 2x+3=0; x=-3/2; có 1 nghiem x=-b/a

If a=0 then
If b=0 then write(‘ pt co vo so nghiem’) else write(‘pt vo gnhiem’)

Else write(‘nghiem x=’, -b/a);

Chương trình:

program phuong_trinh;
uses crt;
var a,b,x:real;
begin
clrscr;
write('nhap gia tri cua a: '); readln(a);
write('nhap gia tri cua b: '); readln(b);
if a=0 then
if b=0 then write('pt co vo so nghiem')
else write('pt vo nghiem')
else write('nghiem x=',-b/a:10:2);
readln;
end.