text:
♫ Phòng hát hay
♫ Phòng triển vọng
♫ Tiếng hát thành viên
♫ Phòng giao lưu
♫ Phòng sáng tác
♫ Phòng chờ feat
♫
Nhạc nền (Playback, Beat)
♫ Phòng chờ thẩm định
♫ Bài hát mới
♫ Phòng hát hay
♫ Phòng triển vọng
♫ Tiếng hát thành viên
♫ Phòng giao lưu
♫ Phòng sáng tác
♫ Phòng chờ feat
♫ Nhạc nền (Playback, Beat)
♫ Phòng chờ thẩm định
♫ Bài hát mới
♫ Phòng rap hay
♫ Phòng triển vọng
♫ Tiếng rap thành viên
♫ Phòng giao lưu
♫ Phòng sáng tác
♫ Phòng chờ feat
♫ Nhạc nền (Playback, Beat)
♫ Phòng chờ thẩm định
♫ Bài rap mới
♫ Video Clip hay
♫ Video Clip triển vọng
♫ Video Clip thành viên
♫ Tập làm Video Clip
♫ Offline Yeucahat
♫ Phòng chờ thẩm định
♫ Video Clip mới
» Cập nhật
» Xem tin nhắn
» Thay đổi lý lịch
Lần đăng nhập trước của bạn:
Yêu Ca Hát
Music
Studio
Đăng nhập
/
Đăng ký
Tên Bài Hát
Trình bày
Sáng tác
Lời bài hát
Việt Nam
Nước ngoài
Rap
Video Clip
Thông báo
C:
\
Việt Nam
\
Nhạc nền (Playback, Beat)
\
Người Yêu Bé Nhỏ
Chấm điểm:
(
Xem tiêu chí
)
1
2
3
4
5
6
7
8
9
10
dongsongbangbl2007
,
quocanh2012
,
lu thuan
Thực hiện:
TUAN TRINH Production
Gởi:
TUAN_TRINH
Kiểm duyệt:
vominhtan
05/09/2009 22:59
Nghe:
5253
Downloads:
755
Cảm nhận:
6
Người Yêu Bé Nhỏ
Trình bày:
Beat
Sáng tác:
Phương Uyên
Em, mặc kệ người ta nói, rằng ta không xứng đôi
Vẫn yêu anh nhiều, vẫn mong bên người, ngất ngây đêm dài
Cho, dù anh không cao lắm, mà trông anh rất duyên
Có anh em cười, khiến em yêu đời, có chi hơn ngươì
Người yêu ơi có anh ngắm trăng đếm sao cùng em
Bao ước mơ sớt chia cùng em
Ôi đắm say ngất ngây môi cười, trong trái tim có anh tươi cười
Nhưng vẫn luôn thứ tha tình em, cho dẫu em biết bao lần sai
Không một lời buồn phiên than trách, chỉ mỉm cười ngọt ngào anh nói
ĐK:
Nắm tay cùng chung bước, mình cùng nhau vượt qua bão giông
Miệng người đời chua cay, ghét ghen khi tình ta say
Tình là tình đôi ta, buồn thì có đôi ta, thì thôi mình quên sầu nhé
Chẳng bao giờ ai biết, rồi tình ta đẹp hơn nắng mai
Tình một đời không xa, có ai như tình đôi ta
Chẳng còn gì hơn anh, tình này dành hết cho anh
Người yêu nhỏ ơi, I love you
TUAN_TRINH
Thành viên khác
Playback, Beat
Quà tặng âm nhạc
1-
Lối Sống Thực Tại
(
3
/311/11)
Beat
2-
Thà Rằng Em Cứ Nói
(
3
/591/46)
Beat
3-
Tìm Lại Hạnh Phúc
(
0
/264/8)
Beat
4-
Lá Cây
(
0
/488/20)
Beat
5-
Viên Đá Nhỏ
(
10
/2680/337)
Beat
6-
Nắng Tin Yêu
(
0
/565/26)
Beat
7-
Ký Ức Về Chiếc Nhẫn Cỏ
(
4
/1709/315)
Beat
8-
Bất Chợt Một Tình Yêu
(
4
/1604/153)
Beat
Xem tất cả
1-
Người Yêu Bé Nhỏ
(
7
/19)
dettamgai_nm
2-
Người Yêu Bé Nhỏ
(
47
/46)
pengo_lonely
3-
Người Yêu Bé Nhỏ
(
3
/22)
cedricnu
4-
Người Yêu Bé Nhỏ
(
2
/16)
linhgacconglucquan
5-
Người Yêu Bé Nhỏ
(
0
/0)
siunhan_nhamnho
Xem tất cả
1-
Người Yêu Bé Nhỏ
(
6
/494)
Beat
2-
Người Yêu Bé Nhỏ
(
2
/16)
Beat
3-
Người Yêu Bé Nhỏ
(
1
/16)
Beat
Xem tất cả
Cảm nhận
Người gởi:
Mai Tuan Anh
- 06/09/2009 02:45
Bài hát:
15
Cảm nhận:
3749
Thẩm định:
2135
Beat hay chuẩn mà ko hợp giọng của mình nên ko dám hát,nghe hà hồ hát đc rồi
Thu Cạn
- Mai Tuấn Anh
Người gởi:
TUAN_TRINH
- 06/09/2009 22:19
Bài hát:
182
Cảm nhận:
1454
Thẩm định:
516
ok bạn . sao cũng được !
miễn là các bạn vui !
Lối Sống Thực Tại
- Beat
Người gởi:
thuysinger
- 25/10/2009 12:06
Bài hát:
10
Cảm nhận:
65
Thẩm định:
16
chùi,,,biết vậy kiu ông làm dùm tui bài này...hichic....
Mưa Hè
- thuysinger
Người gởi:
TUAN_TRINH
- 25/10/2009 16:32
Bài hát:
182
Cảm nhận:
1454
Thẩm định:
516
thì giờ pà hát bài này đi có sao dâu
!
Lối Sống Thực Tại
- Beat
Người gởi:
dongsongbangbl2007
- 06/08/2010 14:32
Bài hát:
577
Cảm nhận:
3268
Thẩm định:
536
trời !!!!
ackkkkkkkk
thích cực kỳ bài nì !!!!!
thanks bạn nhiều !!!
iu quá đi cơ
Yêu Không Nghỉ Phép
- dongsongbangbl2007
Người gởi:
cubicu
- 21/11/2011 17:48
Bài hát:
1
Cảm nhận:
1
Thẩm định:
1
beat hay lắm bạn à
Sway
- cubicu
Trang
1
/ tổng
1
trang
Gởi trả lời
Kiểu gõ Tiếng Việt:
Tắt
Telex
Vni
VIQR
VIQR*
Tất cả
Kiểm lỗi chính tả
Nội dung cảm nhận:
Các biểu tượng
Xem thêm...
Màu chữ:
Mặc định
Dark Red
Red
Orange
Brown
Yellow
Green
Olive
Cyan
Blue
Dark Blue
Indigo
Violet
White
Black
Cỡ chữ:
Cỡ chữ
Rất nhỏ
Nhỏ
Bình thường
Lớn
Rất lớn
Đóng Tags
Điểm cao trong tuần
Chuyến Tàu Tiễn Biệt
Duyên Duyên; ngocthangth
Được quan tâm
Tân Cổ Người Xa Quê
DANNY BOBO(Ngô Hoàng Đạt)
Con Quy Y Tam Bảo
huỳnh nhật út
Chào bạn,
Khách
Tên truy cập:
Mật khẩu:
Thành viên mới
Chào mừng thành viên thứ
1.857.236
vừa gia nhập vào cộng đồng Yêu Ca Hát là:
trần quảng quảng �
Thời gian = Giờ VN [GMT+7]
Việt Nam
Nước ngoài
Rap
Video Clip
Thông báo
Phòng hát hay
Phòng triển vọng
Tiếng hát thành viên
Phòng giao lưu
Phòng sáng tác
Phòng chờ feat
Nhạc nền (Playback, Beat)
Phòng chờ thẩm định
Bài hát mới
Phòng hát hay
Phòng triển vọng
Tiếng hát thành viên
Phòng giao lưu
Phòng sáng tác
Phòng chờ feat
Nhạc nền (Playback, Beat)
Phòng chờ thẩm định
Bài hát mới
Phòng rap hay
Phòng triển vọng
Tiếng rap thành viên
Phòng giao lưu
Phòng sáng tác
Phòng chờ feat
Nhạc nền (Playback, Beat)
Phòng chờ thẩm định
Bài rap mới
Video Clip hay
Video Clip triển vọng
Video Clip thành viên
Tập làm Video Clip
Offline Yeucahat
Phòng chờ thẩm định
Video Clip mới
Nội quy Yêu Ca Hát
Danh sách phạm quy
Xem tin nhắn
Yêu Ca Hát Studio
Đăng nhập
Liên hệ
Công ty Cổ phần giải trí Yêu Ca Hát
Số GCNDT: 0305477372, cấp ngày 21/01/2008, nơi cấp: Sở kế hoạch đầu tư TP.HCM
Trụ sở chính: Âu Dương Lân, Phường 02, Quận 08, Thành phố Hồ Chí Minh
Giấy phép MXH: 90/GXN-TTĐT 08/09/2011
Máy chủ được đặt tại
Viettel IDC
Page generation time: 0.0796s (PHP: 93% - SQL: 7%)
SQL queries: 9 - GZIP enabled - Debug on

