Giaỉ đề kiểm tra Tin học 1 tiết lớp 11

Ở đây chỉ giải câu 1 phần B, với quy ước là các bạn phải tự mình viết những câu lệnh cơ bản ( như tạo biến , chèn thư viện,...), ai có thắc mắc cứ comment lại hoặc đánh vào phần thông điệp cho nhanh.
Một lưu ý nữa là các bạn khi có phần giải , nên đọc lại phần bài học kết hợp xem phương pháp giải để từ đó tự mình viết lại, vì các phần sau là khó hơn mà cứ học " tủ " kiểu này thì cũng không " thoát" nổi đâu!Chưa kể ngồi học thuộc đống mã lệnh thì " phê" lắm.
Mỗi câu một màu nhìn cho "dễ":
1/ giải:
...
n:=1;
a:=1;
s:=0;
while n <= 51 do
begin
for i:=1 to n do
a:=a*i;
s:=s + 1/a;
a:=1;
n:=n+2;
end;
writeln ( ' s=',s);
readln
end.

2/
n:=1;
s:=0;
while (1/(n*n*n)) >= 0.000005 do
begin
s:=s+ 1/(n*n*n);
n:=n+2;
end;
...
ghi chú : mấy dòng sau đánh tương tự như trên( dòng này đừng đánh vào nha , chỉ là ghi chú thôi!)
3/
...
k:=0;
s:=0;
while 1/((2*k+1)*(2*k+1)*(2*k+1)) >= 0.000001 do
begin
s:=s+ (2*k+1)*(2*k+1)*(2*k+1);
k:=k+1;
end;
....
4/
k:=1;
s:=0;
while (( sqrt(2)<= sqrt(k*(k+1))) and (sqrt(k*(k+1))<=(10*sqrt(101))) do
begin
s:= s+ 1/sqrt(sqr(k)+k);
k:=k+1;
end;
...

5/
s:=0;
k:=1;
while k<=99 do
begin
s:=s+ (k+1)/(k*(k+2));
k:=k+2;
end;
......
6/
k:=1;
s:=0;
while 1/(sqr(k)*sqr(k+2)) >= (1.4 * 0.00000014) do
begin
s:= s+ (k+1)/((sqr(k)*sqr(k+2));
k:=k+1;
end;
......

---.---.---.---.---.---.---.---.---.---
Chú ý: câu 6 các bạn chú ý cái số 1.4 * 10 lũy thừa -7 có đổi ra đúng không.
Các bạn cũng nên tải turbo pascal trên mạng về và đánh mã vào để kiểm tra vì tôi không dám chắc là mã hoàn toàn "hoàn hảo".
Vậy là giải xong , nãy giờ bạn nào có " chép" hãy trả công tôi vì đã bỏ công suy nghĩ bằng cách comment vào phần thông điệp vì cái blog này còn ít người comment quá ,cũng như các bạn hãy xem các phần khác trong blog vì blog này lập ra không phải để " giải đề"!