BAI TINH TONG M

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down

BAI TINH TONG M

Bài gửi by Classic - VAN THIEM on Thu 06 Mar 2014, 2:35 pm

Gửi bài vào đây !

-----------~~๑۩۞۩๑~~ HỌC ONLINE ~~๑۩۞۩๑~~---------------
Em sẽ lớn lên như tôi đã từng khôn lớn
và sẽ bay cao bay xa hơn tôi ..... !!!
* thành viên câu lạc bộ học khuya*
classicfat32@gmail.com
MIE Thiemvan@outlook.com
https://sites.google.com/site/dayhocdientu/
https://www.facebook.com/thiemvan.ngo.39
CHÚT LÃNG MẠN http://sacmauthoigian.wordpress.com/category/classic/
avatar
Classic - VAN THIEM
Admin
Admin

Nam
Tổng số bài gửi : 324
điểm điểm : 878
Birthday : 27/10/1979
Đến từ : classicfat32@gmail.com

Xem lý lịch thành viên https://sites.google.com/site/dayhocdientu/

Về Đầu Trang Go down

Re: BAI TINH TONG M

Bài gửi by nhom4 on Thu 06 Mar 2014, 2:43 pm

program tinh;
uses crt;
var n:integer;
m:real;
begin
clrscr;
m:=0;
n:=0;
while n<=113 do
begin
n:=n+1;
m:=m+1/n;
end;
writeln('m=',m-1/n);
readln;
end.
avatar
nhom4
USES
USES

Nam
Tổng số bài gửi : 1
điểm điểm : 1
Birthday : 01/01/2000
Job/hobbies : HS

Xem lý lịch thành viên

Về Đầu Trang Go down

nhom 1

Bài gửi by nhom1 on Thu 06 Mar 2014, 2:46 pm

program tinh_tong;
uses crt;
var n:integer;
M:real;
begin
clrscr;
M:=0;
n:=0;
while n<=113 do
begin
n:=n+1;
M:=M+1/n;
end;
write('gia tri M la',M-1/n);
readln
end.


Được sửa bởi nhom1 ngày Thu 06 Mar 2014, 2:59 pm; sửa lần 1.
avatar
nhom1
USES
USES

Nam
Tổng số bài gửi : 1
điểm điểm : 1
Birthday : 01/01/2000
Job/hobbies : HS

Xem lý lịch thành viên

Về Đầu Trang Go down

Re: BAI TINH TONG M

Bài gửi by nhom3 on Thu 06 Mar 2014, 2:48 pm

program gia_tri;
uses crt;
var x: integer;
M: real;
begin
clrscr;
M:=0;x:=0;
while x<=113 do
begin x:=x+1;
M:=M+1/x;
end;
writeln('M=',M);
readln
end.
avatar
nhom3
USES
USES

Nam
Tổng số bài gửi : 1
điểm điểm : 1
Birthday : 01/01/2000
Job/hobbies : HS

Xem lý lịch thành viên

Về Đầu Trang Go down

Re: BAI TINH TONG M

Bài gửi by nhom2 on Thu 06 Mar 2014, 3:00 pm

program tinhtong;
uses crt;
var S:real;
   n:integer;
begin
S:=0;
n:=1;
clrscr;
while n<113 do
begin

S:=S+1/n;
end;
writeln('tong S la',S);
readln;
end.
avatar
nhom2
USES
USES

Nam
Tổng số bài gửi : 1
điểm điểm : 1
Birthday : 01/01/2000
Job/hobbies : HS

Xem lý lịch thành viên

Về Đầu Trang Go down

Re: BAI TINH TONG M

Bài gửi by Sponsored content


Sponsored content


Về Đầu Trang Go down

Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang


 
Permissions in this forum:
Bạn không có quyền trả lời bài viết