Khẳng định nào đúng khi đặt tên trong ngôn ngữ lập trình Pascal sau đây: A.Tên không được bắt đầu bằng chữ số và có thể trùng với từ khóa.. B.Tên được chứa dấu cách và không được trùng v[r]
(1)Trường THCS: Nguyễn Du Kiểm tra học kỳ 1, năm học 2010-2011
Họ tên: ……… Môn: Tin học
Lớp: … Thời gian: 60 phút (Không kể thời gian phát đề)
PHẦN 1: TRẮC NGHIỆM
Khoanh tròn vào chữ trước câu trả lời nhất: (2đ) Cấu trúc điều kiện dạng đầy đủ có dạng:
A if <điều kiện > then <câu lệnh 1>; else <câu lệnh 2>; B if <điều kiện > then <câu lệnh 1> else <câu lệnh 2>;
C if <điều kiện> then <câu lệnh >; D if <câu lệnh 1> then <câu lệnh 2>;
2 Trong tên sau đây, tên hợp lệ ngôn ngữ Pascal:
A Tam giac; B end; C Tamgiac; D 3so Để dịch chương trình, ta dùng tổ hợp phím:
A Alt + F9; B Alt + X; C Ctrl + F9; D Tất Để thực việc tính tổng hai số nguyên a b, phép gán sau đúng:
A Tong=a+b; B Tong:=a+b;C Tong:a+b; D.Tong(a+b); Từ khố dùng để khai báo biến ngơn ngữ lập trình Pascal là:
A Const B Var C Real D.End
6 Khẳng định đặt tên ngơn ngữ lập trình Pascal sau đây: A.Tên khơng bắt đầu chữ số trùng với từ khóa B.Tên chứa dấu cách khơng trùng với từ khóa C.Tên khơng trùng với từ khóa khơng chứa dấu cách
D.Tên không bắt đầu chữ số, không chứa dấu cách, khơng trùng với từ khóa Biểu thức toán học (a2 + b)(1+c)3 biểu diễn Pascal nào?
A (a*a + b)(1+c)(1+c)(1+c) B (a.a + b)*(1+c)*(1+c)*(1+c) C (a*a + b)*(1+c)*(1+c)*(1+c) D (a.a + b) (1+c).(1+c).(1+c)
8 Trong Pascal, từ khóa dùng để khai báo là?
A Const B Var C Uses D Program PHẦN 2: TỰ LUẬN(8đ)
Câu 1: Nêu giống khác biến ngơn ngữ lập trình Pascal (1đ)
Câu 2: Tính tam giác: Nhập vào ba số a,b,c Kiểm tra xem độ dài ba cạnh hay khơng, khơng in hình ' Khong la ba canh cua mot tam giac' Ngược lại, in hình ' La ba canh cua mot tam giac'.(3 đ)
Câu 3: Tìm giá trị lớn số a,b,c,d (a,b,c,d nhập từ bàn phím) (3 đ)
(2)ĐÁP ÁN PHẦN I: TRẮC NGHIỆM
Đúng câu 0.25 điểm
1B 2C 3A 4B 5B 6D 7C 8A
PHẦN 2: TỰ LUẬN
Câu 1: Nêu giống khác biến ngơn ngữ lập trình Pascal (1đ) Giống: (0.5đ)
Biến đại lượng đặt tên dùng để lưu trữ liệu Đều khai báo Trước sử dụng
(3)Biến
Giá trị biến thay đổi suốt trình thực chương trình
Biến khai báo từ khố Var
Hằng
Giá trị giữ nguyên suốt trình thực chương trình
Hằng khai báo từ khoá Const
Câu 2: (3 Đ)
Program Tam_giac; Uses crt;
Var a,b,c:real; Begin
Clrscr;
Writeln(‘bai toan tam giac’); Write(‘nhap a=’); Readln(a); Write(‘nhap b=’); Readln(b); Write(‘nhap c=’); Readln(c);
If ((a+b)>c) and ((b+c)>a) and ((a+c)>b) then Writeln(a,b,c la canh cua tam giac’); Else
Writeln(a,b,c khong phai la canh cua tam giac’); Readln;
End.
Câu 3: Tìm giá trị lớn số a,b,c,d (a,b,c,d nhập từ bàn phím) (3 đ)
Program Tim_so_lon_nhat; Uses crt;
Var a,b,c,d,max:real; Begin
Clrscr;
Writeln(‘Tim so lon nhat so a,b,c,d’); Write(‘nhap so a=’);readln(a);
Write(‘nhap so b=’);readln(b); Wtite(‘nhap so c=’);readln(c); Write(‘nhap so d=’);readln(d); Max:=a;
If b>max then max:=b; If c>max then max:=c; If d>max then max:=d;
Writeln(‘so lon nhat la’:,max:4:2); Readln;
End
Câu 4: Viết chưong trình nhập số tự nhiên vào máy tính ghi hình kết số nhập số chẳn hay lẻ.(1 đ)
Program chan_le; Uses crt;
(4)Write(‘nhap so n=’); readln(n);
If (n mod 2)= then write(‘n la so chan’) Else write(‘n la so le’);