Hãy hoàn thiện chương trình tính tổng n số tự nhiên đầu tiên cho đến.. khi S<=500..[r]
(1)(2)(3)A
A A
A Tính tổng số tự nhiên từ đến 20
B
B B
B Nhập vào số số nhập vào số chẵn dừng
D
DD
D Mỗi ngày học lần
C
C C
C Nhập số nguyên từ bàn phím đủ 50 số
KQ
KQ
Caâu 1:
(4)A
A A
A Một giá trị bất kỳ
B
B B
B Một giá trị khác không
D
DD
D Tăng thêm đơn vị (+1)
C
C C
C Giảm đơn vị (-1)
Câu 2:
(5)A
A A
A 3.5
B
B B
B 1
D
DD
D Không thực giá trị biến đếm có kiểu thứ tự Real
C
C C
C 2.5
Caâu 3:
Lần lượt thực câu lệnh
(6)A
A A
A Biết trước số lần lặp giới hạn <=100
B
B B
B Biết trước số lần lặp giới hạn >=100
D
DD
D Biết trước số lần lặp
C
C C
C Chưa biết trước số lần lặp
Caâu 4:
(7)A
A A
A Integer
B
B B
B Real
D
DD
D Tất kiểu được
C
C C
C String
Caâu 5:
(8)(9)Bài tập 1
Các câu lệnh pascal sau hay sai ? Hãy chỗ sai có:
A For i:=1 to 10 ; x:=x+1; B For i:=10 to x:=x+1;
C For i:=1 to 10 x:=x+1; D While i:=1 t:=10;
(10)Bài tập :
Tìm hiểu đoạn chương trình sau đây:
I := ; tich := 1; n := 5; While I <= n do
Begin
Tich := tich * i; I := I + 1;
End;
Writeln (‘ Tich = ‘, Tich);
Sau đoạn chương trình thực hiện, giá trị tich bao nhiêu?
(11)Hãy hoàn thiện chương trình tính
tổng n số tự nhiên
khi S<=500 Cho biết N
S:=0
S:=0
i:=0
i:=0
While S<= do
While S<= do
i:= i+1
i:= i+1
S:= S+i
S:= S+i
Writeln(‘So N de tong >1000 la’,N);
Writeln(‘So N de tong >1000 la’,N);
Writeln(‘Gia tri cua tong S =',S);
Writeln(‘Gia tri cua tong S =',S);
(12)USES
USES crt; crt; Var
Var S, N : Integer; S, N : Integer; Begin Begin S:=0 ; S:=0 ; i:=0; i:=0; While
While S<= 500 S<= 500 dodo begin
begin
i:= i+1;i:= i+1;
S:= S+i;S:= S+i; End;
End;
Writeln(‘So N de tong >1000 la’,i);
Writeln(‘So N de tong >1000 la’,i);
Writeln(‘Gia tri cua tong S =',S);
Writeln(‘Gia tri cua tong S =',S);
Readln;
Readln;
(13)-Mỗi nhóm phải làm vào bảng phụ,
-Mỗi nhóm phải làm vào bảng phụ,
(ghi rỏ, đẹp) thời gian 10 phút.
(ghi rỏ, đẹp) thời gian 10 phút. (sai lỗi trừ điểm gần
đúng) Trả lời sai điểm. .
(14)var i: integer; S: longint; Uses crt;
program Tinh_tong; S:= 0;
I := 1; end begin
while i <=100 I:= i+1;
S:= S+i; readln; Begin
writeln('Tong cua 100 so tu nhien dau tien khac S = ', S); end;
Sắp xếp dòng sau thành chương trình
tính tổng 100 số tự nhiên khác 0
hoàn chỉnh
(15)Program Tinh_tong;
USES
USES crt; crt; Var
Var i: integer; S: longint;
Begin Begin S:=0 ; S:=0 ; i:=1; i:=1; While
While S<= 100 S<= 100 dodo begin
begin
i := i + 1;i := i + 1;
S := S + i;S := S + i; End;
End;
Writeln(‘
Writeln(‘'Tong cua 100 so tu nhien dau tien khac S = ', S););
Readln;
Readln;
(16)?
Cấu trúc ROR TO DO gọi cấu trúc
1
HÀNG DỌC
Ngôn ngữ dùng để viết chương trình máy tính gọi ngơn ngữ
ĐÁP ÁN
?
Dãy hữu hạn thao tác sử dụng để giải toán gọi
2 ?
Đây từ khoá mà sau từ khoá đặt tên (tiêu đề) cho chương trình
3 ?
Tên khai báo liệu kiểu nguyên
4 ?
Sau từ khoá USES
5
?
Hàm AVERAGE sử dụng để tính giá trị
6
?
Để kết hợp nhiều phép so sánh đơn giản thành phép so sánh phức tạp ta sử dụng từ khoá
7 ?
Trong vòng lặp FOR TO DO giá trị cuối luôn giá trị đầu
8
Chúc mừng Chúc mừng em tìm ô em tìm ô
chữ bí ẩn! chữ bí ẩn!