Hà Thanh Thảo
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
Chén nì Kim
Xem chi tiết
Nguyễn Lê Phước Thịnh
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)
Hằng Vu
Xem chi tiết
Nguyễn Lê Phước Thịnh
26 tháng 2 2022 lúc 14:52

Chọn C

Bình luận (0)
Bảo Chu Văn An
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)
TV Cuber
26 tháng 2 2022 lúc 14:56

C

Bình luận (0)
DCal146 anime
Xem chi tiết
Ohvjghxjcjbkvj
Xem chi tiết
Minh Lệ
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)
Bảo Ân
Xem chi tiết
Nguyễn Lê Phước Thịnh
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)
Hoai Nhan Tran
Xem chi tiết
Đời về cơ bản là buồn......
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)
Hà Thanh Thảo
Xem chi tiết
トゥアン アイン
Xem chi tiết
Nguyễn Lê Phước Thịnh
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)
SIRO
Xem chi tiết
Nguyễn Lê Phước Thịnh
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)