Câu 1: Câu lệnh điều kiện có mấy loại, kể tên và viết cú pháp của chúng, Hoạt động của câu lệnh. Câu 2 Viết câu lệnh thể hiện thuật toán sau: Bước 1: Nhập số n; Bước 2: Nếu n lớn hơn 0 thì thông báo số đã nhập hợp lệ, ngược lại thì thông báo số đã nhập không hợp lệ. Câu 3 Viết chương trình nhập 2 số tự nhiên a,b từ bàn phím và in ra kết quả số lớn nhất? Câu 4Viết chương trình nhập một số tự nhiên từ bàn phím và in ra màn hình kết quả là số chẵn hay lẻ?

1. Câu lệnh điều kiện có 2 loại dạng thiếu và dạng đủ

-Cú pháp:

Dạng thiếu:

If <điều kiện> then <câu lệnh>;

Dạng đủ:

If <điều kiện> then <câu lệnh 1> else <câu lệnh 2>;

-Cách sử dụng: 

+ Sử dụng trong các chương trình có nhiều câu lệnh 

...

-Sơ đồ khối:

Dạng thiếu:

     |Điều kiện

     |      |

Sai|      | Đúng

     |      |

     |Câu lệnh

Dạng đủ:

  Điều kiện

     |                     |

Sai|                     | Đúng

     |                     |

Câu lệnh 1     Câu lệnh 2

VD:

Viết chuong trình nhập vào 2 số, kiểm tra xem số vừa nhập là số âm hay số dương và in ra màn hình

Program bai_lam;

uses crt;

var a,b:integer;

Begin

Write('nhap gia tri cho a');readln(a);

Write('nhap gia tri cho b');readln(b);

If a>0 then write('a la so duong');

                   else ('a la so am');

If b>0 then write('b la so duong');

                   else ('b la so am');

Readln;

End.

3.

Program bai_lam;

uses crt;

var a,b:integer;

Begin

Write('nhap gia tri cho a');readln(a);

Write('nhap gia tri cho b');readln(b);

If a>b then write('a la so lon nhat');

                   else ('b la so lon nhat')

Readln;

End.

4.

Program bai_lam;

uses crt;

var a,b:integer;

Begin

Write('nhap gia tri cho a');readln(a);

Write('nhap gia tri cho b');readln(b);

If a mod 2 =0 then write('a la so chan');

                   else ('a la so le');

If b mod 2 = 0 then write('b la so chan');

                   else ('b la so le');

Readln;

End.

Câu lệnh điều kiện có 2 loại: câu lệnh điều kiện dạng thiếu và câu điều kiện dạng đủ.

* Cú pháp câu lệnh điều kiện dạng thiếu: 

      if <điều kiện> then <câu lệnh>;

* Cú pháp câu lệnh điều kiện dạng đủ:

     if <điều kiện> then <câu lệnh 1>else <câu lệnh 2>;

Hoạt động của các câu lệnh:

- Câu lệnh điều kiện dạng thiếu : Nếu gặp câu lệnh điều kiện này,chương trình sẽ kiểm tra điều kiện.Nếu điều kiện đúng và thỏa mãn,chuong trình sẽ thực hiện câu lệnh được đặc sau từ khóa then.Nếu điều kiện không đúng và không thóa mãn thì nó sẽ không thực hiện và câu lệnh đó sẽ bị bỏ qua.

- Câu lệnh điều kiện dạng đủ: vâu lệnh này chương trình sẽ kiểm tra điều kiệ.Nếu điều kiện được thóa mãn,chương trình sẽ thực hiện câu lệnh 1 sau từ khóa then.Nếu câu lệnh 1 không được thực hiện thì chương trình sẽ bắt dầu thực hiện câu lệnh 2.

Câu 2,3,4 mình xin phép được gôm tất cả lại chung 1 chương trình!

Program Tinhtoan1;

Uses crt;

Var n,a,b,c:integer;

begin

        clrscr;

         write(' Nhap so n : ');readln(n);

          if n>0 then writeln(' So vua nhap hop le ')

           else writeln(' So vua nhap khong hop le ');

          write(' Nhap vao so a : ');readln(a);

          writeln(' Nhap vao so b : ');readln(b);

          if a>b then writeln(' So lon nhat la ', a);

          if a<b then writeln(' So lon nhat la b ', b);

          write(' Nhap vao mot so tu nhien : ');readln(c);

          if c mod 2=0 then writeln(' So vua nhap la so chan ')

           else writeln(' So vua nhap la so le ');

        readln

end.

Chúc em học tốt!!