De kiem tra TH8 (ca nam)

Kiểm tra 15 phút
Tiết 11
Đề bài
Câu 1:
Chuyển các biểu thức toán học sau sang dạng biểu diễn tương đương trong pascal :
a. b.

c. d.
Câu 2:
Chuyển các biểu thức từ pascal sang các biểu thức trong toán học
a. 2*Pi*r
b. 1/(n*(n+1)*(n+2))
c. 1+ 1/(x*x) + 1/(y*y) + 1/(z*z)
d. (10*a+2*b)/(a*b)
e. 1+ (1-a)/(1+1/((a+ b)*(a+b)*(a+b)))
f. a*x*x*x + b*x*x + c*x + d


Đáp số và thang điểm
Câu 1: (4,0 điểm)
a. (x + y)/(x – z) 1,0 điểm
b. (x – y)*(x – y)/(x*x + y + 1/y) 1,0 điểm
c. A/(x + (1/((x + 2)*(x + 2)))) 1,0 điểm
d. B/(1/(x*x*x)) + 2*x*x*x/(3*y*y) 1,0 điểm
Câu 2: (6,0 điểm)
a. 2.pi.r 1,0 điểm
b. 1,0 điểm
c. 1,0 điểm
d. 1,0 điểm
e. 1,0 điểm
f. ax3 + bx2 + cx + d 1,0 điểm


Tiết 31:
Đề bài
Đề 1: Viết chương trình tìm số lớn nhất trong hai số a, b nhập vào từ bàn phím.
Đề 2: Viết chương trình kiểm tra một số nhập vào là số chẵn hay số lẻ
Đề 3: Viết chương trình kiểm tra 3 số bất kỳ có phải là ba cạnh của một tam giác không?

Đáp án
Đề 1:
Program sosanh;
Uses crt;
Var
a, b, max: real;
Begin
Clrscr;
Writeln(‘Nhap so a’); Readln(a);
Writeln(‘Nhap so b’); Readln(b);
If a > b then max := a
Else max := b;
Writel(‘so lon nhat trong hai so la’,max);
Readln;
End.


Đề 2:
Program chanle;
Uses crt;
Var
a : Integer;
Begin
Clrscr;
Writeln(‘nhap so bat ky’);Readln(a);
If a mod 2 = 0 then
Writeln(‘a la so chan’)
Else
Writeln(‘a la so le’);
Readln;
End.


Đề 3:
Program tamgiac;
Uses crt;
Var
a, b, c : Integer;
Begin
Clrscr;
Writeln(‘nhap so a’);Readln(a);
Writeln(‘nhap so b’);Readln(b);
Writeln(‘nhap so c’);Readln(c);
If (a+b > c) and (a+c > b) and (b+c > a) then
Writeln(‘a, b, c la ba canh cua tam giac’)
Else
Writeln(‘a, b, c khong phai ba canh cua tam giac’);
Readln;
End.


Tiết 49:
Đề bài
Câu 1: Viết cú pháp câu lệnh lặp For.. to..do trong Pascal? Giải thích cú pháp và giải thích hoạt động của câu lệnh?
Câu 2: áp