ĐỀ THI TIN HỌC CỦA LỚP MÌNH NÈ CÁC BẠN.

1. KHÁI NIỆM HẰNG VÀ BIẾN. NÊU ĐIỂM GIỐNG VÀ KHÁC NHAU GIỮA HẰNG VÀ BIẾN.
2. VIẾT CHƯƠNG TRÌNH TÍNH TỔNG SAU VÀ ĐƯA RA MÀN HÌNH:
S= 1/(a + 1) + 1/(a + 2) + 1/( a + 3) + .....+ 1/( a + 2009).
( a ĐƯỢC NHẬP TỪ BÀN PHÍM )
3. VIẾT CHƯƠNG TRÌNH TÍNH TỔNG SAU VÀ ĐƯA RA MÀN HÌNH:
Z= 1/( b + 1) + 1/( b + 4) + 1/( b + 9 ) + ... + 1/( b + 10000).
( b ĐƯỢC NHẬP TỪ BÀN PHÍM )
4. VIẾT CHƯƠNG TRÌNH TÌM NGHIỆM CỦA PHƯƠNG TRÌNH BẬC HAI : ax^2 + bx + c = 0 ( a KHÁC 0)
5. VIẾT CHƯƠNG TRÌNH ĐƯA RA MÀN HÌNH BẢNG NHÂN 6 DÒNG 10 CỘT.

Các bạn học khó nhỉ !

2.
var i,a:integer;S:real;
begin
writeln('nhap a= ');readln(a);
for i:=1 to 2009 do
S:=S+1/(a+i);
writeln('tong la: ',S:5:2);
readln;
end.
3.
readln(b);
t:=3;i:=1;
while i<=1000 do
begin
Z:=Z+1/(b+i);
t:=t+2;
i:=i+t;
end;
writeln('tong: ',Z:5:2);
readln;
end.
4.
readln(a,b,c);
sau đó delta:=sqr(b)-4*a*c;
Rùi biện luận ph trình bậc 2:
If delta<0 then writeln('pt vo nghiem')
else
If delta=0 then writeln('pt co nghiem kep: ',-b/(2*a):5:2)
else
begin
x1:=(-b+sqrt(delta))/(2*a);
x2:=(-b-sqrt(delta))/(2*a);
writeln('pt co 2 nghiem:',x1:5:2,x2:5:2);
readln;
end.
5.
khai báo ma trận A:
begin
for i:=1 to 6 do
for j:=1 to 10 do
A[i,j]:i*j;
xuất ma trận A.

Lấy ở đâu vậy cuncon ?

Tao lấy đâu ra kệ tao >.< . Mày ý kiến ông oánh die giờ =))