Bài tập vòng lặp 5

Thu Jun 27, 2024 8:38 pm

Cho một số nguyên dương n không lớn hơn 1000. Tính và in ra màn hình giá trị của T với độ chính xác đến 6 chữ số thập phân, biết rằng:

Ví dụ:

Nếu n = 4, thì T = 3.31662.
Nếu n = 10, thì T = 5.18545.[/size][/i]
GIẢI
[/i]

Code:: var n: integer; T: real; i: integer; function CanBacHai(x: real): real; var i: integer; begin CanBacHai := 1; for i := 1 to n do begin CanBacHai := CanBacHai * x; end; end; begin Write('Nhap so nguyen dương n (n <= 1000): '); Readln(n); if n <= 0 then begin Writeln('Nhap so nguyen dương n (n <= 1000)!'); Exit; end; T := Sqrt(1 + Sqrt(2 + Sqrt(3 + ... + Sqrt(n)))); Writeln('T = ', T:6:2); end.

Ụa