1)
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>;
Hoạt động:
- Dạng thiếu:
+ Kiểm tra điều kiện
+ Nếu điều kiện được thỏa mãn, ct sẽ thực hiện câu lệnh sau từ khóa then
+ Ngược lại, câu lệnh đó bị bỏ qua
- Dạng đủ:
+ Kiểm tra điều kiện
+ Nếu điều kiện được thỏa mãn, ct sẽ thực hiện câu lệnh 1 sau từ khóa then
+ Ngược lại, câu lệnh 2 sẽ được thực hiện
2)
program ct;
uses crt;
var i:integer;
S:real;
begin clrscr;
S:=0;
for i:=1 to 100 do S:=S+1/i;
write('Tong S la: ',S);
readln;
end.
Học tốt!