1) Nêu cú pháp và cách hoạt động của câu lệnh điều kiện 2) Viết ct tính S=1+1/2+1/3+...+1/100
2 câu trả lời
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!
1/ câu lệnh điều kiện
Dạng thiếu: $\text{If (điều kiện) then (công việc)}$
Cách hoạt động: Kiểm tra điều kiện,nếu dùng thì thực hiện công việc ,nếu sai thì thoát ra ,không thực hiện công việc
Dạng đủ
$\text{If (điều kiện) then (công việc1) else (công việc2)}$
Cách hoạt động: Kiểm tra điều kiện,nếu dùng thì thực hiện công việc 1 ,nếu sai thì thực hiện công việc 2
2/
Program Hotboy;
Uses crt;
Var S,i: real;
Begin
Clrscr;
S:=0;
For i:=1 to 100 do
S:=S+1/i;
Inc(i);
Writeln('S can tim la',S:3:6);
Readln
End.