markdown:
|
|
Beat
![]()
|
|![]()
|
|
|
|![]()
|
|
|
|![]()
|
|
|
|
![]()
|
|
|Điểm cao trong tuần|
|
|![]()
|
|
|Được quan tâm|
|
|![]()
|
|![]()
|Chào bạn,
|Khách
|Thành viên mới|
|
|![]()
|Thời gian = Giờ VN [GMT+7]|
|
|Công ty Cổ phần giải trí Yêu Ca Hát
Số GCNDT: 0305477372, cấp ngày 21/01/2008, nơi cấp: Sở kế hoạch đầu tư TP.HCM
Trụ sở chính: Âu Dương Lân, Phường 02, Quận 08, Thành phố Hồ Chí Minh
Giấy phép MXH: 90/GXN-TTĐT 08/09/2011
|
Máy chủ được đặt tại
|
Page generation time: 0.0796s (PHP: 93% - SQL: 7%)
SQL queries: 9 - GZIP enabled - Debug on
Người gởi: Mai Tuan Anh - 06/09/2009 02:45 15
Cảm nhận:
3749
Thẩm định:
2135 Người gởi: TUAN_TRINH - 06/09/2009 22:19 182
Cảm nhận:
1454
Thẩm định:
516 Người gởi: thuysinger - 25/10/2009 12:06 10
Cảm nhận:
65
Thẩm định:
16 Người gởi: TUAN_TRINH - 25/10/2009 16:32 182
Cảm nhận:
1454
Thẩm định:
516 Người gởi: dongsongbangbl2007 - 06/08/2010 14:32 577
Cảm nhận:
3268
Thẩm định:
536
ackkkkkkkk
thích cực kỳ bài nì !!!!!
thanks bạn nhiều !!!
iu quá đi cơ
Người gởi: cubicu - 21/11/2011 17:48 1
Cảm nhận:
1
Thẩm định:
1 1/ tổng 1trang

Server: nginx admin

Cache-Control: no-cache, pre-check=0, post-check=0

Set-Cookie: ads_time=i%3A2%3B; expires=Tue, 19-Apr-2016 00:47:17 GMT; path=/; domain=.yeucahat.com


