cú pháp: if <điều kiện> then <câu lệnh 1> else <câu lệnh 2>;

cách thực hiện:

 Dạng đủ: Chương trình sẽ kiểm tra điều kiện nếu điều kiện đúng thì  làm câu lệnh 1 sau đó làm câu lệnh tiếp theo, nếu điều kiện sai thì chương trình sẽ bỏ qua câu lệnh 1 và làm câu lệnh 2 sau đó làm câu lệnh tiếp theo.

Vd: Câu lệnh sau:uses crt;

var i,n: integer;

begin

clrscr;

writeln('nhap i: '); readln(i);

writeln(nhap n: '); readln(n);

if i>5 then writeln(i) else writeln(n);

{trong trường hợp này nếu nhập i lớn hơn 5 thì sẽ xuất i ra màn hình nếu không thì xuất n ra màn hình.}

Cú pháp: if <điều kiện> then <câu lệnh 1>

else <câu lệnh 2>;

Vd: If a[i] mod 2=0 then inc(dem)

else inc(dem1);

*Dạng thiếu:

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

VD: if a>b then write(a);

HĐ: Nếu điều kiện đúng thì thực hiện câu lệnh, điều kiện sai thì kết thúc.

*Dạng đủ:

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

VD: if a>b then write(a) else write(b);

HĐ: Nếu điều kiện đúng thì thực hiện câu lệnh 1 ngược lại thực hiện câu lệnh 2 và kết thúc.

*Dạng thiếu:

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

VD: if a>b then write(a);

HĐ: Nếu điều kiện đúng thì thực hiện câu lệnh, điều kiện sai thì kết thúc.

*Dạng đủ:

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

VD: if a>b then write(a) else write(b);

HĐ: Nếu điều kiện đúng thì thực hiện câu lệnh 1 ngược lại thực hiện câu lệnh 2 và kết thúc.

Câu 2: 

-Bước 1: s←0; i←1;

-Bước 2: s←s+i;

-Bước 3: i←i+1;

-Bước 4: Nếu i<=100 thì quay lại bước 2

-Bước 5: Xuất s

-Bước 6: Kết thúc

Câu 3:

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

Câu 4: 

uses crt;

var m,n:integer;

begin

clrscr;

write('Nhap m='); readln(m);

write('Nhap n='); readln(n);

if (m mod 2=0) and (n mod 2=0) then writeln('Ca hai cung la so chan')

else if (m mod 2<>0) and (n mod 2<>0) then writeln('Ca hai cung la so le')

else if (m mod 2=0) and (n mod 2<>0) then writeln('Co mot so la so chan')

else if (m mod 2<>0) and (n mod 2=0) then writeln('Co mot so la so chan')

else if (m mod 2=0) and (n mod 2<>0) then writeln('Co mot so la so le')

else if (m mod 2<>0) and (n mod 2=0) then writeln('Co mot so la so le');

readln;

end.

Câu 5: 

uses crt;

var a,b,c:real;

begin

clrscr;

repeat

write('Nhap a='); readln(a);

write('Nhap b='); readln(b);

write('Nhap c='); readln(c);

until (a>0) and (b>0) and (c>0) and (a+b>c) and (a+c>b) and (b+c>a);

if (a=b) and (a<>c) and (b<>c) then writeln('Tam giac can')

else if (b=c) and (a<>b) and (a<>c) then writeln('Tam giac can')

else if (c=a) and (c<>b) and (a<>b) then writeln('Tam giac can')

else if (a=b) and (b=c) then writeln('Tam giac deu')

else writeln('Day khong phai la tam giac deu hay tam giac can');

readln;

end.

Câu lệnh điều kiện:

Dạng thiếu:

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

Dạng đầy đủ:

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

Lệnh lặp:

Biết trước:

For< Biến đếm > := < Giá trị đầu > to< Giá trị cuối > do < Câu lệnh >;

Chưa biết trước:

while < điều kiện > do < câu lệnh >;

Công thức đọc tên là gì mình ko hiểu @@

Câu 4 đưa ra hình điểm của từ người hs là sao mình ko hiểu nên mình cứ cho là in ra toàn bộ điểm từng người hs nhé, có gì bạn xem xét lại xóa khúc đó:

Bài 4 nữa nhưng muốn nhập nhiêu hs thì tùy(tối đa 100, muốn hơn nữa sữa lệnh khai báo mãng) Khiến khích nên dùng bài này vì nó tiện á:

Cú pháp: while <điều kiện> do <câu lệnh>;

TRong đó: điều kiện thường là phép so sánh

câu lệnh có thể là đơn hoặc ghép

while do là các từ khóa

Cú pháp:

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