HT
TR ẮC NGHIỆM: Câu 1: Vòng l ặp sau th ực hiện bao nhi êu l ần lặp: For i : 1 to 5 do a : a + 1; A. 3 l ần. B. 4 l ần. C . 5 l ần. D. 6 l ần. Câu 2: S ố lần lặp đ ư ợc tính nh ư th ế n ào? A. Giá tr ị đầu – giá tr ị cuối B. Giá tr ị đầu – giá tr ị cuối + 1 C. Giá tr ị cuối – giá tr ị đầu D . Giá tr ị cuối – giá tr ị đầu + 1 Câu 3: Trong câu l ệnh lặp, kiểu dữ liệu của biến đếm l à: A. Real B. String C. Integer D. Char Câu 4: Câu l ệnh...
Đọc tiếp

Những câu hỏi liên quan
CK
Xem chi tiết
NT
10 tháng 5 2022 lúc 23:06

Câu 1: var a:array[1..100]of integer;

Câu 2: for i:=1 to 20 do write(i:4);

Bình luận (0)
HV
Xem chi tiết
NT
26 tháng 2 2022 lúc 14:52

Chọn C

Bình luận (0)
BA
26 tháng 2 2022 lúc 14:54

Câu 15:

Trong câu lệnh lặp for i:=1 to 10 do begin…end; câu lệnh ghép được thực hiện bao nhiêu lần (nói cách khác, bao nhiêu vòng lặp được thực hiện?)

A.2 lần

B.Không lần nào

C.10 lần

D.1 lần

Bình luận (0)
TC
26 tháng 2 2022 lúc 14:56

C

Bình luận (0)
DA
Xem chi tiết
H24
Xem chi tiết
ML
10 tháng 4 2020 lúc 22:00

Câu 13: B

Câu 14: 10 lần

Câu 15: B

Câu 16: A

Câu 17: A

Câu 18: A

Câu 19: C

Câu 20:D

Bình luận (0)
BA
Xem chi tiết
NT
26 tháng 4 2020 lúc 15:38

Phần II: Bài tập

Câu 1:

Sau khi thực hiện chương trình, chương trình sẽ báo lỗi thiếu begin

Câu 2:

uses crt;

var i,n:integer;

s:real;

begin

clrscr;

write('n='); readln(n);

s:=0;

for i:=1 to n do

s:=s+1/i;

writeln(s:4:2);

readln;

end.

Bình luận (0)
HT
Xem chi tiết
DB
27 tháng 3 2018 lúc 17:11

Câu 1: S = 10

Câu 2: Chữ "xin chao" được in ra màn hình 3 lần

Câu 3:

- For...to...do:

+ Là câu lệnh lặp với số lần lặp biết trước.

+ Điều kiện kết thúc vòng lặp là một số xác định.

- While...do:

+ Là câu lệnh lặp với số lần lặp chưa biết trước.

+ Điều kiện để kết thúc vòng lặp thường là một phép so sánh.

Bình luận (0)
HT
Xem chi tiết
H24
Xem chi tiết
NT
3 tháng 5 2020 lúc 9:12

II: Tự luận

Bài 1:

uses crt;

var n,i,a,c,e:integer;

begin

clrscr;

write('nhap n='); readln(n);

a:=0;

for i:=1 to n do

a:=a+i;

writeln('A=',a);

if (n mod 2=0) and (n>=0) then

begin

c:=0;

for i:=2 to n do

if i mod 2=0 then c:=c+i;

writeln('C=',c);

end

else begin

e:=0;

for i:=1 to n do

if i mod 2=1 then e:=e+i;

writeln('E=',e);

end;

readln;

end.

Bài 2:

uses crt;

var n,i:integer;

gt:real;

begin

clrscr;

write('nhap n='); readln(n);

gt:=1;

for i:=1 to n do

gt:=gt*i;

writeln(n,'!=',gt:0:0);

readln;

end.

Bài 3:

uses crt;

var x,n,i:integer;

lt:real;

begin

clrscr;

write('nhap co so x:'); readln(x);

write('nhap so mu n:'); readln(n);

lt:=1;

for i:=1 to n do

lt:=lt*x;

writeln(x,'^',n,'=',lt:0:0);

readln;

end.

Bài 4:

uses crt;

var a:array[1..100]of integer;

n,i,max,min:integer;

begin

clrscr;

write('nhap n='); readln(n);

for i:=1 to n do

begin

write('a[',i,']='); readln(a[i]);

end;

max:=a[1];

for i:=1 to n do

if max<a[i] then max:=a[i];

writeln('So lon nhat la: ',max);

min:=a[1];

for i:=1 to n do

if min>a[i] then min:=a[i];

writeln('So nho nhat la: ',min);

readln;

end.

Bình luận (0)
H24
Xem chi tiết
NT
13 tháng 3 2022 lúc 11:12

a: Có 6 vòng lặp

b: i=6

c: Kết quả là in ra các số từ 1 đến 6, giữa hai số có 3 dấu cách

Bình luận (0)