Chương trình con và lập trình có cấu trúc

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Lãnh Hàn Thiên Phong

Các bạn giúp mk với!!

Tính và in ra màn hình kết quả của các dãy số sau với số nguyên dương n nhập từ bàn phím, (0<n<13) nếu nhập n không đúng yêu cầu thì buộc phải nhập lại.
a/ S1=1/2+2/3+3/4+…+n/(n+1)
b/ S2=1+1/2!+1//3!+…+1/n! (n!=1.2.3. … .n)
(Tổng S1, S2 lấy 3 số thập phân)

Luân Trần
12 tháng 12 2019 lúc 16:23

Hỏi đáp Tin học

Khách vãng lai đã xóa
Luân Trần
12 tháng 12 2019 lúc 17:03

Hỏi đáp Tin học

Khách vãng lai đã xóa
Nguyễn Lê Phước Thịnh
12 tháng 12 2019 lúc 18:00

uses crt;
var n,i:integer;
s1,s2:real;
{-------------------chuong-trinh-con-nhap--------------------------}
procedure nhap(var x:integer);
begin
repeat
write('nhap mot so tu nhien bat ky:'); readln(x);
if (x<=0) or (x>=13) then writeln('ban da nhap sai, yeu cau ban nhap lai');
until (x>0) and (x<13);
end;
{-------------------chuong-trinh-con-tinh-tong-s1--------------------------}
function tong1(var a:integer):real;
var t1:real;
begin
t1:=0;
for i:=1 to a do
t1:=t1+i/(i+1);
tong1:=t1;
end;
{------------------chuong-trinh-con-tinh-tong-s2----------------------}
function tong2(var z:integer):real;
var t2:real;
j:integer;
gt:real;
begin
t2:=0;
for i:=1 to z do
begin
gt:=1;
for j:=1 to i do
gt:=gt*j;
t2:=t2+1/gt;
end;
tong2:=t2;
end;
{--------------------chuong-trinh-chinh-------------------------------}
begin
clrscr;
nhap(n);
s1:=tong1(n);
s2:=tong2(n);
writeln('tong s1=',s1:7:3);
writeln('tong s2=',s2:7:3);
readln;
end.

Khách vãng lai đã xóa

Các câu hỏi tương tự
Minh Phạm
Xem chi tiết
09 Lê Quang HIếu
Xem chi tiết
Đặng Công
Xem chi tiết
Nguyễn Hữu Nam
Xem chi tiết
Lê Trung Hiếu
Xem chi tiết
Ha Ha
Xem chi tiết
Vũ Ngọc Anh
Xem chi tiết
Luân Trần
Xem chi tiết
Phan Võ Đức Huy
Xem chi tiết