Nếu bạn nhập kiểu này vào máy(đầy đủ uses crt; var; begin; end.) thì chắc chắn chương trình này sẽ bị lỗi
Đúng 0
Bình luận (0)
Cấu trúc rẽ nhánh và lặp
Các câu hỏi tương tự
Phần I: Phần trắc nghiệm Câu 1: Cho đoạn lệnh: S: 0; For i:1 to 10 do S:S+1; kết quả S sau khi thực hiện là bao nhiêu?A. 10 B. 55 C. 1 D. 50Câu 2: Khi kết thúc câu lệnh For i: 1 to 10 do câu lệnh; giá trị của biến i nhận được là bao nhiêu?A. 1 B. 10 C. 11 D. Tất cả đều sai.Câu 3: Cho đoạn lệnh x: -5; While (...
Đọc tiếp
Phần I: Phần trắc nghiệm
Câu 1: Cho đoạn lệnh: S:= 0; For i:=1 to 10 do S:=S+1; kết quả S sau khi thực hiện là bao nhiêu?
A. 10 B. 55 C. 1 D. 50
Câu 2: Khi kết thúc câu lệnh For i:= 1 to 10 do <câu lệnh>; giá trị của biến i nhận được là bao nhiêu?
A. 1 B. 10 C. 11 D. Tất cả đều sai.
Câu 3: Cho đoạn lệnh x:= -5; While (abs(x) >= 5) do x:= x+1; lệnh x:= x+1 được lặp lại bao nhiêu lần?
A. Lặp vô hạn B. 5 lần C. 1 lần. D. Chưa biết
Câu 4: Lệnh lặp nào sau đây là đúng cú pháp:
A. For i:=1 two 10 do S:=S+i; B. For i:=1 to 10 do S=S+i;
C. For i=1 to 10 do S:=S+i; D. For i:=1 downto -10 do S:=S+i;
Câu 5: Điền vào dấu (…): Mảng một chiều là một dãy (… )các phần tử có cùng kiểu
A. Thông tin B. hữu hạn C. Kiểu D. Giá trị
Câu 6: Cấu trúc lặp thường có mấy dạng?
A. 3 B. 4 C. 2 D. 1
Câu 7: Để tính tổng S=1+22+32+…+n2 em sẽ sử dụng lệnh lặp nào là hợp lí nhất?
A. While – do B. For – do C. If – Then D. Cả A và B.
Câu 8: Khai báo sau đây thì mảng có tối đa bao nhiêu phần tử? Var a:array [1..10] of byte;
A. 8 B. 9 C. 11 D. 10
Câu 9: Để lưu trữ dãy số nguyên A1, A2, …, A50 thì khai báo nào sau đây là đúng và tốn ít bộ nhớ?
A. Var A:=array[1..50] of real; B. Var A:array[1..50] of word;
C. Var A:array[1..50] of Integer; D. Var A:array[1..50] of Real;
Câu 10: Khi chạy chương trình :
Var A:array[1..10] of integer;
i, S : integer;
Begin A[1]:= 3; A[2]:= -1; A[3]:= -4;
S:= 0;
For i:=1 to 3 do If A[i] < 0 then S:=S+A[i];
Write(S);
End.
Kết quả in ra giá trị của S là:
A. 2 B. 3 C. 4 D. -5
Câu 11: Hãy cho biết kết quả đưa ra màn hình của chương trình sau:
Var x, i: byte;
BEGIN X:=0; i:=0; While i<17 do begin i:=i+2; x:= x+i; end; writeln(‘x= ’, x); END.
A. x= 72 B. x= 90 C. x= 91 D. 56
Câu 12: Cho khai báo Var A: array[1..10] of integer; Để đưa giá trị phần tử thứ 3 của mảng ra màn hình thực hiện câu lệnh nào?
A.Read(A<3>); B. Write(‘A[3]’); C. Writeln(A[3]); D. Readln(A[3]);
Câu 13: Các khai báo sau, khai báo nào là đúng?
A. Var A:array[1....n] of byte; B. Var A = array[1..10] of real;
C. Var A:array[10. .-10] of boolean; D. Var A : array[‘a’..’z’] of real;
Câu 14: Cho khai báo Var S:Array[1..5] of word; S có thể lưu trữ dãy số nào sau đây.
A. 300 3 5 4 5 B. 1 3 6 C. Cả A và B D. 1 5 3 2 4 3
Câu 15: Cho khai báo sau: Var A, B : array[1..20] of integer; Giả sử giá trị A[i] và B[i] (i nhận giá trị từ 1 đến 20) đã được xác định. Xét đoạn chương trình:
d:=0; for i:=1 to 20 do If A[i] = B[i] then d:=d+1; writeln(d);
Đoạn chương trình trên thực hiện công việc gì?
A. Đếm số phần tử của A khác các phần tử của B B. Đếm số phần tử khác nhau của A và B
C. Đếm số cặp phần tử tương ứng khác nhau của A và B D. Đếm số cặp phần tử tương ứng bằng nhau của A và B
Câu 16: Cho khai báo a : array[1..16] of integer ;
Câu lệnh nào dưới đây sẽ in ra tất cả các phần tử của mảng trên?
A. for k := 1 to 16 do write(a[k]); B. for k := 16 downto 0 do write(a[k]);
for k:= 0 to 15 do write(a[k]); D. for k := 16 down to 0 write(a[k]);
Câu 17: Var a : array[0..50] of real ;
k := 0 ; for i := 1 to 50 do if a[i] < a[k] then k := i ;
Đoạn chương trình trên thực hiện công việc gì dưới đây ?
A.Tìm phần tử nhỏ nhất trong mảng; B. Tìm phần tử lớn nhất trong mảng;
C.Tìm chỉ số của phần tử lớn nhất trong mảng; D. Tìm chỉ số của phần tử nhỏ nhất trong mảng;
Câu 18: Var a : array[1..10] of integer ;
Phương án nào dưới đây chỉ phần tử thứ 10 của mảng ?
A. a[10] B. a(10) C. a(9) D. a[9]
Câu 19: Có Var A:Array[‘a’..’z’] of byte; Để tham chiếu đến phần tử thứ 4 của mảng, ta viết thế nào?
A. A<’d’> B. A(4) C. A[‘d’] D. A[4]
Câu 20: Cho dãy số gồm 4 số thực, 5 số nguyên. Em có thể khai báo một mảng một chiều gồm 20 phần tử kiểu thực để lưu trữ dãy số hay không?
A. Có B. Đáp án khác. C. Vừa có vừa không D. Không
Câu 21: S:=0; For i:=1 to N do if T[i] mod 2 <> 0 then S:=S+T[i]; Đoạn lệnh trên thực hiện công việc gì?
A. Tìm tổng giá trị các phần tử của mảng T B. Tìm tổng giá trị các số chẵn trong mảng T
C. Tìm tổng giá trị các số lẻ trong mảng T D. Cả A, B, C đều đúng.
\(i:=0;\ while\left(i<10\right)\ i++;\)
Sau đoạn ct, \(i\) có giá trị bao nhiêu?
Mn giải hộ em bài này
Nhập 0<=e<=0.01 từ bàn phím
Tính tổng s=1+1/3+1/5+...+1/(n*2+1)+...
Cho đến 1/(2*n+1)<e
Áp dụng giải một số bài toán có sử dụng vòng lặp có cấu trúc
Bài 1: Viết chương trình tính tổng tích các biểu thức S 1*1+1*2+…+1*10 + 2*1+2*2+…+…+ M*10. Biết rằng M là số nguyên dương được nhập từ bàn phím.
Bài 2: Viết chương trình đưa ra màn hình 2 câu: “Chao ban. Ban co khoe khong!”. In 5 lần lên màn hình trên 5 dòng khác nhau.
Bài 3: Viết chương trình tìm ước chung lớn nhất của hai số nguyên. In kết quả ra màn hình.
Bài 4: Viết chương trình tính tổ...
Đọc tiếp
Áp dụng giải một số bài toán có sử dụng vòng lặp có cấu trúc
Bài 1: Viết chương trình tính tổng tích các biểu thức S = 1*1+1*2+…+1*10 + 2*1+2*2+…+…+ M*10. Biết rằng M là số nguyên dương được nhập từ bàn phím.
Bài 2: Viết chương trình đưa ra màn hình 2 câu: “Chao ban. Ban co khoe khong!”. In 5 lần lên màn hình trên 5 dòng khác nhau.
Bài 3: Viết chương trình tìm ước chung lớn nhất của hai số nguyên. In kết quả ra màn hình.
Bài 4: Viết chương trình tính tổng bình phương các số chẵn từ 1 đến n; với n là số nguyên dương được nhập từ bàn phím.
giúp vs ạ
Trong ngôn ngữ lập trình Pascal, đoạn chương trình sau đưa ra màn hình kết quả gì ? i:=10; k:=0; n=0; While k < i do begin k:=k+1; n:=n+k; end; write(n); readln end.
Xem chi tiết
Chào mừng Lễ Phật Đản 2019 tổ chức tại chùa Tam Chúc - Hà Nam. Ban tổ chức
lắp một bảng đèn điện tử gồm N bóng đèn (20 N 200) được đánh số từ 1 đến N
với nội dung CHÀO MỪNG LỄ PHẬT ĐẢN 2019 . Để tạo sự nhấp nháy cho bảng
đèn, cứ mỗi giây các bóng đèn trên bảng sẽ thay đổi trạng thái (chuyển từ tắt sang sáng
và ngược lại) theo nguyên tắc sau:
– Giây thứ nhất: chuyển trạng thái tất cả các bóng đèn
– Giây thứ 2: chuyển trạng thái các bóng đèn có số hiệu chia hết cho 2
– Giây thứ 3: chuyển...
Đọc tiếp
Chào mừng Lễ Phật Đản 2019 tổ chức tại chùa Tam Chúc - Hà Nam. Ban tổ chức
lắp một bảng đèn điện tử gồm N bóng đèn (20 <= N <= 200) được đánh số từ 1 đến N
với nội dung "CHÀO MỪNG LỄ PHẬT ĐẢN 2019 ". Để tạo sự nhấp nháy cho bảng
đèn, cứ mỗi giây các bóng đèn trên bảng sẽ thay đổi trạng thái (chuyển từ tắt sang sáng
và ngược lại) theo nguyên tắc sau:
– Giây thứ nhất: chuyển trạng thái tất cả các bóng đèn
– Giây thứ 2: chuyển trạng thái các bóng đèn có số hiệu chia hết cho 2
– Giây thứ 3: chuyển trạng thái các bóng đèn có số hiệu chia hết cho 3
– …
– Giây thứ 10: chuyển trạng thái các bóng đèn có số hiệu chia hết cho 10
– Kể từ giây thứ i trở đi (i >= 11) , việc chuyển trạng thái được thực hiện tương tự như ở giây thứ k (với k là phần dư của phép chia i cho 10).
Yêu cầu: Hãy viết chương trình tính tổng số và liệt kê các bóng đèn sáng ở giây thứ T (1 <= T <= 3600), biết rằng ban đầu tất cả các bóng đèn đều tắt
Dữ liệu vào: được cho ở file văn bản Nhapnhay.inp, có cấu trúc như sau:
– Dòng 1: ghi số nguyên N
– Dòng 2: ghi số nguyên T
Dữ liệu ra: ghi vào file văn bản Nhapnhay.out, có cấu trúc như sau:
– Dòng 1: ghi tổng số S các bóng đèn sáng ở giây thứ T
– Dòng 2: ghi S số nguyên là số hiệu các bóng đèn sáng ở giây thứ T, các số cách nhau ít nhất một dấu cách.
Mọi người ơi giúp em bài này với
Viết chương trình pascal
Hãy tính tổng sau :
1. S = 2+4+6+...+100
2.S = 1/2 + 1/4 + ... + 1/100
3. Hãy tính tích sau : T = 1.3.5. ... .99
4. Nhập vào 5 số từ bàn phím hãy tính tổng của những số chia hết cho 3
Em cảm ơn nhiều lắm ạ :(((((
Chào mừng Lễ Phật Đản 2019 tổ chức tại chùa Tam Chúc - Hà Nam. Ban tổ chức
lắp một bảng đèn điện tử gồm N bóng đèn (20 N 200) được đánh số từ 1 đến N
với nội dung CHÀO MỪNG LỄ PHẬT ĐẢN 2019 . Để tạo sự nhấp nháy cho bảng
đèn, cứ mỗi giây các bóng đèn trên bảng sẽ thay đổi trạng thái (chuyển từ tắt sang sáng
và ngược lại) theo nguyên tắc sau:
– Giây thứ nhất: chuyển trạng thái tất cả các bóng đèn
– Giây thứ 2: chuyển trạng thái các bóng đèn có số hiệu chia hết cho 2...
Đọc tiếp
Chào mừng Lễ Phật Đản 2019 tổ chức tại chùa Tam Chúc - Hà Nam. Ban tổ chức
lắp một bảng đèn điện tử gồm N bóng đèn (20 <= N <= 200) được đánh số từ 1 đến N
với nội dung "CHÀO MỪNG LỄ PHẬT ĐẢN 2019 ". Để tạo sự nhấp nháy cho bảng
đèn, cứ mỗi giây các bóng đèn trên bảng sẽ thay đổi trạng thái (chuyển từ tắt sang sáng
và ngược lại) theo nguyên tắc sau:
– Giây thứ nhất: chuyển trạng thái tất cả các bóng đèn
– Giây thứ 2: chuyển trạng thái các bóng đèn có số hiệu chia hết cho 2
– Giây thứ 3: chuyển trạng thái các bóng đèn có số hiệu chia hết cho 3
– …
– Giây thứ 10: chuyển trạng thái các bóng đèn có số hiệu chia hết cho 10
– Kể từ giây thứ i trở đi (i >= 11) , việc chuyển trạng thái được thực hiện tương tự như ở giây thứ k (với k là phần dư của phép chia i cho 10).
Yêu cầu: Hãy viết chương trình tính tổng số và liệt kê các bóng đèn sáng ở giây thứ T (1 <= T <= 3600), biết rằng ban đầu tất cả các bóng đèn đều tắt
Phần I: Phần trắc nghiệm Câu 1: Điền vào dấu (…): Mảng một chiều là một dãy hữu hạn các phần tử có cùng (…)A. Thông tin B. Dữ liệu C. Kiểu D. Giá trịCâu 2: Cấu trúc lặp thường có mấy dạng?A. 3 B. 4 C. 2 D. 1Câu 3: Để tính S1+22+32+…+n2 cho đến khi S1000 em sẽ sử dụng lệnh lặp nào?A. While – do B. If – Then ...
Đọc tiếp
Phần I: Phần trắc nghiệm
Câu 1: Điền vào dấu (…): Mảng một chiều là một dãy hữu hạn các phần tử có cùng (…)
A. Thông tin B. Dữ liệu C. Kiểu D. Giá trị
Câu 2: Cấu trúc lặp thường có mấy dạng?
A. 3 B. 4 C. 2 D. 1
Câu 3: Để tính S=1+22+32+…+n2 cho đến khi S>1000 em sẽ sử dụng lệnh lặp nào?
A. While – do B. If – Then C. For – do D. Cả ba đều đúng.
Câu 4: Khai báo sau đây thì mảng có tối đa bao nhiêu phần tử? Var a:array [0..10] of byte;
A. 8 B. 9 C. 11 D. 10
Câu 5: Để lưu trữ dãy số thực A1, A2, … A50 thì khai báo nào sau đây là đúng?
A. Var A:=array[1..50] of real; B. Var A:array[1..50] of word;
C. Var A:array[1..30] of extended; D. Var A:array[1..50] of Real;
Câu 6: Cho đoạn lệnh: S:= 0; For i:=1 to 10 do S:=S+i; kết quả S sau khi thực hiện là bao nhiêu?
A. 10 B. 55 C. 1 D. 50
Câu 7: Trong câu lệnh while: While <điều kiện> do <câu lệnh>; khi nào kết thúc lặp?
A. Điều kiện đúng B. Điều kiện sai C. Cả A và B đúng D. Cả A và B sai.
Câu 8: Cho lệnh lặp: While (abs(x) >= 5) do write(x); lệnh write(x) được lặp lại bao nhiêu lần?
A. Lặp vô hạn B. 5 lần C. 6 lần. D. Chưa biết
Câu 9: Lệnh lặp nào sau đây là đúng.
A. For i:=1 two 10 do S:=S+i; B. For i:=1 to 10 do S:=S+i;
C. For i=1 to 10 do S:=S+i; D. For i:=1 to -10 do S:=S+i;
Câu 10: Có Var A:Array[1..100] of byte; Để tham chiếu đến phần tử 5 của mảng, ta viết thế nào?
A. A<5> B. A(5) C. A{5} D. A[5]
Câu 11: Cho dãy số gồm 4 số thực, 5 số nguyên. Em có thể khai báo một mảng một chiều gồm 9 phần tử kiểu nguyên để lưu trữ dãy số hay không?
A. Có B. Đáp án khác. C. Vừa có vừa không D. Không
Câu 12: S:=0; For i:=1 to N do if T[i] mod 2 = 0 then S:=S+T[i]; Đoạn lệnh trên thực hiện công việc gì?
A. Tìm tổng giá trị các phần tử của mảng T B. Tìm tổng giá trị các số chẵn trong mảng T
C. Tìm tổng giá trị các số lẻ trong mảng T D. Cả A, B, C đều đúng.
Câu 13: Khi chạy chương trình :
Var A:array[1..10] of integer;
i, S : integer;
Begin A[1]:= 3; A[2]:= -1; A[3]:= -4;
S:= 0;
For i:=1 to 3 do If A[i] > 0 then S:=S+A[i];
Write(S);
End.
Kết quả in ra giá trị của S là:
A. 2 B. 3 C. 4 D. -5
Câu 14: Hãy cho biết kết quả đưa ra màn hình của chương trình sau:
Var x, i: byte;
BEGIN X:=0; i:=0; While i<17 do begin x:= x+i; i:=i+2; end; writeln(‘x= ’, x); END.
A. x= 72 B. x= 90 C. x= 91 D. 56
Câu 15: Cho khai báo Var A: array[1..10] of integer; Để nhập giá trị cho phần tử thứ 3 của mảng thực hiện câu lệnh nào?
A.Read(A<3>); B. Writeln(A[3]); C. Write(‘A[3]’); D. Readln(A[3]);
Câu 16: Các khai báo sau, khai báo nào là đúng?
A. Var A:array[1....n] of byte; B. Var A = array[1..10] of real;
C. Var A:array[-10. .10] of boolean; D. Var A : array[‘a’..’z’] of read;
Câu 17: Cho khai báo Var S:Array[1..5] of byte; S có thể lưu trữ dãy số nào sau đây.
A. 300 3 5 4 5 B. 1 3 6 C. 1 -2 3 2 D. 1 5 3 2 4 3
Câu 18: Cho khai báo sau: Var A, B : array[1..20] of integer; Giả sử giá trị A[i] và B[i] (i nhận giá trị từ 1 đến 20) đã được xác định. Xét đoạn chương trình:
d:=0; for i:=1 to 20 do If A[i] <> B[i] then d:=d+1; writeln(d);
Đoạn chương trình trên thực hiện công việc gì?
A. Đếm số phần tử của A khác các phần tử của B B. Đếm số phần tử khác nhau của A và B
C. Đếm số cặp phần tử tương ứng khác nhau của A và B D. Tất cả đều sai
Câu 19: Cho khai báo a : array[0..16] of integer ;
Câu lệnh nào dưới đây sẽ in ra tất cả các phần tử của mảng trên ?
A. for k := 1 to 16 do write(a[k]); B. for k := 16 downto 0 do write(a[k]);
B. for k:= 0 to 15 do write(a[k]); D. for k := 16 down to 0 write(a[k]);
Câu 20: Var a : array[0..50] of real ;
k := 0 ; for i := 1 to 50 do if a[i] > a[k] then k := i ;
Đoạn chương trình trên thực hiện công việc gì dưới đây ?
A.Tìm phần tử nhỏ nhất trong mảng; B. Tìm phần tử lớn nhất trong mảng;
C.Tìm chỉ số của phần tử lớn nhất trong mảng; D. Tìm chỉ số của phần tử nhỏ nhất trong mảng;
Câu 21: Var m : array[0..10] of integer ;
Phương án nào dưới đây chỉ phần tử thứ 10 của mảng ?
A. m[10] B. m(10) C. m(9) D. m[9]