Đoạn chương trình thực hiện việc tính tổng các số âm từ 0 đến 5
Đoạn chương trình thực hiện việc tính tổng các số âm từ 0 đến 5
Giả sử biến mảng B có 5 phần tử lần lượt là: 2,3,4,1,6
Khi thực hiện các câu lệnh: T:=0;
For i:= 1 To 3 do
T:= I+a [i] ;
Sau khi thực hiện những đoạn ct sau. Giá trị của biến T,n,j,k bằng bn? Cảm ơn ạ
+Đoạn1
T:=0; n:=0;
While T<=5 do
Begin
n:=n+1; T:=T+n; end;
+Đoạn2
j:=0;
k:=1
For i:=1 to 5 do
Begin
j:=j+1;
k:=k+1;
End;
M.n giúp mị với ạ Câu 1: tính số lần lặp a. For i:= -5 to 15 do b. For i:= 9 to 28 do Câu 2: tính số lần lặp a. For i:= 0 to 25 do b. For i:= -7 to 12 do
Bài 1 : Cho S và i là biến nguyên. Khi chạy chương trình :
S:=0;
for i:=1 to 5 do S :=S +i;
writeln(S);
Kết quả in ra màn hình S là bao nhiêu ?
Bài 2: Tìm giá trị của S trong đoạn chương trình dưới đây:
S:=2;
For i:=1 to 5 do S:=S + i;
Bài 3: Hãy chỉ ra lỗi trong các câu lệnh sau đây:
1)X:=10; while X:=10 to X: X+5;
2) X:=10; while X = 10 do X=X+5
3) S:=0; n:=0; while S <= 10 do n:n+1 , S:= S+n;
( Giair chi tiết giúp mình với )
A. Trắc nghiệm
Câu 1: Tìm giá trị của biến S sau đoạn lệnh sau:
S:=1;
For i:=1 to 6 do S:=S+1;
A. 5 B. 6 C. 7
Câu 2: Tìm giá trị của biến S sau đoạn lệnh sau:
S:=0;
For i:=1 to 6 do S:=S+i;
A.15 B. 21 C. 28
Câu 3: Đoạn lệnh sau tương đương với câu lệnh nào sau đây?
S:=0;
For i:=1 to 6 do
If i mod 2=1 then S:=S+i;
A. S:=1+3+5; B. S:=2+4+6; C. S:=1+2+3+4+5+6;
B. Tự luận:
Câu 4:
Viết chương trình in ra màn hình tích n số tự nhiên đầu tiên, nghĩa là tính:
P=1x2x3x…n, với n là số nhập từ bàn phím. (Đây là chương trình tính giai thừa).
Câu 5*: Viết chương trình tính giá trị biểu thức A của bài 3 trong SGK trang 59.
* mình cần gấp, bn nào làm đc câu nào thì cứ làm , mk tick hết
Mọi người bày tớ cách tính vòng lặp for ...do
Vd; b:=0; for i:=3 to 5 do b:=b+i;
Đoạn chương trình sau giải bài toán nào?
For i=1 to M do
if (i mod 3=0) and (i mod 5=0) then
T:=T+i
A: Tổng các số chia hết cho 3 hoặc 5 trong phạm vi từ 1 đến M
B: Tổng các số chia hết cho 3 và 5 trong phạm vi từ 1 đến M
C: Tổng các số chia hết cho 3 trong phạm vi từ 1 đến M
D: Tổng các số chia hết cho 5 trong phạm vi từ 1 đến M
S:=0; For i := 1 to 10 do S:= i+5: write(S) câu lệnh trên for lặp lại mấy lần
Cho đoạn Ct
i:=0; T:=50;
while i> 20 do i:=i+1: T:= T-i:
Tính T
Giúp mk vs m.n