Đa phương tiện

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Thảo Phương

Viết chương trình tính tổng và giải thích cách tìm công thức tổng quát của bài toán:

\(S=\sqrt{1+\sqrt{2+....+\sqrt{n-1+\sqrt{n}}}}\) vơi nhập từ bàn phím.

(*Kiến thức mới: SQRT(x) :\(\sqrt{x}\))

Hung nguyen
24 tháng 7 2018 lúc 9:11

program Lam_Lui;

var S:extended;

i,n:integer;

begin

clrscr;

write('Nhap n = ');

readln(n);

S:=0;

for i:=n downto 1 do S:=sqrt(i+S);

write('Sai tự chịu: ',S);

readln;

end.

Hung nguyen
24 tháng 7 2018 lúc 9:21

program Lam_Lui;

var S:extended;

i,n:integer;

begin

clrscr;

write('Nhap n = ');

readln(n);

S:=0;

for i:=n downto 1 do S:=sqrt(i+S);

writeln('Sai tự chịu: ',S);

readln;

end.

Trần Minh Hoàng
27 tháng 7 2018 lúc 8:55

Trong MSWLOGO:

To tinhtoan :n
CS
make "A 0
FOR [i :n 1 -1][Make "A :A+sqrt(:i+:A)]
RT 90 LABEL (List "Tong "la: :A)
end

Mọi thắc mắc xin gửi về tổng đài: 1900, 1 ko ko có

Mysterious Person
30 tháng 10 2018 lúc 14:47

progam giaibaitaphoc24_vn;

var n , s : real;

begin

write(`nhap bieu thuc s : ');

readln(n);

s:=sqrt(1+sqrt(2+sqrt(...sqrt(n-1+sqrt(n));

writeln('gia tri bieu thuc s = `, s:7:3);

readln;

end

Đoàn Gia Khánh
25 tháng 11 2018 lúc 11:53

program fds;

uses crt;

var i,n,S: integer;

begin

clrscr;

write('n=');

readln(n);

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

readln;

end.

bạn cứ làm thử đi nhé

Đoàn Gia Khánh
25 tháng 11 2018 lúc 11:55

mình không biết bạn biết hay không

sqr(x): x2


Các câu hỏi tương tự
Trần Trần
Xem chi tiết
HSNK HSG
Xem chi tiết
vinh le
Xem chi tiết
Doãn Hoài Trang
Xem chi tiết
Thangzz
Xem chi tiết
Phương Minh
Xem chi tiết
Tạ Nguyễn Huyền Giang
Xem chi tiết
Trần Nhật Phong
Xem chi tiết
Đinh Thuận
Xem chi tiết