đoạn trình sau làm việc gì
a:=0
ni:=10
ì n<>0 then for i:=1 to n do writeln(i);
Những câu hỏi liên quan
Trong ngôn ngữ lập trình Pascal, đoạn chương trình sau dùng để làm gì?
Var a:array[0..50] of real; i, k:byte;
Begin k:= 0;
for i:= 1 to 50 do
if a[i] > a[k] then k:= i;
writeln(k);
End.
A. Đếm số phần tử trong mảng a là số chẵn.
B. Đếm số phần tử trong mảng a là số lẻ.
C. Tính tổng các phần tử trong mảng a. D. Đếm các phần tử có trong mảng a.
Xem chi tiết
Trong ngôn ngữ lập trình Pascal, đoạn chương trình sau dùng để làm gì? Var a:array[0..50] of real; i, k:byte;
Begin
k:= 0;
for i:= 1 to 50 do if a[i] > a[k] then k:= i;
writeln(k);
End.
A. Đếm số phần tử trong mảng a là số chẵn.
B. Đếm số phần tử trong mảng a là số lẻ.
C. Tính tổng các phần tử trong mảng a.
D. Đếm các phần tử có trong mảng a.
Đúng 0
Bình luận (0)
mảng a là 6 8 5 2 7.Sau khi đoạn chương trình sau được thực hiện,giá trị của S bằng bao nhiêu?s:=0;n:=0;for i:=2 to 5 do while (a[i] mod i0) do i:= i+1; if a[i]=n then writeln a[i];
Cho biết kết quả sau khi thực hiện đoạn chương trình sau:
S:=0;
FOR i:=1 to 15 DO
IF a[i] mod 2 = 0 THEN
S:=S+a[i];
writeln(‘S = ’,S);
Câu 6: Cho biết kết quả in ra màn hình của đoạn chương trình sauCâu a) i : -1; j: 20;For k: 1 to 5 do If k mod 2 0 then i: i + 1;j : j + i;Writeln(i,‘ ’,j);Câu b)n : 127;m : 0;While n 0 doBegin m : m * 10 + n mod 10; n : n div 10;end;writeln(m);
Đọc tiếp
Câu 6: Cho biết kết quả in ra màn hình của đoạn chương trình sau
Câu a)
i := -1;
j:= 20;
For k:= 1 to 5 do
If k mod 2 = 0 then i:= i + 1;
j := j + i;
Writeln(i,‘ ’,j);
Câu b)
n := 127;
m := 0;
While n < >0 do
Begin
m := m * 10 + n mod 10;
n := n div 10;
end;
writeln(m);
a/
Giá trị đầu của vòng lặp là 1, giá trị cuối là 5 => biến đếm của k lần lượt tăng thành 1 dãy số 1,2,3,4,5
k mod 2 =0 -> nếu k là số chẵn thì biến i tăng lên 1 đơn vị. Dãy số gồm 2 số chẵn (2,4) => i tăng 2 đơn vị => i = -1 + 1 + 1 = 1
j = j + i => j = 20 + 1 = 21
Vậy i=1; j=21
b/
Lần lặp thứ nhất: m=0*10 + 7 = 7 ; n = 12
Lần lặp thứ 2: m=7*10 + 2 = 72; n= 1
Lần lặp thứ 3: m=720 + 1 = 721; n=0 (n=0 => dừng vòng lặp)
Vậy m=721
Đúng 1
Bình luận (0)
Câu 5: Đoạn lệnh sau đây P:1;` for i:1 to N do P : P*i; Writeln (N, ‘!’, P);Dùng để làm gì?
Đọc tiếp
Câu 5: Đoạn lệnh sau đây
P:=1;
` for i:=1 to N do P := P*i;
Writeln (N, ‘!=’, P);
Dùng để làm gì?
Đoạn chương trình dùng để tính N! hay tích của P= 1.2.3.4....N
Đúng 2
Bình luận (2)
câu lệnh for i:=1 to 10 do Writeln('0')sẽ thực hiện công việc gì
uses crt; var i,S:Integer; begin clrscr; (1) for i:=1 to 50 do (2) if (i mod 2=0) then S:=S+i; (3) writeln('S=',S); (4) readln; (5) end. CÂU HỎI: a) Chương trình trên đang thực hiện công việc gì ? b) Cho biết ý nghĩa của câu lệnh (3),(4),(5).
a) tính tổng các số chẵn từ 1 đến 50
b)
(3): lệnh viết kq của ct trên.
(4):lệnh in ra màn hình kq của bài toán.
(5):lệnh kết thúc ct.
Đúng 0
Bình luận (0)
a) Tính tổng các số chẵn từ 1 đến 50
b) (3): Cộng các số chẵn trong khoảng từ 1 đến 50
(4): Xuất tổng
(5): Lệnh chờ đợi chương trình xử lý và chạy
Đúng 0
Bình luận (0)
Giả sử mảng a gồm các phần tử a[1]1, a[2]2, a[3]3, a[4]4, a[5]5.Cho biết kết quả sau khi thực hiện đoạn chương trình sau:S:0;FOR i:1 to 5 DOIF a[i] mod 2 0 THEN S:S+a[i];writeln(‘S ’,S); A. 6 B. S 6 C. 9 D. S 9
Đọc tiếp
Giả sử mảng a gồm các phần tử a[1]=1, a[2]=2, a[3]=3, a[4]=4, a[5]=5.
Cho biết kết quả sau khi thực hiện đoạn chương trình sau:
S:=0;
FOR i:=1 to 5 DO
IF a[i] mod 2 = 0 THEN S:=S+a[i];
writeln(‘S = ’,S);
A. 6
B. S = 6
C. 9
D. S = 9
cho biết số vòng lặp và giá trị của biến s sau khi thực hiện đoạn chương trình: a) S:0; For i:2 to 8 do S :S+i b) S:0; n:1;For i:1 to 6 do Begin S:S+n; n:n+i; end;c) S:2;For i:1 to 10 do If(i mod 2)0 then S:S+i;d) S:0; i: 1,5;While S7 do S:S+i;e) S:0; i:1;While i9 do Begin S:S+i; i:i+2; End;f) S:2; i:1;While i 10 doBeginIf (i mod 2) then S:S+i; i:i+1;End;
Đọc tiếp
cho biết số vòng lặp và giá trị của biến s sau khi thực hiện đoạn chương trình: a) S:=0;
For i:=2 to 8 do S :=S+i
b) S:=0; n:=1;
For i:=1 to 6 do
Begin
S:=S+n;
n:=n+i;
end;
c) S:=2;
For i:=1 to 10 do
If(i mod 2)=0 then S:=S+i;
d) S:=0; i:= 1,5;
While S<7 do S:=S+i;
e) S:=0; i:=1;
While i<9 do
Begin
S:=S+i;
i:=i+2;
End;
f) S:=2; i:=1;
While i<= 10 do
Begin
If (i mod 2) then S:=S+i;
i:=i+1;
End;