1. Viết chương trình nhập vào 1 số tự nhiên P. Tính và in ra màn hình các số lẻ và tổng các số lẻ từ 1 đến P. 2.Viết chương trình nhập vào 1 số tự nhiên N. Tính và in ra màn hình các số chẵn và tổng các số chẵn từ 1 đến N. 3. Viết chương trình nhập vào 1 số tự nhiên N. Tính tổng các số là ước của N. 4. Viết chương trình nhập vào 1 số tự nhiên N. Tính tổng các số là bội của 3 mà nhỏ hơn hoặc bằng N.
Phần I. Trắc nghiệm. (5 điểm)
1. Nhặt thóc ra khỏi gạo cho đến khi trong gạo không còn lẫn thóc là hoạt động:
a. Lặp 10 lần c. Lặp vô số lần (lặp vô hạn)
b. Lặp với số lần chưa biết trước d. Lặp với số lần biết trước
2. Trong câu lệnh lặp For i:=1 to 10 do begin.... end bao nhiêu vòng lặp được thực hiện?
a. Không lần nào b. 10 lần c. 1 lần d. 2 lần
3. Điều kiện kết thúc vòng lặp For... do của Pascal là:
a. Biến đếm lớn hơn giá trị cuối c. Giá trị đầu bằng giá trị cuối
b. Biến đếm lớn hơn hoặc bằng giá trị cuối d. Giá trị đầu lớn hơn giá trị cuối
4. Trong các câu lệnh Pascal sau, câu lệnh nào hợp lệ?
a. For i:=1 to 10; do x=x+1; c. For i:=1 to 10 do x:=x+1;
b. For i:=10 to 1 do x:=x+1; d. For i:=1.5 to 10 do x:=x+1;
5. Trong lệnh lặp For... do của Pascal, sau từ khóa “do” nếu có từ 2 câu lệnh trở lên (câu lệnh
ghép) thì câu lệnh ghép đó phải đặt trong cặp từ khóa nào sau đây?
a. Begin.....readln; b. Begin.....and;
c. End.....Begin d. Begin.....end;
6. Câu lệnh sau đây cho kết quả như thế nào?
For i:=1 to 10 do Writeln(‘A’);
a. In dãy số từ 10 đến 1 ra màn hình c. In dãy số từ 1 đến 10 ra màn hình
b. In 20 ký tự A ra màn hình d. In 10 ký tự A ra màn hình
7. Sau khi thực hiện đoạn chương trình sau, giá trị của biến T bằng bao nhiêu?
i := 0; T := 0;
While i < 3 do
begin T := T + 1; i := i + 1; end;
a. T = 2 b. T = 3 c. T = 4 d. T = 5
8. Cú pháp của câu lệnh lặp với số lần chưa biết trước trong Pascal:
a. While <câu lệnh> do <điều kiện>; c. While <điều kiện> do <câu lệnh>;
b. While <giá trị cuối > do <giá trị đầu>; d. While <giá trị đầu> do <giá trị cuối>;
9. Trong lệnh lặp While... do của Pascal, nếu điều kiện đúng thì:
a. Tiếp tục vòng lặp c. Vòng lặp vô tận
b. Lặp 10 lần d. Thoát khỏi vòng lặp
10. Trong các câu lệnh Pascal sau, câu lệnh nào hợp lệ?
a. x:=1; while x:= 10 do x:=x+5; c. x =1 while x>10 do x:=x+5;
b. x:=1; while x <10 do x:=x+5; d. x:=10; while x<10 do x=x+5;
Phần II. Bài tập. (5 điểm)
Câu 1: Cho đoạn chương trình sau: (2đ)
m:=2; k:=3;
For i:= 0 to 4 do begin
m:=m+1;
k :=k+m;
end;
Sau khi thực hiện đoạn chương trình trên giá trị của các biến m, k bằng bao nhiêu?
1. Câu 2: (3đ)Viết chương trình tính tổng: S= 1+ 1/2 + 1/3 + ….. + 1/N
(n là số nguyên được nhập từ bàn phím)
Làm giúp mình trước ngày 29/04/2020 nha !
Bài 1: Viết chương trình pascal thực hiện các yêu cầu sau: a) Nhập từ bàn phím 1 số nguyên n b) In ra màn hình kết quả tổng các số nguyên từ 1 đến n (sử dụng câu lệnh lặp while...do) Bài 2: Viết chương trình pascal thực hiện câc yêu cầu sau: a) Nhập từ bàn phím 1 số nguyên dương n b) In ra màn hình kết quả tổng các số lẻ từ 1 đến n (sử dụng câu lệnh lặp while...do giúp mình với mình đang cần gấp rất gấp luôn
[ Em hãy viết đoạn chương trình sử dụng vòng lặp For...do để in ra màn hình các số từ 1 đến 10 ]
giúp mik ik mai mik thi gk 2 r
Viết chương trình tính tích các số chẳn và lớn hơn 10 từ 1 đến n. Với n được nhập từ bàn phím, rồi in kết quả ra màn hình
cách 1: sử dụng lệnh for do
cách 2: sử dụng lệnh while do
viết chương trình nhập vào 1 số nguyên n in ra các số từ 1 đến n sao cho cứ 10 số trên 1 dòng?
Mọi người giúp em với :<
Câu 1: Để in ra màn hình các số nguyên từ 1 đến 10, câu lệnh nào dưới đây đúng?
a. For i:=10 to 1 do write(i);
b. For i:=1 to 10 do write('i':2);
c. For i:=0 to 10 do write(i);
d. For i:=1 to 10 do write(i:2);
Câu 2: Cho biết số lần lặp của đoạn chương trình sau: For i:=-1 to 1 do write(i);
a. 0
b. 1
c. 2
d. Không xác định
Câu 3: Cho biết kết quả của đoạn chương trình sau: S:=0; for i:=1 to 100 do if (i mod 2=0) then write(i:2);
a. In ra màn hình các số nguyên từ 1 đến 100
b. In ra màn hình các số nguyên dương nhỏ hơn 100
c. In ra màn hình các số nguyên lẻ nhỏ hơn 100
d. In ra màn hình các số nguyên chẳn có giá trị nằm trong khoảng 2 đến 100
Câu 4: Sử dụng câu lệnh lặp để in ra màn hình tổng các số nguyên dương lẻ nhỏ hơn 100 (lưu ý: chỉ cần viết lệnh không cần viết thành chương trình hoàn chỉnh)
Mọi người giúp mình với, hạn nộp cạn kề lắm rồi
Bài 1: Các câu lệnh Pascal sau đúng hay sai, chỉ ra chỗ sai (nếu có)
a/ For i:=1 to 10; do x:=x+1;
b/ For i:=10 to 1 do x:=x+1;
c/ For i:= 1 to 10 do x:=x+1;
Bài 2: Đối với từng đoạn chương trình sau, em hãy cho biết lệnh writeln in ra
màn hình giá trị j và k là bao nhiêu?
Đoạn chương trình 1/
j:=2; k:=3;
For i:=1 to 5 do j:=j+1;
K:=k+j;
Writeln(j, ‘ ‘, k);
Đoạn chương trình 2/
j:=2; k:=3;
For i:=1 to 5 do
Begin
j:=j+1;
K:=k+j;
End;
Writeln(j, ‘ ‘, k);