text:
Thành Thật Với Tình Yêu: Phim tình cảm Hàn Quốc nội dung xoay quanh mối tình của 3 nhân vật, mà nó cũng là một vòng lẫn quẩn. Jae Ho một chàng trai có một gia đình không hạnh phúc và nghèo khổ. Mẹ Jae Ho bỏ rơi hai anh em khi cha anh qua đời, anh phải sống rất vất vả để vừa lo việc học và lo kiếm tiền trang trải và nuôi em, anh tự nhủ rằng anh phải thành công và trở thành một người có địa vị. Shin hyung là một cô giáo dạy tâm lý học của Jae Ho, cô lớn hơn Jae Ho vài tuổi và hai người có một tình yêu chân thật. Nhưng cô em họ của Shin hyung cũng yêu Jae Ho. Shin hyung và Jae Ho đã vượt qua rất nhiều rào cản để đến với nhau nhưng liệu họ có được hạnh phúc hay không bởi có quá nhiều rào cản phía trước. Hãy đón xem phim Thành Thật Với Tình Yêu.
Xem Phim Thành Thật Với Tình Yêu - Did We Really Love trọn bộ , Phim Thành Thật Với Tình Yêu tập 1-2-3-4-5-6-7-8-9-10-11-12-13-14-15-16-17-18-19-20-21-22-23-24-25-26-27-28-29-30
Thành Thật Với Tình Yêu
Phim Thành Thật Với Tình Yêu
Did We Really Love
Status: Tập 44/44
Thể Loại: Tình Cảm
Quốc Gia: Hàn Quốc
Sản Xuất: 2013
Đạo Diễn: Park Jong
Diễn Viên: Bae Yong Joon, Kim Hye Soo, Yoon Son Ha, Lee Jae Ryong, Lee Na Young, Joo HyunXem phim
Thành Thật Với Tình Yêu - Did We Really Love
Thành Thật Với Tình Yêu: Phim tình cảm Hàn Quốc nội dung xoay quanh mối tình của 3 nhân vật, mà nó cũng là một vòng lẫn quẩn. Jae Ho một chàng trai có một gia đình không hạnh phúc và nghèo khổ. Mẹ Jae Ho bỏ rơi hai anh em khi cha anh qua đời, anh phải sống rất vất vả để vừa lo việc học và lo kiếm tiền trang trải và nuôi em, anh tự nhủ rằng anh phải thành công và trở thành một người có địa vị. Shin hyung là một cô giáo dạy tâm lý học của Jae Ho, cô lớn hơn Jae Ho vài tuổi và hai người có một tình yêu chân thật. Nhưng cô em họ của Shin hyung cũng yêu Jae Ho. Shin hyung và Jae Ho đã vượt qua rất nhiều rào cản để đến với nhau nhưng liệu họ có được hạnh phúc hay không bởi có quá nhiều rào cản phía trước. Hãy đón xem phim Thành Thật Với Tình Yêu.
Xem Phim Thành Thật Với Tình Yêu - Did We Really Love trọn bộ , Phim Thành Thật Với Tình Yêu tập 1-2-3-4-5-6-7-8-9-10-11-12-13-14-15-16-17-18-19-20-21-22-23-24-25-26-27-28-29-30

