[Lập Trình Pascal] Bài 3 : Câu Lệnh Rẽ Nhánh If…then…

Trang chủ » Câu Lệnh If Else Pascal » [Lập Trình Pascal] Bài 3 : Câu Lệnh Rẽ Nhánh If…then…

Có thể bạn quan tâm

Khi thỏa mãn một số điều kiện nào đó  thì chương trình sẽ thực thi một số câu lệnh bất kỳ .if diagram 1. If ĐK then Câu lệnh cần thực hiện ví dụ : if ĐTB>=8 then write(‘ Hoc luc gioi ‘) ;

2.If ĐK then Câu lệnh cần thực hiện else Câu lệnh ; ví dụ : If a>b then max:=a else max:=b ;

3. If ĐK then Câu lệnh else if (ĐK) then Câu lệnh else Câu lệnh ; Ví dụ : if (ĐTB >=8.0) then write(‘Hoc luc gioi’) else if (6<=ĐTB<8  ) then write(‘Hoc luc kha’) else write(‘Hoc luc trung binh’) ;

Chú ý : Trước else không có dấu “;”

Một số ví dụ về lệnh if Bài 1 : Kiểm tra xem một điểm có thuộc đường tròn hay không program diem_duongtron; uses crt; var d,r:integer; begin clrscr; write(‘Nhap vao khoang cach tu diem den tam duong tron’);readln(d); write(‘Nhap vao bán kính đường tròn ‘);readln(r); if(d=r) writeln(‘Diem thuoc duong tron’) else if(d<r) writeln(‘Diem nam ben trong duong tron’); else write(‘Diem nam ngoai duong tron ‘); readln; end.

Bài 2: Nhập vào 3 số .Tìm số lớn nhất program tim_max; uses crt; var a,b,c,max:integer; begin clrscr; write(‘Nhap a : ‘);readln(a); write(‘Nhap b : ‘);readln(b); write(‘Nhap c : ‘);readln(c); max:=a; if max<b then max:=b; if max<c then max:=c; writeln(‘Max : ‘,max); readln; end.

Share this:

  • X
  • Facebook
Like Loading...

Related

Từ khóa » Câu Lệnh If Else Pascal