câu 1: hãy trình bày các cú pháp sau
-Nêu cú pháp câu lệnh dạng thiếu và dạng đủ. Giải thích ý nghĩa của từ khóa
-Nêu cú pháp câu lệnh lặp với số biết trước(Giải thích)
-Nêu cú pháp câu lệnh lặp với số lần chưa biết trước(Giải thích)
Câu 2: Hãy tìm hiểu đoạn chương trình sau cho biết số lần lặp với giá trị của x
Program bai2;
Var I,x:integer;
Begin
X:=0;
fori:=0 to 9 do
X:x+5
writeln(`Gia tri cua x la:'.x);
Readln
End.
Câu 3: Dùng vòng lặp quay While.....do để viết chương trình tính tổng sau. S=1/2+1/3+1/4+...+1/n
Câu 4: Dùng vòng lặp for....do để viết chương trình tính tích sau:T:=1.2.3.4....n
Cảm ơn mọi người giúp mình giải nha mai mình thi rồi
Câu 1:
- *Bạn ghi thiếu đề rồi, phải là : Nêu cú pháp câu lệnh điều dạng thiếu và dạng đủ. Giải thích ý nghĩa của từ khóa
+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>;
*Giải thích : Nếu điều kiện là đúng thì thực hiện câu lệnh
+Cú pháp câu lệnh điều kiện dạng đầy đủ :
if <điều kiện> then <câu lệnh 1> else <câu lệnh 2> ;
*Giải thích : Nếu điều kiện là đúng thì thực hiện câu lệnh 1 ngược lại điều kiện là sai thì thực hiện câu lệnh 2
+Cú pháp câu lệnh lặp với số lần chưa biết trước :
(1) for <biến đếm> := <giá trị đầu> to <giá trị cuối> do <câu lệnh>;
*Giải thích : Khi thực hiện vòng lặp, ban đầu biến đếm là giá trị đầu rồi tự tăng thêm 1 đơn vị cho đến khi bằng giá trị cuối. Số lần vòng lặp được tính : (giá trị cuối)-(giá trị đầu)+1 lần. (giá trị cuối > giá trị đầu)
(2) for <biến đếm> := <giá trị đầu> downto <giá trị cuối> do <câu lệnh>;
*Giải thích : Khi thực hiện vòng lặp, ban đầu biến đếm là giá trị đầu rồi tự giảm đi 1 đơn vị cho đến khi bằng giá trị cuối. Số lần vòng lặp được tính : (giá trị cuối)-(giá trị đầu)+1 lần. (giá trị đầu > giá trị cuối)
+Cú pháp câu lệnh lặp với số lần chưa biết trước :
while <điều kiện> do <câu lệnh>;
*Giải thích : Câu lệnh while..do thực hiện cho đến khi điều kiện là sai thì kết thúc vào lặp.
Câu 2:
- Số lần lặp : 10
- Gía trị của x: 50
Câu 3:
Program HOC24;
var S: real;
n,i: integer;
begin
write('n='); readln(n);
i:=1;
while i<n do
begin
i:=i+1;
S:=S+1/i;
end;
write('S=',S:1:2);
readln
end.
Câu 4:
Program HOC24;
var T:longint;
n,i: integer;
begin
write('n='); readln(n);
T:=1;
for i:=1 to n do T:=T*i;
write('T=',T);
readln
end.