markdown:
**Thành Thật Với Tình Yêu:** Phim tình cảm Hàn Quốc nội dung xoay quanh mối tình của 3 nhân vật, mà nó cũng là một vòng lẫn quẩn. Jae Ho một chàng trai có một gia đình không hạnh phúc và nghèo khổ. Mẹ Jae Ho bỏ rơi hai anh em khi cha anh qua đời, anh phải sống rất vất vả để vừa lo việc học và lo kiếm tiền trang trải và nuôi em, anh tự nhủ rằng anh phải thành công và trở thành một người có địa vị. Shin hyung là một cô giáo dạy tâm lý học của Jae Ho, cô lớn hơn Jae Ho vài tuổi và hai người có một tình yêu chân thật. Nhưng cô em họ của Shin hyung cũng yêu Jae Ho. Shin hyung và Jae Ho đã vượt qua rất nhiều rào cản để đến với nhau nhưng liệu họ có được hạnh phúc hay không bởi có quá nhiều rào cản phía trước. Hãy đón xem phim Thành Thật Với Tình Yêu.
Xem Phim [Thành Thật Với Tình Yêu - Did We Really Love](http://xemphim74.com/phim/thanh-that-voi-tinh-yeu) trọn bộ , Phim [Thành Thật Với Tình Yêu](http://xemphim74.com/phim/thanh-that-voi-tinh-yeu) tập 1-2-3-4-5-6-7-8-9-10-11-12-13-14-15-16-17-18-19-20-21-22-23-24-25-26-27-28-29-30
#
[
](http://xemphim74.com/phim/thanh-that-voi-tinh-yeu)
**Thành Thật Với Tình Yêu**
**Thành Thật Với Tình Yêu**
[Phim Thành Thật Với Tình Yêu](http://xemphim74.com/phim/thanh-that-voi-tinh-yeu)
## Did We Really Love
Status: Tập 44/44
Thể Loại:
[Tình Cảm](http://xemphim74.com/category/tinh-cam)
Quốc Gia:
[Hàn Quốc](http://xemphim74.com/quoc-gia/han-quoc)
Sản Xuất:
[2013](http://xemphim74.com/year/2013)
Đạo Diễn: Park Jong
Diễn Viên: Bae Yong Joon, Kim Hye Soo, Yoon Son Ha, Lee Jae Ryong, Lee Na Young, Joo Hyun
[Xem phim](http://xemphim74.com/play/thanh-that-voi-tinh-yeu/1) [](http://xemphim74.com/phim/thanh-that-voi-tinh-yeu)

WARC-Type: response

Content-Type: application/http; msgtype=response

Cache-Control: no-store, no-cache, must-revalidate, post-check=0, pre-check=0

Pragma: no-cache

Content-Type: text/html; charset=utf-8

Accept-Ranges: bytes

Connection: close

Server: SERVER


text:
CÁC BÀI TOÁN SỬ DỤNG CHƯƠNG TRÌNH CON (P1).
Bài 1: Giải phương trình bậc 2: ax2+bx+c=0; với a,b,c được nhập vào từ bàn phím.
Cách 1: Chúng ta sẽ sử dụng thủ tục để thực hiện công việc tính Delta và nghiệm nếu có.
Trong thủ tục này chúng ta lưu ý: Các biến chúng ta sử dụng là biến toàn cục, nên công việc tính Delta và tính nghiệm sẽ được thực hiện trong chương trình con và kết quả sẽ được mang ra ngoài thủ tục để phục vụ cho công việc xét nghiệm.
{This code Created by hoana2007}
{Giai phuong trinh bac 2}
Program GiaiPTB2;
uses wincrt;
var a,b,c,x1,x2,Delta:real;
{Thu tuc tinh Delta va nghiem}
Procedure PTB2;
var r:real;
begin
Delta := sqr(b)-4*a*c;
if Delta >= 0 then
Begin
r := Sqrt(Delta);
x1 := (-b-r)/(2*a);
x2 := (-b+r)/(2*a);
end;
end;
{Than chuong trinh chinh}
Begin
Writeln(‘Nhap 3 he so: a,b,c(Moi so cach nhau mot dau cach)’); readln(a,b,c);
PTB2;
if Delta < 0 then write(‘Phuong trinh vo nghiem’)
else
If Delta = 0 then Write(‘Phuong trinh co 1 nghiem: ‘, x1:10:2)
else writeln(‘Phuong trinh co 2 nghiem: x1 = ‘, x1:10:2 ,’***** x2 = ‘, x2:10:2);
readln;
end.
Cách 2: Chúng ta có thể sử dụng hàm để tính giá trị của Delta sau đó sẽ dùng hàm này để thực hiện việc xét nghiệm cho phương trình, các biến a,b,c,x1,x2 vẫn là các biến toàn cục.
{This code Created by hoana2007}
{Giai phuong trinh bac 2}
Program GiaiPTB2;
uses wincrt;
var a,b,c,x1,x2,r:real;
{Thu tuc tinh Delta va nghiem}
Function Delta:real;
begin
Delta := sqr(b)-4*a*c;
end;
{Than chuong trinh chinh}
Begin
Writeln(‘Nhap 3 he so: a,b,c(Moi so cach nhau mot dau cach)’); readln(a,b,c);
if Delta < 0 then write(‘Phuong trinh vo nghiem’)
else
If Delta = 0 then
Begin
x1:=-b/(2*a);
Write(‘Phuong trinh co 1 nghiem: ‘, x1:10:2)
end
else
Begin
r:=sqrt(Delta);
x1 := (-b-r)/(2*a);
x2 := (-b+r)/(2*a);
writeln(‘Phuong trinh co 2 nghiem: x1 = ‘, x1:10:2 ,’***** x2 = ‘, x2:10:2);
end;
readln;
end.
Cách 3: Hoặc chúng ta có thể sử dụng một thủ tục để thực hiện tất cả các công việc. Sau đó chúng ta có thể chỉ cần gọi thủ tục khi ta thực thi với các bộ dữ liệu:
{This code Created by hoana2007}
{Giai phuong trinh bac 2}
Program GiaiPTB2;
uses wincrt;
var a,b,c:real;
Procedure PTB2(a,b,c:real); {Tham so hinh thuc}
Var r,x1,x2,Delta:real; {Bien cuc bo}
begin
Delta := sqr(b)-4*a*c;
if Delta < 0 then write(‘Phuong trinh vo nghiem’)
else
If Delta = 0 then
Begin
x1:=-b/(2*a);
Write(‘Phuong trinh co 1 nghiem: ‘, x1:10:2)
end
else
Begin
r:=sqrt(Delta);
x1 := (-b-r)/(2*a);
x2 := (-b+r)/(2*a);
writeln(‘Phuong trinh co 2 nghiem: x1 = ‘, x1:10:2 ,’***** x2 = ‘, x2:10:2);
end;
readln;
end;
begin
Writeln(‘Nhap 3 he so: a,b,c(Moi so cach nhau mot dau cach)’); readln(a,b,c);
PTB2(a,b,c);{Goi thu tuc voi tham bien}
PTB2(2,8,3);{Goi thu tuc voi tham tri}
end.
Bài 2: Viết chương trình thực hiện các công việc sau:
- Nhập dữ liệu cho một mảng một mảng một chiều.
- Tìm xem trong mảng có bao nhiêu phần tử có giá trị nguyên tố.
- In ra các phẩn tử của mảng có giá trị nguyên tố.
- In lại toàn bộ mảng.
Phân tích:
Bài này chúng ta có thể sử dụng các chương trình con để thực hiện từng công việc.
- Phần nhập dữ liệu cho mảng ta có thể dùng thủ tục để thực hiện việc nhập.
- Chúng ta cần có một hàm để kiểm tra số nguyên tố, hàm này chúng ta nên sử dụng hàm có kiểu trả về là kiểu logic.
– Ý tưởng:
Hàm nguyento(x:nguyen):logic;
Nguyento:=sai;
nếu x<1 then nguyento :=sai
khác
lặp công việc xét nếu một trong các số từ 2 đến phần nguyên của căn x
Nếu x chia hết một trong các số đó thì nguyento:=sai
Khác nguyento:=đúng.
- Chúng ta cũng cần thêm có một hàm để đếm các số trong mảng là nguyên tố, hàm này sẽ sử dụng lại kết quả ở hàm nguyên tố ở trên.
- Việc in các số là số nguyên tố ra màn hình chúng ta cũng dùng một thủ tục và thủ tục này sẽ gọi đến hàm nguyên tố để kiểm tra.
- Việc in lại toàn bộ mảng cũng sẽ dử dụng một thủ tục in thông thường.
Chương trình:
{This code Created by hoana2007}
Program Mang;
uses wincrt;
const n=100;
type mg = array[1..n] of longint;
var A:mg; m,i:byte;
procedure Nhap_mg(Var X:mg);
begin
for i:=1 to m do readln(X[i]);
end;
Function NguyenTo(X:longint):boolean;
var j:integer;
begin
NguyenTo := false;
for j:=2 to Trunc(sqrt(X)) do
If X mod j = 0 then exit; {thoat khoi chuong trinh con}
NguyenTo := X > 1; {Thuc chat: NguyenTo := true;}
end;
Function Dem(X:mg):longint;
var d:longint;
begin
d:=0;
for i:=1 to m do
If NguyenTo(X[i]) then d:=d+1;{inc(d)}
Dem := d;
end;
Procedure InN_To(X:mg);
begin
write(‘Cac phan tu trong day co gia tri nguyen to la: ‘);
for i:=1 to m do
If NguyenTo(X[i]) then Write(X[i],’_’);
end;
Procedure In_Mg(X:mg);
begin
Writeln(‘TOAN BO CAC PHAN TU TRONG DAY’);
for i:=1 to m do write(X[i],’ ‘);
end;
{Chuong trinh chinh}
Begin
writeln(‘Nhap so luong phan tu cho mang’); readln(m);
Nhap_mg(A);
Writeln(‘So luong phan tu co gia tri nguyen to trong day la: ‘, dem(A));
InN_To(A);
In_Mg(A);
end.
Bài tập:
- Em hãy viết thủ tục nhập vào bộ 3 số nguyên dương, một hàm logic kiểm tra xem 3 số đó có tạo thành một tam giác hay không. Nếu có tạo thành một tam giá thì hãy viết hàm tính chu vi và diện tích của tam giác đó. Sau đó in các kết quả ra màn hình.
- Em hãy viết chương trình kiểm tra một số nguyên dương a có phải là một số nguyên tố hay không.
(còn nữa…)
Created by hoana2007
Email: nguyenhoa2003@hotmail.com
http://hoana2007.spaces.live.com
thanks ban nhe, toi cung dang tim hieu ve phan nay
Pingback: Bài tập về nhà_ Bài 17-Chương trình con và phân loại « Blog hỗ trợ học tập !
trong phần này of bạn tôi thấy chưa nhắc nhiều lắm đến việc giải các bài toán of phần mảng.nếu được bạn có thể giúp tôi viết chương trình con sắp xếp 1 dãy số nguyên(use chương trình con ),được chứ?
Chào bạn, cảm ơn bạn đã quan tâm bài của Tôi:
Chương trình sắp xếp sử dụng CTC có thể được viết như sau:
program SX_Tren_Mang;
uses wincrt;
const NMax = 100;
Type DayA = array[1..NMax] of Integer;
Var A:DayA;
N,i:integer;
procedure nhap(var x:dayA; n:byte);
begin
{Nhap cac phan tu cua Mang}
for i := 1 to N do readln(A[i]);
end;
procedure sx(var X:dayA); {Cho nay su dung tham bien vi mang bi thay doi}
var tg,i,j:integer;
begin
{Sap Xep}
for i:=1 to N-1 do
for j:=i+1 to N do
if (A[i] > A[j]) then
begin
tg :=A[i];
A[i] := A[j];
A[j] := tg;
end;
end;
begin
clrscr;
{Nhap so luong phan tu}
write(‘Nhap so luong phan tu:’);
readln(N);
nhap(A,N);
sx(A);
Writeln(‘Day A sau khi SX’);
for i:=1 to N do Write(A[i]:4);
readln;
end.
Chúc bạn vui vẻ!
Cảm ơn bạn!
viết chương trình nhập số nguyên dương R từ bàn phím kiểm tính nguyên tố ,hoàn thiện của R trong đó có sử dụng 2 chương trình con.
nhờ bạn giúp

markdown:
**CÁC BÀI TOÁN SỬ DỤNG CHƯƠNG TRÌNH CON (P1).**
Bài 1: Giải phương trình bậc 2: ax
2+bx+c=0; với a,b,c được nhập vào từ bàn phím. * Chúng ta sẽ sử dụng thủ tục để thực hiện công việc tính Delta và nghiệm nếu có. Cách 1:*
Trong thủ tục này chúng ta lưu ý:
*Các biến chúng ta sử dụng là biến toàn cục, nên công việc tính Delta và tính nghiệm sẽ được thực hiện trong chương trình con và kết quả sẽ được mang ra ngoài thủ tục để phục vụ cho công việc xét nghiệm.* *{This code Created by hoana2007}* *{Giai phuong trinh bac 2}* *Program GiaiPTB2;* *uses wincrt;* *var a,b,c,x1,x2,Delta:real;* *{Thu tuc tinh Delta va nghiem}* *Procedure PTB2;* *var r:real;* *begin* * Delta := sqr(b)-4*a*c;* * if Delta >= 0 then* * Begin* * r := Sqrt(Delta);* * x1 := (-b-r)/(2*a);* * x2 := (-b+r)/(2*a);* * end;* *end;* *{Than chuong trinh chinh}* *Begin* * Writeln(‘Nhap 3 he so: a,b,c(Moi so cach nhau mot dau cach)’); readln(a,b,c);* * PTB2;* * if Delta < 0 then write(‘Phuong trinh vo nghiem’)* * else* * If Delta = 0 then Write(‘Phuong trinh co 1 nghiem: ‘, x1:10:2)* * else writeln(‘Phuong trinh co 2 nghiem: x1 = ‘, x1:10:2 ,’***** x2 = ‘, x2:10:2);* * readln;* *end.*
* Chúng ta có thể sử dụng hàm để tính giá trị của Delta sau đó sẽ dùng hàm này để thực hiện việc xét nghiệm cho phương trình, các biến a,b,c,x1,x2 vẫn là các biến toàn cục. Cách 2:* *{This code Created by hoana2007}* *{Giai phuong trinh bac 2}* *Program GiaiPTB2;* *uses wincrt;* *var a,b,c,x1,x2,r:real;* *{Thu tuc tinh Delta va nghiem}* *Function Delta:real;* *begin* * Delta := sqr(b)-4*a*c;* *end;* *{Than chuong trinh chinh}* *Begin* * Writeln(‘Nhap 3 he so: a,b,c(Moi so cach nhau mot dau cach)’); readln(a,b,c);* * if Delta < 0 then write(‘Phuong trinh vo nghiem’)* * else* * If Delta = 0 then* * Begin* * x1:=-b/(2*a);* * Write(‘Phuong trinh co 1 nghiem: ‘, x1:10:2)* * end* * else* * Begin* * r:=sqrt(Delta);* * x1 := (-b-r)/(2*a);* * x2 := (-b+r)/(2*a);* * writeln(‘Phuong trinh co 2 nghiem: x1 = ‘, x1:10:2 ,’***** x2 = ‘, x2:10:2);* * end;* * readln;* *end.*
Cách 3: Hoặc chúng ta có thể sử dụng một thủ tục để thực hiện tất cả các công việc. Sau đó chúng ta có thể chỉ cần gọi thủ tục khi ta thực thi với các bộ dữ liệu:
*{This code Created by hoana2007}* *{Giai phuong trinh bac 2}* *Program GiaiPTB2;* *uses wincrt;* *var a,b,c:real;* *Procedure PTB2(a,b,c:real); {Tham so hinh thuc}* *Var r,x1,x2,Delta:real; {Bien cuc bo}* *begin* * Delta := sqr(b)-4*a*c;* * if Delta < 0 then write(‘Phuong trinh vo nghiem’)* * else* * If Delta = 0 then* * Begin* * x1:=-b/(2*a);* * Write(‘Phuong trinh co 1 nghiem: ‘, x1:10:2)* * end* * else* * Begin* * r:=sqrt(Delta);* * x1 := (-b-r)/(2*a);* * x2 := (-b+r)/(2*a);* * writeln(‘Phuong trinh co 2 nghiem: x1 = ‘, x1:10:2 ,’***** x2 = ‘, x2:10:2);* * end;* * readln;* *end;* *begin* * Writeln(‘Nhap 3 he so: a,b,c(Moi so cach nhau mot dau cach)’); readln(a,b,c);* * PTB2(a,b,c);{Goi thu tuc voi tham bien}* * PTB2(2,8,3);{Goi thu tuc voi tham tri}* *end.*
Bài 2: Viết chương trình thực hiện các công việc sau:
- Nhập dữ liệu cho một mảng một mảng một chiều.
- Tìm xem trong mảng có bao nhiêu phần tử có giá trị nguyên tố.
- In ra các phẩn tử của mảng có giá trị nguyên tố.
- In lại toàn bộ mảng.
__Phân tích:__
Bài này chúng ta có thể sử dụng các chương trình con để thực hiện từng công việc.
- Phần nhập dữ liệu cho mảng ta có thể dùng thủ tục để thực hiện việc nhập.
- Chúng ta cần có một hàm để kiểm tra số nguyên tố, hàm này chúng ta nên sử dụng hàm có kiểu trả về là kiểu logic.
– Ý tưởng:
Hàm nguyento(x:nguyen):logic;
Nguyento:=sai;
nếu x<1 then nguyento :=sai
khác
lặp công việc xét nếu một trong các số từ 2 đến phần nguyên của căn x
Nếu x chia hết một trong các số đó thì nguyento:=sai
Khác nguyento:=đúng.
- Chúng ta cũng cần thêm có một hàm để đếm các số trong mảng là nguyên tố, hàm này sẽ sử dụng lại kết quả ở hàm nguyên tố ở trên.
- Việc in các số là số nguyên tố ra màn hình chúng ta cũng dùng một thủ tục và thủ tục này sẽ gọi đến hàm nguyên tố để kiểm tra.
- Việc in lại toàn bộ mảng cũng sẽ dử dụng một thủ tục in thông thường.
__Chương trình:__ *{This code Created by hoana2007}* *Program Mang;* *uses wincrt;* *const n=100;* *type mg = array[1..n] of longint;* *var A:mg; m,i:byte;* *procedure Nhap_mg(Var X:mg);* *begin* * for i:=1 to m do readln(X[i]);* *end;* *Function NguyenTo(X:longint):boolean;* *var j:integer;* *begin* * NguyenTo := false;* * for j:=2 to Trunc(sqrt(X)) do* * If X mod j = 0 then exit; {thoat khoi chuong trinh con}* * NguyenTo := X > 1; {Thuc chat: NguyenTo := true;}* *end;* *Function Dem(X:mg):longint;* *var d:longint;* *begin* * d:=0;* * for i:=1 to m do* * If NguyenTo(X[i]) then d:=d+1;{inc(d)} * * Dem := d;* *end;* *Procedure InN_To(X:mg);* *begin* * write(‘Cac phan tu trong day co gia tri nguyen to la: ‘);* * for i:=1 to m do* * If NguyenTo(X[i]) then Write(X[i],’_’); * *end;* *Procedure In_Mg(X:mg);* *begin* * Writeln(‘TOAN BO CAC PHAN TU TRONG DAY’);* * for i:=1 to m do write(X[i],’ ‘);* *end;* *{Chuong trinh chinh}* *Begin* * writeln(‘Nhap so luong phan tu cho mang’); readln(m);* * Nhap_mg(A);* * Writeln(‘So luong phan tu co gia tri nguyen to trong day la: ‘, dem(A));* * InN_To(A);* * In_Mg(A);* *end.*
Bài tập:
- Em hãy viết thủ tục nhập vào bộ 3 số nguyên dương, một hàm logic kiểm tra xem 3 số đó có tạo thành một tam giác hay không. Nếu có tạo thành một tam giá thì hãy viết hàm tính chu vi và diện tích của tam giác đó. Sau đó in các kết quả ra màn hình.
- Em hãy viết chương trình kiểm tra một số nguyên dương a có phải là một số nguyên tố hay không.
(còn nữa…)
Created by hoana2007
Email:
__nguyenhoa2003@hotmail.com__ __http://hoana2007.spaces.live.com__
thanks ban nhe, toi cung dang tim hieu ve phan nay
Pingback: Bài tập về nhà_ Bài 17-Chương trình con và phân loại « Blog hỗ trợ học tập !
trong phần này of bạn tôi thấy chưa nhắc nhiều lắm đến việc giải các bài toán of phần mảng.nếu được bạn có thể giúp tôi viết chương trình con sắp xếp 1 dãy số nguyên(use chương trình con ),được chứ?
Chào bạn, cảm ơn bạn đã quan tâm bài của Tôi:
Chương trình sắp xếp sử dụng CTC có thể được viết như sau:
program SX_Tren_Mang;
uses wincrt;
const NMax = 100;
Type DayA = array[1..NMax] of Integer;
Var A:DayA;
N,i:integer;
procedure nhap(var x:dayA; n:byte);
begin
{Nhap cac phan tu cua Mang}
for i := 1 to N do readln(A[i]);
end;
procedure sx(var X:dayA); {Cho nay su dung tham bien vi mang bi thay doi}
var tg,i,j:integer;
begin
{Sap Xep}
for i:=1 to N-1 do
for j:=i+1 to N do
if (A[i] > A[j]) then
begin
tg :=A[i];
A[i] := A[j];
A[j] := tg;
end;
end;
begin
clrscr;
{Nhap so luong phan tu}
write(‘Nhap so luong phan tu:’);
readln(N);
nhap(A,N);
sx(A);
Writeln(‘Day A sau khi SX’);
for i:=1 to N do Write(A[i]:4);
readln;
end.
Chúc bạn vui vẻ!
Cảm ơn bạn!
viết chương trình nhập số nguyên dương R từ bàn phím kiểm tính nguyên tố ,hoàn thiện của R trong đó có sử dụng 2 chương trình con.
nhờ bạn giúp

WARC-Truncated: length

Server: nginx

Content-Type: text/html; charset=UTF-8

Vary: Cookie

X-hacker: If you're reading this, you should visit automattic.com/jobs and apply to join the fun, mention this header.

Link: <http://wp.me/p169PG-N>; rel=shortlink

Content-Encoding: gzip

X-ac: 1.dca _dca


text:
285
Bách khoa toàn thư mở Wikipedia
Bước tới:
menu
,
tìm kiếm
Thế kỷ
:
thế kỷ 2
-
thế kỷ 3
-
thế kỷ 4
Thập niên
:
250
260
270
-
280
-
290
300
310
Năm
:
282
283
284
-
285
-
286
287
288
Năm 285
là một năm trong
lịch Julius
.
Mục lục
1
Sự kiện
2
Sinh
3
Mất
4
Tham khảo
Sự kiện
[
sửa
|
sửa mã nguồn
]
Sinh
[
sửa
|
sửa mã nguồn
]
285 trong lịch khác
Lịch Gregory
285
CCLXXXV
Ab urbe condita
1038
Năm niên hiệu Anh
N/A
Lịch Armenia
N/A
Lịch Assyria
5035
Lịch Ấn Độ giáo
-
Vikram Samvat
341–342
-
Shaka Samvat
207–208
-
Kali Yuga
3386–3387
Lịch Bahá’í
-1559 – -1558
Lịch Bengal
-308
Lịch Berber
1235
Can Chi
Giáp Thìn
(甲辰年)
2981 hoặc 2921
— đến —
Ất Tỵ
(乙巳年)
2982 hoặc 2922
Lịch Chủ thể
N/A
Lịch Copt
1–2
Lịch Dân Quốc
1627 trước
Dân Quốc
民前1627年
Lịch Do Thái
4045–4046
Lịch Đông La Mã
5793–5794
Lịch Ethiopia
277–278
Lịch Holocen
10285
Lịch Hồi giáo
347 BH – 346 BH
Lịch Igbo
-715 – -714
Lịch Iran
337 BP – 336 BP
Lịch Julius
285
CCLXXXV
Lịch Myanma
-353
Lịch Nhật Bản
N/A
Phật lịch
829
Dương lịch Thái
828
Lịch Triều Tiên
2618
Hộp này:
xem
thảo luận
sửa
Mất
[
sửa
|
sửa mã nguồn
]
Tham khảo
[
sửa
|
sửa mã nguồn
]
Lấy từ “
http://vi.wikipedia.org/w/index.php?title=285&oldid=17751304
”
Thể loại
:
285
Trình đơn chuyển hướng
Công cụ cá nhân
Mở tài khoản
Đăng nhập
Không gian tên
Bài viết
Thảo luận
Biến thể
Các hiển thị
Đọc
Sửa đổi
Sửa mã nguồn
Xem lịch sử
Khác
Tìm kiếm
Xem nhanh
Trang Chính
Nội dung chọn lọc
Tin tức
Bài viết ngẫu nhiên
Thay đổi gần đây
Quyên góp
Tương tác
Hướng dẫn
Giới thiệu Wikipedia
Cộng đồng
Thảo luận chung
Giúp sử dụng
Công cụ
Các liên kết đến đây
Thay đổi liên quan
Các trang đặc biệt
Liên kết thường trực
Thông tin trang
Khoản mục Wikidata
Trích dẫn trang này
In/xuất ra
Tạo một quyển sách
Tải về dưới dạng PDF
Bản để in ra
Ngôn ngữ khác
Afrikaans
አማርኛ
العربية
Aragonés
Asturianu
Azərbaycanca
Bahasa Indonesia
Bahasa Melayu
বাংলা
Basa Banyumasan
Basa Jawa
Basa Sunda
Baso Minangkabau
Беларуская
Беларуская (тарашкевіца)
भोजपुरी
Bosanski
Brezhoneg
Български
Català
Чӑвашла
Čeština
Cymraeg
Dansk
Deutsch
Eesti
Ελληνικά
English
Español
Esperanto
Euskara
فارسی
Føroyskt
Français
Frysk
Gaeilge
Gàidhlig
Galego
贛語
한국어
Հայերեն
Hrvatski
Ido
বিষ্ণুপ্রিয়া মণিপুরী
Ирон
Italiano
עברית
ქართული
Қазақша
Кырык мары
Kiswahili
Kreyòl ayisyen
Latina
Lëtzebuergesch
Lietuvių
Lumbaart
Magyar
Македонски
मराठी
Nāhuatl
Nederlands
नेपाल भाषा
日本語
Napulitano
Nordfriisk
Norsk bokmål
Norsk nynorsk
Occitan
Олык марий
ଓଡ଼ିଆ
Oʻzbekcha/ўзбекча
ਪੰਜਾਬੀ
पालि
پنجابی
Plattdüütsch
Polski
Português
Qırımtatarca
Română
Runa Simi
Русский
Русиньскый
संस्कृतम्
Shqip
Slovenčina
Slovenščina
Српски / srpski
Srpskohrvatski / српскохрватски
Suomi
Svenska
Tagalog
Татарча/tatarça
ไทย
Тоҷикӣ
Türkçe
Türkmençe
Українська
اردو
Vèneto
Volapük
Winaray
Yorùbá
粵語
中文
Sửa liên kết
Trang này được sửa đổi lần cuối lúc 15:03 ngày 2 tháng 7 năm 2014.
Văn bản được phát hành theo
Giấy phép Creative Commons Ghi công/Chia sẻ tương tự
; có thể áp dụng điều khoản bổ sung. Xem
Điều khoản Sử dụng
để biết thêm chi tiết.
Wikipedia® là thương hiệu đã đăng ký của
Wikimedia Foundation, Inc.
, một tổ chức phi lợi nhuận.
Quy định quyền riêng tư
Giới thiệu Wikipedia
Lời phủ nhận
Nhà phát triển
Phiên bản di động

markdown:
# 285
Bách khoa toàn thư mở Wikipedia
|
||
| - [Thập niên](/wiki/Th%E1%BA%ADp_ni%C3%AAn): [250](/wiki/Th%E1%BA%ADp_ni%C3%AAn_250) [260](/wiki/Th%E1%BA%ADp_ni%C3%AAn_260) [270](/wiki/Th%E1%BA%ADp_ni%C3%AAn_270)- [280](/wiki/Th%E1%BA%ADp_ni%C3%AAn_280)- [290](/wiki/Th%E1%BA%ADp_ni%C3%AAn_290) [300](/wiki/Th%E1%BA%ADp_ni%C3%AAn_300) [310](/wiki/Th%E1%BA%ADp_ni%C3%AAn_310) [Năm](/wiki/N%C4%83m): [282](/wiki/282) [283](/wiki/283) [284](/wiki/284)- **-** **285** [286](/wiki/286) [287](/wiki/287) [288](/wiki/288) **Năm 285** là một năm trong [lịch Julius](/wiki/L%E1%BB%8Bch_Julius).
## Mục lục
## Sự kiện[
[sửa](/w/index.php?title=285&veaction=edit&vesection=1) | [sửa mã nguồn](/w/index.php?title=285&action=edit§ion=1)]
## Sinh[
[sửa](/w/index.php?title=285&veaction=edit&vesection=2) | [sửa mã nguồn](/w/index.php?title=285&action=edit§ion=2)]
|
|*CCLXXXV* [Ab urbe condita](/w/index.php?title=Ab_urbe_condita&action=edit&redlink=1) [Năm niên hiệu Anh](/w/index.php?title=Ni%C3%AAn_hi%E1%BB%87u_Anh&action=edit&redlink=1) *N/A* [Lịch Armenia](/wiki/L%E1%BB%8Bch_Armenia) *N/A* [Lịch Assyria](/wiki/L%E1%BB%8Bch_Assyria) [Lịch Ấn Độ giáo](/w/index.php?title=L%E1%BB%8Bch_%E1%BA%A4n_%C4%90%E1%BB%99_gi%C3%A1o&action=edit&redlink=1) [Vikram Samvat](/w/index.php?title=Vikram_Samvat&action=edit&redlink=1) [Shaka Samvat](/w/index.php?title=Qu%E1%BB%91c_l%E1%BB%8Bch_%E1%BA%A4n_%C4%90%E1%BB%99&action=edit&redlink=1) [Kali Yuga](/w/index.php?title=Kali_Yuga&action=edit&redlink=1) [Lịch Bahá’í](/w/index.php?title=L%E1%BB%8Bch_Bah%C3%A1%27%C3%AD&action=edit&redlink=1) [Lịch Bengal](/w/index.php?title=L%E1%BB%8Bch_Bengal&action=edit&redlink=1) [Lịch Berber](/wiki/L%E1%BB%8Bch_Berber) [Can Chi](/wiki/Can_Chi) [Giáp Thìn](/wiki/Gi%C3%A1p_Th%C3%ACn)(甲辰年)
2981 hoặc 2921
*— đến —* [Ất Tỵ](/wiki/%E1%BA%A4t_T%E1%BB%B5)(乙巳年)
2982 hoặc 2922
[Lịch Chủ thể](/w/index.php?title=L%E1%BB%8Bch_B%E1%BA%AFc_Tri%E1%BB%81u_Ti%C3%AAn&action=edit&redlink=1) *N/A* [Lịch Copt](/w/index.php?title=L%E1%BB%8Bch_Copt&action=edit&redlink=1) [Lịch Dân Quốc](/w/index.php?title=L%E1%BB%8Bch_D%C3%A2n_Qu%E1%BB%91c&action=edit&redlink=1) [Dân Quốc](/wiki/Trung_Hoa_D%C3%A2n_Qu%E1%BB%91c)
民前1627年
[Lịch Do Thái](/wiki/L%E1%BB%8Bch_Do_Th%C3%A1i) [Lịch Đông La Mã](/w/index.php?title=L%E1%BB%8Bch_%C4%90%C3%B4ng_La_M%C3%A3&action=edit&redlink=1) [Lịch Ethiopia](/w/index.php?title=L%E1%BB%8Bch_Ethiopia&action=edit&redlink=1) [Lịch Holocen](/w/index.php?title=Th%E1%BB%9Di_k%E1%BB%B3_con_ng%C6%B0%E1%BB%9Di&action=edit&redlink=1) [Lịch Hồi giáo](/wiki/L%E1%BB%8Bch_H%E1%BB%93i_gi%C3%A1o) [Lịch Igbo](/w/index.php?title=L%E1%BB%8Bch_Igbo&action=edit&redlink=1) [Lịch Iran](/w/index.php?title=L%E1%BB%8Bch_Iran&action=edit&redlink=1) [Lịch Julius](/wiki/L%E1%BB%8Bch_Julius) *CCLXXXV* [Lịch Myanma](/w/index.php?title=L%E1%BB%8Bch_Myanma_truy%E1%BB%81n_th%E1%BB%91ng&action=edit&redlink=1) [Lịch Nhật Bản](/w/index.php?title=L%E1%BB%8Bch_Nh%E1%BA%ADt_B%E1%BA%A3n&action=edit&redlink=1) *N/A*

X-Content-Type-Options: nosniff

Content-language: vi

X-UA-Compatible: IE=Edge

Vary: Accept-Encoding,Cookie

Via: 1.1 varnish, 1.1 varnish

X-Cache: cp1068 hit (1), cp1053 frontend miss (0)

Cache-Control: private, s-maxage=0, max-age=0, must-revalidate