​Cú pháp lệnh điều kiện

​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>

else <câu lệnh>;​

​Bài tập 1:

Nhập chương trình sau vào Turbo Pascal. Biên dịch và chạy.

​program TH;

uses crt;

var n:integer;

begin

write('Nhap vao n: ');

readln(n);

​if n mod 2 = 0 then write('chan')

else write('le');

readln;

end.​

​

​Bài tập 2

​Viết chương trình nhập vào 2 số nguyên a và b. Xuất ra màn hình số lớn nhất trong 2 số.

VD:

Input: ​2 3

​

Subject | Subject

Some text here about the topic of discussion

​Bài tập 3

​Viết chương trình nhập vào 3 số nguyên a, b và c. Xuất ra màn hình số lớn nhất trong 3 số.

VD:

Input: 5 3 4

Output: 35

​

​Bài tập 2: Đáp án

program TH;

uses crt;​

var a,b:integer;

begin

read(a,b);

if a>b then write(a)

else write(b);​

end.​

​

​Bài tập 3: Đáp án

program TH;

uses crt;​

var a,b,c:integer;

max: integer;​

begin

read(a,b,c);

max:=a;​

​

​

​

if b > max

then

max:=b

​else if c>max then

max:=c;

write('so lon nhat la ',max);

readln;

end.​

​

​