I. Lý thuyết: (5điểm) (45’)
Câu 1: (2,0 điểm)
Hãy cho biết một số lệnh tính toán với đa thức và giải phương trình và ý nghĩa của các lệnh đó?
Câu 2: (2,0 điểm)
- Viết cú pháp của câu lệnh lặp với số lần chưa biết trước?
- Nêu các bước thực hiện của câu lệnh trong cú pháp trên?
Câu 3: (1,0 điểm)
Cho biết cú pháp khai báo biếm mảng? Giải thích các thành phần của cú pháp?
II. Thực hành: (5điểm) (45’)
Câu 1: (2,0 điểm) Sử dụng GeoGebra và thực hiện các yêu cầu sau:
Giải phương trình sau: (x+1)2 = 4(x2-2x+1)
Vẽ lăng trụ đa giác đều sau:
Câu 2: (3,0 điểm) Sử dụng Free Pascal viết chương trình Pascal sử dụng biến mảng để nhập từ bàn phím các phần tử của một dãy N số tự nhiên, xét và tìm ra số lớn nhất đưa ra màn hình? Độ dài của dãy cũng được nhập từ bàn phím
........................Hết.........................
I. Lý thuyết: (5điểm) (45’)
Câu |
Nội dung |
Điểm |
||||||||||||||||||||
1 |
|
0,2
0,2
0,2
0,2
0,2
0,2
0,2
0,2
0,4
|
||||||||||||||||||||
2 |
*Cú pháp của câu lệnh lặp với số lần chưa biết trước: While <điều kiện> do <câu lệnh>; Trong đó: - While, do là các từ khóa. - <điều kiện> thường là một phép so sánh. - <câu lệnh> có thể là câu lệnh đơn giản hay câu lệnh ghép. * Câu lệnh lặp với số lần chưa biết trước được thực hiện như sau: Bước 1: Kiểm tra điều kiện Bước 2: Nếu điều kiện sai, câu lệnh sẽ bị bỏ qua và việc thực hiện lệnh lặp kết thúc. Nếu điều kiện đúng, thực hiện câu lệnh và quay lại bước 1. |
0,5
0,5
0,5 0,5
|
||||||||||||||||||||
3 |
Cú pháp: Var<tên biến mảng>: array[<chỉ số đầu>..<chỉ số cuối>] of <kiểu dữ liệu> Trong đó chỉ số đầu và chỉ số cuối là hai số nguyên thỏa mãn chỉ số đầu <= chỉ số cuối và kiểu dữ liệu có thể là integer hoặc real. |
0,5
0,5 |
II. Thực hành: (5 điểm) (5’)
Câu |
Nội dung |
Điểm |
1 |
a) |
1 |
b) |
1
|
|
2
|
Program Tim_so_nho_nhat; Uses crt; Var N,i, min: integer; A:array[1..100] of integer; Begin Clrscr; Write(‘Nhap chieu dai day N=: ‘); Readln(N); Writeln(‘Nhap day so’); For i:=1 to N do Begin Write(‘A[‘,i,’]=’); Readln(A[i]); End; Min:= A[1]; For i:=2 to N do Begin If min > A[i] then min:= A[i]; End; Write(' So nho nhat trong day so la ', min ); Readln; End. |
0,25 0,5
0,25
0,25 0,25 0,25 0,25
0,25 0,25
0,25
0,25
|
* Chú ý: Bài làm đúng đến phần nào cho điểm đến phần đó, bài làm giải bằng cách khác đúng vẫn cho điểm tối đa.