Lập trình đơn giản

HN

1 viet chuong trinh in ra man hinh bang cuu chuong 2

2 viet chuong trinh tinh tong S=1/1+1/2+.......+1/n voi gia tri n nhap vao tu ban phim

HN
24 tháng 4 2018 lúc 22:36

lam on giup minh voi thu nam minh kiem tra roigianroibucminhoho

Bình luận (0)
DA
24 tháng 4 2018 lúc 22:49

bảng cửu chương 2 hả bạn ?

Bình luận (0)
HL
25 tháng 4 2018 lúc 9:31

Sử dụng For...do

Chương trình tinhtong;

trong đó n, t: số nguyên;

s: thật;

bắt đầu

write('Nhập số n');readln(n);

s: = 0;

Đối với t: = 1 đến n làm s: = s + 1 / t;

writeln('Tổng s là',s);

readln

kết thúc.

Sử dụng While...do

Chương trình tinhtong;

trong đó n, t: số nguyên;

s: thật;

bắt đầu

write('Nhập số n');readln(n);

s: = 0; t: = 1;

Câu 2:Trong khi t <= n làm

bắt đầu t: = t + 1;

s: = s + 1 / t kết thúc;

writeln('Tổng s là',s);

readln

kết thúc.

Bình luận (0)
TT
25 tháng 4 2018 lúc 19:15

2)

Program tinh_tong; Uses Crt; Var i, n: integer; S: Real; Begin Clrscr; Write (' nhap so tu nhien n: '); Readln (n); S:=0; for i:=1 to n do S :S+1/i ; Write (' Tong S la: ', S: 8: 2 ); Readln; End.
Bình luận (0)

Các câu hỏi tương tự
MC
Xem chi tiết
VT
Xem chi tiết
TB
Xem chi tiết
ND
Xem chi tiết
NQ
Xem chi tiết
CN
Xem chi tiết
DH
Xem chi tiết
DN
Xem chi tiết
VN
Xem chi tiết