cho đoạn chương trình sau hãy viết chương trình pascal cho đoạn chương trình
J:=1;k:=2;i:=0;
Whilei<5 do
begin
I:=i+1; J;=J+1; K:=K+J
End;
writel(j,k);
cho đoạn phương tình sau: j:=1;k:=2; begin for i:=1 to 5 do j:=j+1;k:=k+j; end. a. số lần lặp trong đoạn chương trình trên là bao nhiêu b.viết chương tình pascal đầy đủ cho đoạn trích trên c. sau khi thực hiện chương trình trên, biến jvaf k nhận giá trị là bao nhiêu
Đối với từng đoạn chương trình Pascal sau đây, hãy cho biết sau khi thực hiện lệnh lặp giá trị của x và y là bao nhiêu? Và mỗi đoạn chương trình thực hiện bao nhiêu vòng lặp a Đoạn chương trình 1 b Đoạn chương trình 2: x: 0; y: 5 x:=1 ; y:= 5; For i:-5 to 2 do x:=x+2: For i:=3 to 7 do x:=x+2; y:=y+x; y:= y + x;
Màn hình sẽ in ra giá trị: 3 7
Giải thích:
Câu lệnh if i mod 3=0 then j:=j+1 có nghĩa là j bằng một cộng với số các số chia hết cho 3.
k:=k+j có nghĩa là k bằng bốn cộng với giá trị của j đã tìm.
For i:=1 to 5 do => có 5 vòng lặp, các vòng sẽ có gtri j,k tương ứng là:
vòng 1: 4,7
vòng 2: 6,13
vòng 3:8,21
vòng 4: 10,31
vòng 5: 12;43
Vậy writeln(j,k) sẽ in ra 12 43. Ở đây vòng lặp không có điều kiện trước đó nên không cần xét nhé!
Đối với từng đoạn chương trình Pascal sau đây, hãy cho biết lệnh writeln in ra màn hình giá trị của i , j, k là bao nhiêu?
i:=1; j:=2; k:=3;
while i<6 do i:=i+1; j:=j+1; k:=k+j;
writeln(i,’ ’, j,’ ’, k);
Giá trị của j, k sau khi thực hiện đoạn chương trình là?
Giá trị của j là 7
Giá trị của k là 28
Câu lệnh while do không ảnh hưởng đến j và k
j = 2 nên j = j + 1 = 3
k = 3 nên k = k + j = 3 + 3 = 6
Câu 2. j:= 4; k:=4;
For i:=1 to 4 do begin j:=j+i; k:=k+j; end;
writeln( j, k);
a) Cho biết giá trị của k, j sau khi thực hiện đoạn chương trình trên?
b) Viết đoạn chương trình thể hiện thuật toán trên?
Câu 3. Viết chương trình tính tổng các số chẵn (hoặc lẻ) từ 1 đến 100 sử dụng câu lệnh for...do?
Câu 4. Viết chương trình tính tổng của N số tự nhiên đầu tiên với N là số tự nhiên nhập từ bàn phím.
Câu 5. Viết chương trình tính tổng các số tự nhiên từ 1 đến 100 sử dụng câu lệnh lặp while...do.
Cau 4:
#include <bits/stdc++.h>
using namespace std;
long long n,i,t;
int main()
{
cin>>n;
t=0;
for (i=1; i<=n; i++) t+=i;
cout<<t;
return 0;
}
Câu 5:
uses crt;
var i,t:integer;
begin
clrscr;
t:=0;
i:=0;
while i<=100 do
begin
i:=i+1;
t:=t+i;
end;
writeln(t);
readln;
end.
Đối với từng đoạn chương trình Pascal sau đây, hãy cho biết lệnh writeln in ra màn hình giá trị của i , j, k là bao nhiêu? i:=1; j:=2; k:=3;
Bạn bổ sung thêm đề nha.
Gán i,j,k lần lượt bằng 1,2,3 thì các giá trị nó vẫn giữ nguyên như vậy
Cho đoạn chương trình Pascal sau đây:
tong:= 20;
While tong > 10 do
tong:=tong-1;
Sau khi đoạn chương trình trên được thực hiện, giá trị của tổng bằng bao nhiêu:
A. 9
B. 10
C. 11
D. 12
Cho đoạn chương trình Pascal sau đây:
tong:= 20;
While tong>= 10 do
tong:=tong - 1;
Sau khi đoạn chương trình trên được thực hiện, giá trị của tổng bằng bao nhiêu:
A. 19
B. 9
C. 21
D. 10
Cho đoạn chương trình Pascal sau đây:
tong:= 0;
While tong<= 10 do
tong:=tong+1;
Sau khi đoạn chương trình trên được thực hiện, giá trị của tổng bằng bao nhiêu:
A. 9
B. 10
C. 11
D. 12