Diễn đàn dành cho toàn thể học sinh và các thầy cô trường THPT Xuân Áng.
Thông báo: Diễn Đàn đăng cần tuyển Mod và người điều hành. Các bạn có năng lực, nhiệt huyết xin hãy đăng ký. Chi tiết xem tại thông báo của diễn đàn.

Diễn đàn dành cho toàn thể học sinh và các thầy cô trường THPT Xuân Áng.

Nơi các bạn có thể chia sẻ những tâm sự, những cảm súc, hay những đóng góp tốt cho mái trường THPT Xuân Áng.
 
IndexPortalGalleryTrợ giúpTìm kiếmThành viênNhómĐăng kýĐăng NhậpXuân Áng
Tìm kiếm
 
 

Display results as :
 
Rechercher Advanced Search
Tìm kiếm
 
 

Display results as :
 
Rechercher Advanced Search
Latest topics
Latest topics
Navigation
 Portal
 Diễn Đàn
 Thành viên
 Lý lịch
 Trợ giúp
 Tìm kiếm
Navigation
 Portal
 Diễn Đàn
 Thành viên
 Lý lịch
 Trợ giúp
 Tìm kiếm
Diễn Đàn
Diễn Đàn
Affiliates
Affiliates

Share | 
 

 tìm n thoả mãn đk

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down 
Tác giảThông điệp
tuananh_661
Thanh vien moi
Thanh vien moi


Tổng số bài gửi : 21
Join date : 14/09/2010
Age : 25
Đến từ : quan khe

Bài gửiTiêu đề: tìm n thoả mãn đk   15/9/2010, 1:40 am

tìm n lớn nhất thoả mãn điều kiện
1+1/2+1/3+1/4+1/5+...+1/n < 2.
Về Đầu Trang Go down
Xem lý lịch thành viên
vitoan_pt91
Thanh vien moi
Thanh vien moi


Tổng số bài gửi : 9
Join date : 14/09/2010
Age : 25
Đến từ : dong thanh-thanh ba-phu tho

Bài gửiTiêu đề: loi giai: tìm n lớn nhất thoả mãn điều kiện 1+1/2+1/3+1/4+1/5+...+1/n < 2.   15/9/2010, 10:30 pm

tìm n thoả mãn đk
tìm n lớn nhất thoả mãn điều kiện
1+1/2+1/3+1/4+1/5+...+1/n < 2.

program tinh_n;
var i : integer;
tong :real;
begin
tong:=0;
i:=1;
while (tong<2) do
begin
tong:=tong+1/i;
i:=i+1;
end;
writeln('so n lon nhat thoa man dk la',i-2); {khi n thoa man tong < 2 bien i duoc tang len mot, vong lap tiep tuc, khi tong >2 i lai dc tang mot lan nua va vong lap ket thuc. vay ket qua n= i-2}
readln;
end.

ket qua n=3.


Được sửa bởi vitoan_pt91 ngày 18/9/2010, 12:35 am; sửa lần 2.
Về Đầu Trang Go down
Xem lý lịch thành viên
ĐT—Sqµär€
Thanh vien moi
Thanh vien moi


Tổng số bài gửi : 10
Join date : 15/09/2010
Age : 27
Đến từ : Đất Tổ

Bài gửiTiêu đề: cho em hỏi tí    16/9/2010, 2:59 pm

KQ XS Đồng nai ngày : 15-09-2010 ( Thứ 4 )

Giải đặc biệt 401243
Giải nhất 45794
Giải nhì 61070
Giải ba 36214 - 40997
Giải tư 40252 - 63970 - 90296 - 62271 - 27902 - 54235 - 37817
Giải năm 9354
Giải sáu 9986 - 0072 - 1122
Giải bảy 659
Giải tám 77


Các chú giải cho anh tính kết quả sx típ theo đài ĐỒng Nai là j coi Smile)
Về Đầu Trang Go down
Xem lý lịch thành viên http://chanvl.tk
vitoan_pt91
Thanh vien moi
Thanh vien moi


Tổng số bài gửi : 9
Join date : 14/09/2010
Age : 25
Đến từ : dong thanh-thanh ba-phu tho

Bài gửiTiêu đề: giai dac biet dong nai   17/9/2010, 5:25 pm

chao dai ca sieu may tinh
du sao thi gia dac biet cung co 6 chu so can gi phai doan ha ong anh.
Về Đầu Trang Go down
Xem lý lịch thành viên
admin
Admin
Admin


Tổng số bài gửi : 40
Join date : 26/08/2010
Age : 30
Đến từ : Hiền Lương - Hạ Hòa - Phú Thọ

Bài gửiTiêu đề: loi giai: tìm n lớn nhất thoả mãn điều kiện 1+1/2+1/3+1/4+1/5+...+1/n < 2.   17/9/2010, 7:19 pm

Mình thấy bạn biết khá nhiều về môn LT Pascal. Cảm ơn bạn đã đóng góp cho forums của trường. Cho mình hỏi bạn trước có học tại trường THPT Xuân Áng không nhỉ?
Về lời giải cho bài toán này bạn làm có chút nhầm lẫn rồi. bạn xem lại nhé.
mình xin đưa ra một cách khác: Dùng câu lệnh Repeat ... Until...
program tinh_n;
var n : integer;
tong :real;
begin
tong:=1;
n:=1;
Repeat
n:=n+1;
tong:=tong+1/n;
Until tong >2.0;
writeln('so n lon nhat thoa man dk la',n-1);
readln;
end.
Kết quả đúng là : n = 3

_________________
(-_-).S2. Mỗi bước chân làm con đường ngắn lại.S2.(-_-)
(-_-).S2. Sống trên đời nhẫn nạn để thành công.S2.(-_-)

Wink Wink Wink Wink Wink Wink Wink Wink Wink Wink Wink Wink Wink Wink Wink Wink Wink Wink Wink
Về Đầu Trang Go down
Xem lý lịch thành viên http://xuan-ang.forumsmotions.com
tuananh_661
Thanh vien moi
Thanh vien moi


Tổng số bài gửi : 21
Join date : 14/09/2010
Age : 25
Đến từ : quan khe

Bài gửiTiêu đề: Re: tìm n thoả mãn đk   17/9/2010, 11:46 pm

12a1 k26
cam on thay nhiu vi da tao ra forum nay.vi xuan ang than yeu.... Razz
Về Đầu Trang Go down
Xem lý lịch thành viên
vitoan_pt91
Thanh vien moi
Thanh vien moi


Tổng số bài gửi : 9
Join date : 14/09/2010
Age : 25
Đến từ : dong thanh-thanh ba-phu tho

Bài gửiTiêu đề: cam on thay da sua loi giup em.   18/9/2010, 12:42 am

cam on thay da sua loi giup em.
em da chinh lai mong thay kiem tra giup em.
cap 3 em ko hoc truong thpt xuan ang.
em tham dien dan nay do ban em gioi thieu.
ban em hoc cap 3 o day.
em thay rat vui khi dc tham gia dien dan.
mong dc thay cung cac ban chi bao them.
em cam on thay!
Về Đầu Trang Go down
Xem lý lịch thành viên
Sponsored content




Bài gửiTiêu đề: Re: tìm n thoả mãn đk   Today at 1:48 pm

Về Đầu Trang Go down
 
tìm n thoả mãn đk
Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang 
Trang 1 trong tổng số 1 trang

Permissions in this forum:Bạn không có quyền trả lời bài viết
Diễn đàn dành cho toàn thể học sinh và các thầy cô trường THPT Xuân Áng. :: CLB Học Tập :: Lập Trình Pascal-
Chuyển đến