[Tin 8] Thử thách Tin học 8

[minhhoang_vip]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Có ai làm được bài này không nhỉ?
Viết chương trình Pascal tính tổng sau
(Trích đề thi tuyển sinh vào 10 Bình Phước môn Toán 2008 - 2009)
[TEX]A =\Large \frac{1}{1 + \sqrt{2}} + \frac{1}{\sqrt{2} + \sqrt{3}} + \frac{1}{\sqrt{3} + \sqrt{4}} + ... + \frac{1}{\sqrt{2007} + \sqrt{2008}}[/TEX]
(Gợi ý: [TEX]\Large \sqrt{x}[/TEX] được viết trong Pascal là sqrt(x).)

 

[duynhan1]

Có ai làm được bài này không nhỉ?
Viết chương trình Pascal tính tổng sau
(Trích đề thi tuyển sinh vào 10 Bình Phước môn Toán 2008 - 2009)
[TEX]A =\Large \frac{1}{1 + \sqrt{2}} + \frac{1}{\sqrt{2} + \sqrt{3}} + \frac{1}{\sqrt{3} + \sqrt{4}} + ... + \frac{1}{\sqrt{2007} + \sqrt{2008}}[/TEX]
(Gợi ý: [TEX]\Large \sqrt{x}[/TEX] được viết trong Pascal là sqrt(x).)

Nhân lượng liên hợp
[TEX]A = \sqrt{2008} - 1 [/TEX]

Còn lại quá đơn giản

Begin
Write('A=',sqrt(2008)-1:7:5);
Readln;
End.

 

[huutoan00]

*le dân toán:

Nhân lượng liên hợp
[TEX]A = \sqrt{2008} - 1 [/TEX]

Còn lại quá đơn giản

Begin
Write('A=',sqrt(2008)-1:7:5);
Readln;
End.

*le dân tin:

for i:=1 to n do
s:=s+1/(sqrt(i)+sqrt(i+1);

xong )

 

[Nguyễn Thánh Tiền]

*le dân toán:


*le dân tin:

for i:=1 to n do
s:=s+1/(sqrt(i)+sqrt(i+1);

xong )

dân tin sai số nhiều hơn nhỉ