Hướng dẫn giải đề cương năm học 2011-2012

ĐỀ CƯƠNG ÔN TẬP HỌC KÌ I MÔN TIN HỌC 11
NĂM 2011 – 2012

Câu 1 : Hãy nêu cấu trúc của một chương trình ? Nêu tên từng phần ( phần khai báo gồm 4 phần nêu tên từng phần )
Câu 2 : Hãy nêu khái niệm tên ? Tên chia làm mấy loại nêu tên ?
Câu 3 : Hãy nêu khái niệm hằng và khái niệm biến ?
Câu 4:Chương trình dịch Pascal sẽ cấp phát bao nhiêu byte bộ nhớ cho các biến trong khai báo biến sau?
Var M, N, I, J:INTEGER;
P, A, B, C : REAL;
X: EXTENDED;
K: WORD;
Câu 5: Hãy chỉ ra các lỗi trong khai báo sau:
VAR K, M, I, L : WORD;
C, C1: CHAR;
i, i1, j : WORD;
pi=3.1416;
Câu 6:Hãy viết các biểu thức sau dưới dạng công thức toán học tương ứng.
a/b*2
a + b/2 + 1
1/a*b/c
5*sin(x) – cos(y)/4
(x*y)/(x-z)
Sqrt(x+sqrt(x)+sqrt(x))
Sqrt(p*(p-a)*(p-b)*(p-c))
Câu 7: Hãy viết chương trình nhập mảng A gồm N phần tử (N<=100, |ai| <100)
Xuất mảng vừa nhập?
Tính tổng các phần tử dương của mảng?
Tính trung bình các phần tử mảng?
Tính trung bình các phần tử chẵn?


Hướng dẫn cài đặt chương trình câu 7.program tongduong;
uses crt;
const nmax=100;
type mang=array[1..nmax] of integer;
var a:mang;
i,n,s:integer;
begin
clrscr;
write(`Nhap so phan tu cua mang`);
read(n);
for i:=1 to n do
a[i]:=random(100)-random(100);
for i:=1 to n do
write(a[i]:5);
readln;
s:=0;
For i:=1 to n do
if a[i]>0 then
s:=s+a[i];
writeln;
writeln(`Tong cac phan tu duong la:`,s);
readln
end.


program trungbinh;
uses crt;
const nmax=100;
type mang=array[1..nmax] of integer;
var a:mang;
i,n,s:integer;
s1:real;
begin
clrscr;
write(`Nhap so phan tu cua mang`);
read(n);
for i:=1 to n do
a[i]:=random(100)-random(100);
for i:=1 to n do
write(a[i]:5);
readln;
for i:=1 to n do
s:=s+a[i];
s1:=s/n;
writeln;
writeln(`Trung binh la:`,s1:5:2);
readln
end.


program trungbinhsochan;
uses crt;
const nmax=100;
type mang=array[1..nmax] of integer;
var a:mang;
i,n,s,dem:integer;
s1:real;
begin
clrscr;
write(`Nhap so phan tu cua mang`);
read(n);
for i:=1 to n do
a[i]:=random(100)-random(100);
for i:=1 to n do
write(a[i]:5);
readln;
s:=0;
dem:=0;
for i:=1 to n do
if a[i] mod 2 = 0 then
begin
s:=s+a[i];
dem:=dem+1;
end;
s1:=s/dem;
writeln;
writeln(`Trung binh la:`,s1:5:2);
readln
end.