markdown:
![]()
*Ông Michael Forbes, người láng giềng đối diện sân gôn của Donald Trump.* *(*Xung quanh khu vực sân gôn thuộc sở hữu của Donald Trump ở Scotland, nhà tỉ phú đã cho xây lên một bức tường ngăn cách với láng giềng xung quanh. Và sau đó Trump đã gởi hóa đơn cho họ, cũng giống như những gì đang định làm với nước láng giềng Mêhicô. [LCI](http://www.lci.fr/international/donald-trump-a-deja-construit-un-mur-en-ecosse-2023710.html)27/01/2017)
![]()
*Donald Trump giới thiệu dự án tại Scotland năm 2010.* *« Nếu nước Mỹ muốn biết những gì sẽ xảy đến, thì nên quan sát những gì đã diễn ra tại đây ».*Martin Ford là đại diện chính quyền địa phương ở Balmédie, gần Aberdeen, đông bắc Scotland. Cách đây hơn một chục năm, ông đã kinh ngạc chứng kiến sự xuất hiện của một doanh nhân giàu có người Mỹ mà người dân địa phương chưa hề biết đến. Một doanh nhân bí hiểm mang tên Donald Trump.
Cho đến năm 2008, đương kim tổng thống Hoa Kỳ mà người mẹ đã di cư từ Scotland sang Mỹ năm 1930, chưa bao giờ tỏ ra quan tâm đến quê mẹ. Nhưng năm ấy, Donald Trump quyết định bay đến bằng phi cơ riêng. Mục đích của chuyến đi là thăm một ngôi nhà nhỏ làm bằng đá sỏi trên đảo Lewis, miền tây Scotland, nơi mẹ ông đã lớn lên. Donald Trump chỉ lưu lại ba tiếng đồng hồ, và chuyến trở lại Scotland sau đó mới khiến mọi người đều bàn tán.
![]()
*Khu vực cồn cát 4.000 năm tuổi nằm trong dự án sân gôn của Donald Trump.*
Đó là vì hình ảnh một chiếc xe ủi đất san bằng tất cả và xây dựng lại mọi thứ trên đường đi, trong chính trị cũng như kinh doanh, đã in hằn trong tâm trí người dân ở Balmédie. Tại đây, nhà tỉ phú địa ốc đã cho xây lên một sân gôn đại quy mô trải dài trên nhiều hecta, mà ông khoe là
*« sân gôn lớn nhất thế giới ».*Tham vọng này khiến ông đã dòm ngó đến các cơ ngơi xung quanh, bất chấp việc tranh tụng với các sở hữu chủ khác.
David và Moira Milne đã có kinh nghiệm đau thương, như đã kể lại với New York Times. Cặp vợ chồng cư ngụ gần Trump International Golf Links nhiều lần bị các luật sư của Donald Trump đe dọa, cho rằng một phần ga-ra của họ là thuộc về ông Trump. Rồi một hôm khi đi làm về, hai vợ chồng thấy nhân viên ông Trump đang xây lên tường rào bao quanh vườn của họ. Sau đó hai hàng cây mọc lên, che khuất tầm nhìn căn nhà, các đường ống dẫn nước và điện tạm thời bị cắt. Cuối cùng, một hóa đơn 3.500 đô la được gởi đến nhà. David Milne cho biết đã quẳng ngay vào thùng rác.
![]()
*Bức tường đất Donald Trump cho xây lên, che khuất ngôi nhà của Susan và John Munro* *« Rồi xem, Mêhicô cũng sẽ chẳng chịu chi đâu ».*David, tư vấn viên về y tế và nhà văn nghiệp dư, khẳng định về bức tường *« đẹp đẽ bất khả xâm phạm »*của ông Trump. Nay thì mỗi lần Donald Trump hiện diện tại khu vực sân gôn, David và Moira cắm đầy những lá cờ Mêhicô xung quanh nhà mình.
Susan và John Munro cũng từ chối bán ngôi nhà đang ở cho tỉ phú địa ốc. Kết quả là hiện nay họ phải đối diện với bức tường đất cao bốn mét rưỡi do nhân viên của ông Trump dựng lên ở hai mặt nhà mình.
![]()
*Nằm gần ga-ra sân gôn, ngôi nhà của bà Susan Munro khiến ông Trump chướng mắt.*
Michael Forbes, một công nhân có nhà đối diện với sân gôn của Trump, cũng cắm lá cờ thứ hai với dòng chữ
*« Hillary tổng thống ».*Sáng kiến này nhằm đáp trả những lời lăng nhục công khai của Donald Trump đối với Michael, nói rằng *« sống như heo »*, và căn nhà của Michael là *« nỗi nhục đáng kinh tởm ».*
![]()
*Bị mắng là "sống như heo", ông hàng xóm Michael Forbes nhất định không chịu thua "Trump, người nói dối hạng nhất".*
Cũng như những bất đồng hiện nay với người đồng nhiệm Mêhicô, Enrique Peña Nieto, Donald Trump cũng gây tranh cãi tại Balmédie. Bởi vì địa điểm ông Trump đã chọn lựa là khu bảo tồn sinh thái, với những cồn cát 4.000 năm tuổi. Nhiều cư dân đã phản đối, nhưng nhà tỉ phú đáp lại dự án này là
*« lợi ích kinh tế quốc gia ».*
Lý lẽ trên được thủ tướng Scotland thời đó là Alex Salmond ủng hộ. Ông nói :
*« Sáu ngàn việc làm trên cả nước, 1.400 việc làm tại địa phương và các hợp đồng dài hạn ở đông bắc Scotland, đã vượt lên các quan ngại về môi trường ».*Stewart Spence, chủ một khách sạn ở Balmédie, người ủng hộ nhiệt tình của Donald Trump nói thêm : *« Các du khách đến tham quan các cồn cát mang lại bao nhiêu tiền ? Zero. Ông Trump xây lên một sân gôn đẹp và biến miền đông bắc Scotland thành một hướng đến lý tưởng ».*
Nhưng theo với thời gian, lợi ích kinh tế mà khu vực sẽ được hưởng vẫn chưa thấy đâu. Món tiền đầu tư được hứa hẹn là 1,25 tỉ đô là nay bị giảm xuống chỉ còn vỏn vẹn 50 triệu đô la – theo những người phản kháng. Số 6.000 việc làm giảm còn có 95, hai sân gôn dự kiến chỉ còn một. Khách sạn sang trọng tám tầng với 450 phòng chưa bao giờ được động thổ, cũng như 950 căn hộ sở hữu luân phiên. Thay vào đó, một lâu đài cổ được tân trang thành một khách sạn 16 phòng cùng với cửa hàng. Trump International Golf Links, khai trương năm 2012, bị lỗ 1,36 triệu đô la năm 2015, theo số liệu công khai.
Cựu thủ tướng Alex Salmond nay đã thay đổi ý kiến về nhà tỉ phú, và tệ hơn nữa là không còn một chút tin tưởng nào đối với Donald Trump.
*« Với những gì tôi biết hiện nay, nếu có khả năng quay lại với quá khứ, nhất định tôi sẽ thay đổi quyết định. Vấn đề, và đó là vấn đề lớn, là Donald Trump không thực hiện những gì đã hứa hẹn ».*
![]()
*"Đồng bệnh tương lân", cờ Mêhicô trở thành lá cờ "kháng chiến".*
Xa xua TQ xay Van Ly Truong Thanh. Nay TT Trump xay buc tuong di dan bat hop phap.Trả lờiXóa


markdown:
Skip to content
Jump to main navigation and login
Nav view search
Navigation
Thư Viện Tiếu Lùn
Hộp Thơ
Top 20
Giới Thiệu Sách
Nhắn Tin
Search
Ủng Hộ Tùy Lòng Hảo Tâm
Currency:
Australian Dollar
Brazilian Real
Canadian Dollar
Czech Koruna
Danish Krone
Euro
Hong Kong Dollar
Hungarian Forint
Israeli New Sheqel
Japanese Yen
Malaysian Ringgit
Mexican Peso
Norwegian Krone
New Zealand Dollar
Philippine Peso
Polish Zloty
Pound Sterling
Singapore Dollar
Swedish Krona
Swiss Franc
Taiwan New Dollar
Thai Baht
Turkish Lira
U.S. Dollar
Amount:
Mục Lục Thư Viện
Tìm
Trang Nhà Đào Văn Hội
Sách Mới
Tài Liệu Mới
Chăn Nuôi
Cờ Tướng
Công Nghệ
Danh Nhân
Địa Lý
Giáo Trình
Hồi Ký
Kinh Doanh
Kinh Tế
Lịch Sử
Phong Thủy
Phong Tục
Sách Giáo Khoa
Tạp Chí
Thơ
Tôn Giáo
Tinh Hoa Cuộc Sống
Triết Học
Trồng Trọt
Truyện Dài
Truyện Dịch
Truyện Kiếm Hiệp
Truyện Quỳnh Dao
Truyện Tàu
Truyện Thiếu Nhi
Truyện Tranh
Truyện Tuổi Hoa
Hoa Đỏ
Hoa Xanh
Hoa Tím
Tạp Chí Thiếu Nhi
Tử Vi
Văn Chương
Văn Hóa
Võ Học
Y Học
Tài Liệu
TVTL @ 2001-2017
Hôm Nay
415
Hôm Qua
159
Tuần Này
2644
Tháng Này
7862
Tổng Cộng
913750
Nhiều Nhất
03-25-2017 : 885
23.20.9.71
This option will not work correctly. Unfortunately, your browser does not support inline frames.

WARC-Type: response

Content-Type: application/http; msgtype=response

WARC-Truncated: length

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

Pragma: no-cache

Connection: close

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


markdown:
[.](/vinh-hung) **Vĩnh Hưng**
Vị trí.
- Địa chỉ: Vĩnh Hưng - Hoàng Mai (cách Times City 1,2km).
- Chủ đầu tư: Tập đoàn T&T.
- Đơn vị thi công: Conteccons.
- Diện tích: 8612m2. MĐXD: 41%.
* Kết cấu: 3 tòa 19 - 21 - 23 (tầng nổi/tòa) với 610 căn hộ.
- Tầng nổi bao gồm tầng 1,2 là TTTM, tầng 3 trở lên là nhà ở diện tích 50 - 113m2/căn (1 - 3PN).
- 2 tầng hầm để xe: Bao gồm chỗ để xe máy và ô tô cho từng căn hộ.
* Bàn giao: Quý II 2017.
* Giá 19,5 - 23,5 (trđ/m2) đã bao gồm VAT.
* Liên hệ: Mr Dai 0918 769 933.
**duan440vinhhunghoangmai.blogspot.com**

Server: nginx

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

Vary: Accept-Encoding


markdown:
Hà Nội
Bắc Ninh
Vĩnh Phúc
Hải Phòng
Hải Dương
Nam Định
Đà Nẵng
TP HCM
Bình Dương
Cần Thơ
Vũng tàu
Đăng tin miễn phí
Tin nhà đất 24h (widget)
Nhà đất 24h
Mua bán ôtô
Wap nhà đất
Cần bán gấp đất biệt thự bàu mạc 2 - Gần biển xuân thiều
Mua bán nhà đất
Bán nhà đất
Bán đất
Nhà đất Đà Nẵng
Nhà đất Liên Chiểu
Nhà đất 24h
Mua bán nhà đất
Cho thuê
Dự án bất động sản
Danh bạ
Mua bán ô tô Đà Nẵng
Xe ô tô cũ Đà Nẵng (đã qua sử dụng)
Mua bán xe ô tô mới Đà Nẵng (chưa qua sử dụng)
Cho thuê xe Đà Nẵng
Tìm nhanh
---Tất cả nhu cầu nhà đất
Bán căn hộ chung cư
Bán cửa hàng, mặt bằng
Bán loại bất động sản khác
Bán kho, nhà xưởng
Bán trang trại, khu nghỉ dưỡng
Bán đất
Bán đất nền dự án
Bán nhà mặt phố
Bán nhà biệt thự, liền kề
Bán nhà riêng
Cho thuê loại bất động sản khác
Cho thuê kho, nhà xưởng, đất
Cho thuê cửa hàng, ki ốt
Cho thuê văn phòng
Cho thuê nhà trọ, phòng trọ
Cho thuê nhà mặt phố
Cho thuê nhà riêng
Cho thuê căn hộ chung cư
---Tất cả tỉnh/TP
Hà Nội
Hải Phòng
Bắc Ninh
Vĩnh Phúc
Đà Nẵng
TPHCM
Bình Dương
Huế
TP Vinh
Nam Định
Ninh Bình
Phú Thọ
Quảng Ninh
Thái Bình
Thái Nguyên
Đồng Nai
Cần Thơ
Tiền Giang
Trà Vinh
Vĩnh Long
Quảng Trị
Quảng Ngãi
Quảng Nam
Quảng Bình
Phú Yên
Tây Ninh
Sóc Trăng
Cà Mau
Đồng Tháp
Bến Tre
Hậu Giang
Kiên Giang
Bạc Liêu
Bà Rịa - Vũng Tàu
An Giang
Long An
Ninh Thuận
Nghệ An
Lâm Đồng
Hà Nam
Lào Cai
Lạng Sơn
Lai Châu
Hưng Yên
Hoà Bình
Hải Dương
Hà Giang
Điện Biên
Cao Bằng
Bắc Giang
Sơn La
Thanh Hoá
Kontum
Khánh Hoà
Hà Tĩnh
Gia Lai
Đắk Nông
Đắk Lắk
Bình Thuận
Bình Phước
Bình Định
Yên Bái
Tuyên Quang
Bắc Cạn
---Tất cả quận/huyện
Cẩm Lệ
Hải Châu
Hòa Vang
Hoàng Sa
Liên Chiểu
Ngũ Hành Sơn
Sơn Trà
Thanh Khê
Đăng lúc:
16/06/2016 09:20
Đánh giá:
Poor
Fair
Average
Good
Excellent
(
4
/
1
)
Bán đất biệt thự mặt tiền đường Bàu Mạc 2, Liên Chiểu,
Đà Nẵng
Vị trí: cách ngã 3 Phạm Văn Trường 2 lô, cách biển 100m, gần Nguyễn Chánh
DTĐ : 7,5 x 20m = 150m2 đường 5m5 lề 3m
Hướng: Tây Nam
Giá: 5.8 tr/m2 = 870tr ( bán đến công chứng )
Vị trí đẹp, thông thoáng, dân cư đông đúc, tiện xây biệt thự
Thông tin liên hệ
Diện tích:
150
Giá:
870000000
Liên hệ:
Lê Hoài
Điện thoại:
0905890858
Email:
phuonggiaphucltd@gmail.com
Hãy SHARE nếu bạn thấy nội dung này hữu ích !
Trạng thái tin rao
Nếu bạn đã
XEM NHÀ
hoặc
GỌI ĐIỆN HỎI THÔNG TIN
mua bán, cho thuê
nhà đất
này, bạn hãy
BÌNH LUẬN về TÌNH TRẠNG
của
nhà đất
đó ở bên dưới
để giúp cho CỘNG ĐỒNG biết THÔNG TIN này
Ví dụ như:
Nhà này đã bán rồi
Nhà này đã cho thuê rồi
Chủ nhà này khó tính lắm
Nhà này hay mất nước lắm ==> đừng thuê !
Ở chung với chủ nhà này thật không chịu nổi
!
etc...
Hãy cho
MỌI NGƯỜI
cùng biết thông tin
TÌNH TRẠNG NÀY
! Web nhà đất 24h
XIN CẢM ƠN !
Bán đất Liên Chiểu, Đà Nẵng
Bán Đất trung tâm thành phố đà nẵng cạch đại học duy tân
Bán Lô góc ngã tư Diện tích 8.1 x 20 = 162m2 đường 5.5m lề 4m hướng tây nam 600m tới trường đại học duy tân 300m tới trung tâm thể dục thể thao 3 đà nẵng đặc biệt liền kề với trường học cấp 1 thuận lợi cho việc kinh doanh buôn bán. Dân cư hiện hữu 80% Giá 1.31 tỷ có hổ trợ vay ngân hàng 8 triệu/m2 nếu mua trong ngày hôm nay Có sổ ...
Bán đất
|
Bán đất Liên Chiểu, Đà Nẵng
Loại tin:
Mua bán nhà đất
Giá:
1320000000
Diện tích:
162
Quận/Huyện:
Liên Chiểu, Đà Nẵng
Đăng lúc:
22/04 16:19
BÁN NHANH LÔ GÓC NGÃ 4 PHƯỚC LÝ, ĐƯỜNG 11,5M HƯỜNG TÂY NAM
* Vị trí: Toạ lạc tại phường Hòa Minh - Liên Chiểu - Đà nẵng ngay nhà ga đường sắt mới, trung tâm hành chính quận.... ** Cách trường ĐH Duy Tân 500m. ** Nằm trên trục đường 5,5m kẹp giữa 2 cổng trường tiểu học ( 40m), trung tâm huấn luyện thể dục thể thao III ( 70m). ** Lưu thông kết nối tới các ...
Bán đất
|
Bán đất Liên Chiểu, Đà Nẵng
Loại tin:
Mua bán nhà đất
Giá:
1300000000
Diện tích:
162
Quận/Huyện:
Liên Chiểu, Đà Nẵng
Đăng lúc:
22/04 14:19
Bán Đất trung tâm thành phố đà nẵng lô góc 8 triệu/m2
Lô góc ngã tư Diện tích 8.1 x 20 = 162m2 đường 5.5m lề 4m hướng tây nam 600m tới trường đại học duy tân 300m tới trung tâm thể dục thể thao 3 đà nẵng đặc biệt liền kề với trường học cấp 1 thuận lợi cho việc kinh doanh buôn bán. Giá 1.35 tỷ có hổ trợ vay ngân hàng 8 triệu/m2 nếu mua trong ngày hôm nay Có sổ đỏ ngay Cần ...
Bán đất
|
Bán đất Liên Chiểu, Đà Nẵng
Loại tin:
Mua bán nhà đất
Giá:
1320000000
Diện tích:
162
Quận/Huyện:
Liên Chiểu, Đà Nẵng
Đăng lúc:
22/04 14:19
Bán Đất 2MT Biệt Thự Xuân Thiều, Liên Chiểu, Đà Nẵng.
Bán Đất 2MT Biệt Thự Xuân Thiều, Liên Chiểu, Đà Nẵng. Đất 2 MT đường 15m và đường 7,5m Biệt thự Biển Xuân Thiều, khu J258 sát bên khu Resort Xuân thiều, gần Nhà hàng UNO HOUSE, gần Khách sạn Phú Lộc Xuân. Cách trung tâm của quận Liên Chiểu 1Km, cách trung tâm thành phố 8Km về hướng Nam, cánh quốc lộ 1A 500m.Gần chợ ,gần trường Cấp ...
Bán đất
|
Bán đất Liên Chiểu, Đà Nẵng
Loại tin:
Mua bán nhà đất
Giá:
4500000000
Diện tích:
345,6 m2
Quận/Huyện:
Liên Chiểu, Đà Nẵng
Đăng lúc:
22/04 09:57
Bán đất trung tâm thành phố đà nẵng có hỗ trợ vay ngân hàng
Diện tích 5 x 20.5= 102m2 đường 7m5 lề 4m hướng đông mặt tiền đường lê hiến mai nối liền với đường hoàng minh thảo 400m tới hồ điều hòa đà nẵng 800m tới trường đại học duy tân 700m tới trung tâm thể dục thể thao 3 đà nẵng 1km tới trung tâm bến xe đà nẵng Gần nhà ga mới đà nẵng đặc biệt liền kề với trường học cấp 1 ...
Bán đất
|
Bán đất Liên Chiểu, Đà Nẵng
Loại tin:
Mua bán nhà đất
Giá:
550000000
Diện tích:
102
Quận/Huyện:
Liên Chiểu, Đà Nẵng
Đăng lúc:
21/04 14:19
Bán đất trung tâm đà nẵng gần trường đại học duy tân
Diện tích 5 x 20.5= 102m2 đường 7m5 lề 4m hướng đông mặt tiền đường lê hiến mai 400m tới hồ điều hòa đà nẵng 800m tới trường đại học duy tân 700m tới trung tâm thể dục thể thao 3 đà nẵng 1km tới trung tâm bến xe đà nẵng Gần nhà ga mới đà nẵng đặc biệt liền kề với trường học cấp 1 thuận lợi cho việc kinh doanh buôn ...
Bán đất
|
Bán đất Liên Chiểu, Đà Nẵng
Loại tin:
Mua bán nhà đất
Giá:
550000000
Diện tích:
102
Quận/Huyện:
Liên Chiểu, Đà Nẵng
Đăng lúc:
21/04 09:58
PHOENIX COMPLEX – “Đôi cánh Phượng Hoàng đang tung bay trên bầu trời Liên Chiểu”
HOT HOT HOT - SỰ KIỆN ĐƯỢC MONG CHỜ NHẤT ĐÃ ĐẾN
Bán đất
|
Bán đất Liên Chiểu, Đà Nẵng
Loại tin:
Mua bán nhà đất
Giá:
1600000000
Diện tích:
125
Quận/Huyện:
Liên Chiểu, Đà Nẵng
Đăng lúc:
20/04 15:19
Bán đất nền ven biển gần sông cách biển 700m giá 5tr/m2
Lô góc Diện tích 8 x 22=161m2 chính chủ Mặt tiền đường 27m hướng đông nam Đường 7.5m hướng tây namView công viên sát trung tâm thương mai100m tới sông 600m tới biểnCách khách sạn sông hàn spa 700mGiá 1.15 tỷBán đất nền ven biển gần sông cách biển 700m giá 5tr/m2Liên hệ để được mua giá tốt nhấtCám ơn bạn đã quan tâm
Bán đất
|
Bán đất Liên Chiểu, Đà Nẵng
Loại tin:
Mua bán nhà đất
Giá:
595000000
Diện tích:
102
Quận/Huyện:
Liên Chiểu, Đà Nẵng
Đăng lúc:
20/04 14:38
Bán đất trung tâm thành phố đà nẵng giá 5.5triệu/m2
Diện tích 5 x 20.5= 102m2 đường 7m5 lề 4m hướng đông 300m tới hồ điều hòa đà nẵng 600m tới trường đại học duy tân 500m tới trung tâm thể dục thể thao 3 đà nẵng đặc biệt liền kề với trường học cấp 1 thuận lợi cho việc kinh doanh buôn bán. phù hợp với việc xây nhà trọ cho sinh viên hay công nhân Dân cư hiện hữu cơ sở hạ ...
Bán đất
|
Bán đất Liên Chiểu, Đà Nẵng
Loại tin:
Mua bán nhà đất
Giá:
516,000,000
Diện tích:
102
Quận/Huyện:
Liên Chiểu, Đà Nẵng
Đăng lúc:
20/04 14:38
CHÍNH THỨC MỞ BÁN SIÊU DỰ ÁN PHOENIX COMPLEX VÀO NGÀY 29/04!
HOT HOT HOT - SỰ KIỆN ĐƯỢC MONG CHỜ NHẤT ĐÃ ĐẾN
Bán đất
|
Bán đất Liên Chiểu, Đà Nẵng
Loại tin:
Mua bán nhà đất
Giá:
1500000000
Diện tích:
160
Quận/Huyện:
Liên Chiểu, Đà Nẵng
Đăng lúc:
20/04 10:19
Tags (từ khóa) tin rao
Nhà đất Đà Nẵng
Bán đất Đà Nẵng
Nhà đất Liên Chiểu Đà Nẵng
Bán đất Liên Chiểu
Rao vặt nhà đất 24h mới nhất
Xuân Mai Complex / chỉ từ 16tr/m2
Bán nhà phố Nguyễn Đức Cảnh 50m2 xây 3 tầng giá có 3.4 tỷ
Bán nhà phố Tôn Đức Thắng,43m2, Hà Nội, giá 3.98 tỷ.
Bán nhà phố Mạc Thái Tổ, Hà Nội, 45m2,giá 6.3 tỷ.
Bán nhà phố Trung Kính,45m2, 5 tầng, MT 4m, giá 6.3 tỷ.
Bán nhà đẹp trung tâm Cầu Giấy 41m2 4 tầng 3.9 tỷ khách chỉ việc xách va ly về ở ngay.
Bán nhà Lạc Long Quân, Cầu Giấy, Hà Nội, nhà của người Tây tứ mệnh, 38m2, giá 4.1 tỷ.
Bán nhà phố Kim Ngưu Hà Nội,31m2, giá 2.3 tỷ.
Bán nhà Kim Ngưu, 32m2,giá rất rẻ 2.31 tỷ
Bán nhà phố Đông Tác, Hà Nội, 18.8m2, giá 1.3 tỷ.
Bán nhà phố Nguyễn Đức Cảnh 50m2 xây 3 tầng giá có 3.4 tỷ
Bán nhà Bạch Mai, Hà Nội,15m2, giá 1.25 tỷ.
Bán đất Trần Hưng Đạo - Buôn Hồ PALAMA - Siêu đô thị trung tâm thị xã Buôn Hồ
Bán đất thổ cư khu Văn Cao, Hoàng Hoa Thám, quận Ba Đình, Hà Nội
Bán 4 phòng trọ 1 kiot, đường Vũng Thiện, Tân Đông Hiệp, Dĩ An, 5x14.75m/1.1 tỷ, LH 0984893879
Mua bán nhà đất
Bán căn hộ chung cư
Bán cửa hàng, mặt bằng
Bán loại bất động sản khác
Bán kho, nhà xưởng
Bán trang trại, khu nghỉ dưỡng
Bán đất
Bán đất nền dự án
Bán nhà mặt phố
Bán nhà biệt thự, liền kề
Bán nhà riêng
Nhà đất theo tỉnh/thành phố
Hà Nội
Hải Phòng
Bắc Ninh
Vĩnh Phúc
Đà Nẵng
TPHCM
Bình Dương
Huế
TP Vinh
Nam Định
Ninh Bình
Phú Thọ
Quảng Ninh
Thái Bình
Thái Nguyên
Đồng Nai
Cần Thơ
Tiền Giang
Trà Vinh
Vĩnh Long
Quảng Trị
Quảng Ngãi
Quảng Nam
Quảng Bình
Phú Yên
Tây Ninh
Sóc Trăng
Cà Mau
Đồng Tháp
Bến Tre
Hậu Giang
Kiên Giang
Bạc Liêu
Bà Rịa - Vũng Tàu
An Giang
Long An
Ninh Thuận
Nghệ An
Lâm Đồng
Hà Nam
Lào Cai
Lạng Sơn
Lai Châu
Hưng Yên
Hoà Bình
Hải Dương
Hà Giang
Điện Biên
Cao Bằng
Bắc Giang
Sơn La
Thanh Hoá
Kontum
Khánh Hoà
Hà Tĩnh
Gia Lai
Đắk Nông
Đắk Lắk
Bình Thuận
Bình Phước
Bình Định
Yên Bái
Tuyên Quang
Bắc Cạn
Xem thêm
Nhà đất theo quận/huyện
Cẩm Lệ
Hải Châu
Hòa Vang
Hoàng Sa
Liên Chiểu
Ngũ Hành Sơn
Sơn Trà
Thanh Khê
Dự án bất động sản nổi bật
vinhome central park
,
PARK HILL TIMES CITY
,
Vinhomes Gardenia Mỹ Đình
,
Premier Village Phu Quoc Resort
,
Premier Residences Phu Quoc Emerald Bay
,
VINHOMES RIVERSIDE
,
Vinpearl Paradise Villas
,
Goldmark City
,
Chung cư FLC Complex
,
Green City Đà Nẵng
,
Chung cư Golden Central Tower
,
VINHOMES CENTRAL PARK TÂN CẢNG
,
Chia sẻ bạn bè
Nếu thấy nội dung này hữu ích giúp bạn tìm mua nhà, cho thuê nhà hoặc cần thuê nhà thì đừng quên chia sẻ với bạn bè của bạn !
Đăng ký nhận tin rao qua email
Xem thêm tùy chọn
Tags nhà đất 24h
can mua nha rieng muong cha dien bien
,
can ho quan thu duc gia re
,
kdc 13c greenlife cao cap duong nguyen van linh
,
ban mat bang
,
27 ty
,
cho thue chung cu the pride
,
hanh phuc
,
ban chung cu goldmark city
,
chung cu 304 ho tung mau
,
ban chung cu 102 truong chinh meco
,
can ho tra gop gia re
,
g
,
tho cu binh tan
,
360 trieu
,
le van thiem
,
hh2 linh dam
,
nhuong cua hang quan ao tre em
,
c
,
kim van
,
dat xanh mien trung
,
quan cam le
,
song han da nang
,
nguyen trai thanh xuan
,
cho thue can ho the pride
,
thue can ho chung cu gia re
,
lien ke van canh hud
,
duong le quang dao
,
ban can ho cao cap vinhomes central park
,
mega sapphire
,
cho thue chung cu vimeco hoang minh giam
,
Tin rao dự án HOT
Premier Residences Phú Quốc
Premier Village Phú Quốc
Vinhomes Gardenia Mỹ Đình
Vinpearl Condotel Nha Trang
Vinpearl Paradise Villas Phú Quốc
Liên kết website
Vinhomes Gardenia Mỹ Đình
Vinhomes Gardenia Mỹ Đình
Vinhomes Gardenia - Tag
Vinpearl Condotel Nha Trang
Condotel Nha Trang Vinpearl
Vinpearl Condotel Nha Trang
Vinpearl Condotel Nha Trang
Vinhomes Gardenia Mỹ Đình
kết quả bóng đá euro 2016
lịch thi đấu euro 2016
Premier Residences Phú Quốc
Premier Village Phú Quốc
Premier Residences Phú Quốc - Tag
Premier Village Phú Quốc - Tag
Vinpearl Condotel Nha Trang - Tag
Vinhomes Gardenia Mỹ Đình - Tag
Giá biệt thự Premier Village Phu Quoc Resort
Căn hộ nghỉ dưỡng Premier Residences Phú Quốc hút hàng ngày ra mắt
Cẩm nang đầu tư Premier Village Phú Quốc
Chính sách riêng tư
Điều khoản sử dụng
Từ chối trách nhiệm
Liên hệ
RSS Nhà đất 24h
Nhà đất 24h trên Google+ page
Cài ứng dụng "Nhà đất 24h" trên điện thoại Android
nha dat ha noi
nha dat bac ninh
nha dat bac giang
nha dat hai duong
nha dat thai binh
mua ban nha dat thai binh
nha dat da nang
nha dat Hai Chau Da Nang
nha dat Ngu Hanh Son Da Nang
nha dat Son Tra Da Nang
nha dat vung tau
nha dat vinh phuc
nha dat thai nguyen
nha dat nam dinh
nha dat tphcm
nha dat binh duong
nha dat can tho
ban can ho chung cu ha noi
ban nha rieng ha noi
ban nha biet thu lien ke ha noi
cho thue nha ha noi
cho thue chung cu ha noi
cho thue cua hang ha noi
cho thue phong tro ha noi
ban can ho chung cu tphcm
ban nha rieng tphcm
cho thue chung cu tphcm
cho thue nha rieng tp hcm
cho thue nha nguyen can
kiss hotel
cho thue nha tro
cho thue phong tro
nhadatvideo.vn
batdongsan.com.vn
muabannhadat.com.vn
nhadat24h.net
nhaban.com
diaoconline.vn
123nhadat.vn
cafef.vn
alonhadat
nhadatvang.vn
Hệ thống web
Nhà đất 24h
của chúng tôi phục vụ nhu cầu tìm kiếm
cho thue nha
và
mua bán nhà đất
tại Việt Nam. Chúng tôi liệt kê danh sách nhiều thông tin nhà đất nhất phục vụ mọi nhu cầu, từ phòng trọ tới biệt thự cao cấp. Ngoài ra, chúng tôi còn có chức năng cho phép
cập nhật tình trạng bất động sản
ngay trên trang chi tiết bất động sản đó để mọi người nắm được thông tin !
timdat.net có trách nhiệm chuyển tải thông tin. Không chịu bất kỳ trách nhiệm nào từ các tin này !
Liên hệ & Quảng cáo:
batdongsanvv@gmail.com
Xem website "Nhà đất 24h" tốt nhất trên các trình duyệt Chrome !
Đang xử lý...


markdown:
Theo đó, UBCK phạt Sabeco với tổng mức tiền 100 triệu đồng.
Nguyên nhân do Sabeco không công bố thông tin trên trang thông tin điện tử của Công ty các tài liệu Báo cáo tình hình quản trị công ty các năm 2014, 2015; Báo cáo tình hình quản trị công ty 6 tháng đầu năm 2015; Báo cáo thường niên các năm 2014, 2015; Điều lệ công ty.
Bên cạnh đó, Tổng công ty không công bố thông tin trên hệ thống công bố thông tin của UBCK các tài liệu gồm Báo cáo tài chính (BCTC) đã được kiểm toán các năm 2014, 2015; BCTC riêng và hợp nhất các quý III, IV/2014, quý I, II, III, IV/2015; Nghị quyết, Biên bản và tài liệu họp Đại hội đồng cổ đông thường niên năm 2015; Báo cáo tình hình quản trị công ty các năm 2014, 2015; Báo cáo tình hình quản trị công ty 6 tháng đầu năm 2015; Báo cáo thường niên các năm 2014, 2015.
Được biết, vốn điều lệ Sabeco hiện gần 6.413 tỷ đồng, tương ứng số lượng cổ phiếu lưu hành là 641,28 triệu đơn vị. Trong đó, Bộ Công thương đang là cổ đông lớn nhất tại Sabeco với tỷ lệ sở hữu 89,59%; Tiếp theo là Heineken với tỷ lệ sở hữu 5%. Sabeco dự kiến sẽ lên sàn vào ngày 12/12 tới đây.
Bài viết chưa có bình luận nào. Bạn nên dùng tiếng Việt có dấu khi bình luận.
Nhập bình luận tại đây

Cache-Control: private

Set-Cookie: .ASPXANONYMOUS=r6BxWarghFaUK4Uyw_1xo0thJ0Qa22GQizkewyhY18IHQLnsJa6wXBiJghqSfb4VPr0O2qSwvlRhwLMKl3QI5wqtwzADhAo6uOQcSNOR-rIjFPw4py-i5u9qfapgYs3D1FZGi6jjUiARVlbqUhUsSA2; domain=tinnhanhchungkhoan.vn; expires=Sun, 02-Jul-2017 02:43:57 GMT; path=/; HttpOnly

Access-Control-Allow-Headers: Content-Type

X-Cache: MISS from cache13


markdown:
| |
| |
![]()
| |![]()
| |![]()
| |
| || |
| |
#
1
| |
Tham gia: Oct 2009
Nơi Cư Ngụ: 127.0.0.1
Point: 2,424,840 ![]()
Đã cảm ơn: 159 bài viết
Được cảm ơn
645 lần trong 184 bài ![]()
![]()
![]()
![]()
![]()
![]()
![]()
![]()
| |![]()
Thư Viện Các Dạng Bài Tập Pascal của Tin Học 11 - Phần 3
## Thư Viện Các Dạng Bài Tập Pascal của Tin Học 11 - Phần 3
151/Chạy chử 2:
Code:
Program Chu_Chay; Uses Crt; Const a='Nha sach Minh Khai, 249 Nguyen Thi Minh Khai, Quan 1, Tp Ho Chi Minh '; b='Tel: 8 331 124, 9 250 590 '; c='Chuyen phat hanh cac giao trinh tin hoc phuc vu hoc sinh, sinh vien'; d='Chan thanh cam on quy doc gia'; Function Lap(Kt:Char; N:Integer): String; Var Tam:String; K:Integer; Begin Tam:=' '; For K:=1 To N Do Tam:=Tam+Kt; Lap:=Tam; End; {--------------} Procedure WriteXY(X,Y:Integer; St:String); Begin GotoXY(X,Y); Write(St); End; {--------------} Function Min(a,b:Integer):Integer; Begin If a < b Then Min:=a Else Min:=b; End; {--------------} Procedure Chuchay(St:String); Var k:Integer; Tin:String; Begin Tin:=Lap(' ',68)+'<<' +St+' '; For k:=1 To Length(Tin) Do Begin TextColor(k MOD 16); WriteXY(6,8,Copy(Tin,k,Min(68,Length(Tin)-k+1))); Delay(100); End; End; {--------------} Procedure Khung(x1,y1,x2,y2:Integer); Var k:Integer; Begin TextColor(14); WriteXY(x1,y1,#201); For k:=x1+1 To x2-1 Do Write(#205); Write(#187); WriteXY(x1,y2,#200); For k:=x1+1 To x2-1 Do Write(#205); Write(#188); For k:=y1+1 To y2-1 Do Begin WriteXY(x1,k,#186); WriteXY(x2,k,#186); End; End; {--------------} BEGIN TextBackGround(1); ClrScr; TextColor(3+Blink); GotoXY(30,4); Writeln('NAM HOC 1999 -2000'); Khung(5,7,75,9); Repeat Chuchay(a); Chuchay(b); Chuchay(c); Chuchay(d); Until KeyPressed; END.
152/Chuỗi đối xứng:
Code:
Program Chuoi_Doi_Xung; Var St:String; i,l:Byte; Begin Writeln('CHUOI DOI XUNG'); Writeln(' --------'); Write('-Nhap chuoi: '); Readln(St); l:=Length(St); i:=1; While (i < l Div 2) And (St[i] = St[l-i+1]) Do Begin i:=i+1; If i < (l Div 2) Then Writeln('+Chuoi nay doi xung') End; While (i < l Div 2) And (St[i] <> St[l-i+1]) Do Begin i:=i+1; If i < (l Div 2) Then Writeln('+Chuoi nay khong doi xung') End; Writeln; Writeln(' Bam phim <Enter> de ket thuc'); Readln End.
153/Phép trừ:
Code:
Program Phep_Tru; Var so1,so2,hieu :Integer; Begin Writeln(' CHUONG TRINH THUC HIEN PHEP TRU SO HOC'); Writeln(' co toi da 4 ky so'); Write('-Nhap so thu nhat = '); Readln(so1); Write('-Nhap so thu hai = '); Readln(so2); hieu:= so1-so2; Writeln; Writeln; Writeln('-------------------------------'); Writeln; Writeln(' ',so1:4); Writeln(' - ',so2:4); Writeln(' -----'); Writeln(' = ',hieu:5); Readln End.
154/Diện tích hình thang:
Code:
Program Hinh_thang; Var a,b,h:Integer; S:Real; Begin Writeln('CHUONG TRINH TINH DIEN TICH HINH THANG'); Write('-Cho biet day ngan = '); Readln(a); Write('-Cho biet day dai = '); Readln(b); Write('-Cho biet chieu cao = '); Readln(h); S := 0.5 * (a + b) * h; Writeln('+Dien tich hinh thang = ',s:6:2,' met vuong'); Readln End.
155/Diện tích tam giác:
Code:
Program Tam_Giac; Var a,b,c:Integer; p,s:Real; Begin Writeln('CHUONG TRINH TINH DIEN TICH TAM GIAC'); Write('-Cho biet canh thu nhat = '); Readln(a); Write('-Cho biet canh thu hai = '); Readln(b); Write('-Cho biet canh thu ba = '); Readln(c); p := 0.5 * (a + b + c); s := sqrt(p*(p-a)*(p-b)*(p-c)); Writeln('+Dien tich hinh tam giac = ',s:6:2,' met vuong'); Readln End.
156/Tính lực hút giữa 2 vật:
Code:
Program Luc_hut; CONST g=6.672E-8; Var m1,m2,d,f:Real; Begin Writeln('CHUONG TRINH TINH LUC HUT GIUA 2 VAT'); Write('-Khoi luong m1 (gam) = '); Readln(m1); Write('-Khoi luong m2 (gam) = '); Readln(m2); Write('-Khoang cac giua 2 vat (Cm) = '); Readln(d); f := g * m1 * m2 / sqr(d); Writeln('+Luc hut giua 2 vat = ',f:6:2); Readln End.
157/Tính lương:
Code:
Program Tinh_luong; Var Ten:String; nc,pc,tam:Integer; bl,hs,tt,cl:Real; Begin Writeln('CHUONG TRINH TINH LUONG'); Writeln('------------------------'); Write('-Cho biet ho ten : '); Readln(ten); Write('-Cho biet bac luong : '); Readln(bl); Write('-Cho biet ngay cong : '); Readln(nc); Write('-Cho biet he so trach nhiem : '); Readln(hs); Write('-Cho biet phu cap khu vuc = '); Readln(pc); Write('-Cho biet so tien da tam ung ky 1 = '); Readln(tam); tt := ((bl/30 * nc * hs)+pc); cl := tt - tam; Writeln; Writeln('+Ong (Ba) : ',ten:24); Writeln('+Tien luong trong thang = ',tt:10:2,' dong'); Writeln('+So tien con linh = ',cl:10:2,' dong'); Writeln(' Bam phim <Enter> de ket thuc'); Readln End.
158/Tính PigNet:
Code:
Program Pignet; Var Ten:String; Tuoi:Integer; lon,nho,tb,tl,cao,pig:Real; Begin Writeln('CHUONG TRINH TINH PIGNET'); Writeln('------------------------'); Write('-Cho biet ho ten : '); Readln(ten); Write('-Cho biet tuoi : '); Readln(tuoi); Write('-Cho biet chieu cao : '); Readln(cao); Write('-Cho biet trong luong : '); Readln(tl); Write('-So do vong nguc luc hit vao = '); Readln(lon); Write('-So do vong nguc luc tho ra = '); Readln(nho); tb := 0.5 * (lon-nho); pig := cao - (tb + tl); Writeln; Write('+Ong (Ba) : ',ten:24); Writeln(' , ',tuoi,' tuoi'); Writeln('+Co so do Pignet = ',pig:6:2); Readln End.
159/Tính thể tích hình cầu:
Code:
Program Hinh_cau; Var s:integer; r,v:Real; Begin Writeln('CHUONG TRINH TINH THE TICH HINH CAU'); Writeln('---------------------------------'); Write('Cho biet dien tich hinh tron = '); Readln(s); r:=Sqrt(s/4*3.1416); v:=4/3 * 3.1416 *r*r*r; Writeln('*The tich hinh cau la : ',V:6:2,' met khoi'); Readln End.
160/Cộng thêm giây vào giờ hiện hành:
Code:
Program Cong_giay; Var gio,phut,giay,them:Integer; Begin Writeln('CONG THEM GIAY VAO GIO HIEN HANH'); Writeln('--------------------------------'); Writeln('Nhap vao gio:phut:giay hien hanh'); Write('-Gio : '); Readln(gio); Write('-Phut: '); Readln(phut); Write('-Giay: '); Readln(giay); Write('-Cho biet so giay muon cong them: '); Readln(them); If (giay+them) < 60 Then giay:=giay+them Else Begin giay:=((giay+them)-60); phut:=phut+1; If phut >=60 Then Begin phut:=phut-60; gio:=gio+1; End; End; Writeln; Writeln('+Sau khi cong them so giay vao, gio moi la:'); Writeln(' ',gio,' : ',phut,' : ',giay); Writeln; Writeln('Bam phim <Enter> de ket thuc'); Readln End.
161/Đoán số bạn đang nghĩ trong đầu:
Code:
Program Doan_so; Var tren,duoi,giua:Integer; chon:Word; Begin tren:=100; duoi:=1; While duoi < tren Do Begin Writeln('DOAN SO BAN DANG NGHI TRONG DAU'); Writeln('-------------------------------'); giua:=(tren+duoi) Div 2; Writeln('-So cua ban Ty: ',giua); Writeln('-Neu go so 0 se ngung'); Writeln('-Neu ban Ty noi so ',giua,' nho hon thi ban Teo go 1 '); Write('-Neu ban Ty noi so ',giua,' lon hon thi ban Teo go 2 '); Readln(chon); If chon = 0 Then exit; If chon = 1 Then duoi:=giua Else tren:=giua End; Readln End.
162/Đổi chổ 2 số nguyên:
Code:
Program Doi_cho; Var so1,so2:Integer; Begin Writeln('DOI CHO 2 SO NGUYEN'); Writeln('-------------------'); Write('-Nhap so thu nhat: '); Readln(so1); Write('-Nhap so thu hai : '); Readln(so2); so1:=so1+so2; so2:=so1-so2; so1:=so1-so2; Writeln('SAU KHI CHUYEN CHO'); Writeln('+So thu nhat bay gio la: ',so1); Writeln('+So thu hai bay gio la : ',so2); Readln End.
163/Đổi chổ 2 số:
Code:
Program Doi_cho; Var so1,so2:Integer; (*-----------------*) PROCEDURE Doi(Var n,m:Integer); Var tam:Integer; Begin tam:=n; n:=m; m:=tam; End; (*-----------------*) BEGIN Writeln('DOI CHO 2 SO'); Writeln('Dung thu tuc'); Writeln('------------'); Write('-Nhap so thu nhat: '); Readln(so1); Write('-Nhap so thu hai: '); Readln(so2); Writeln('================='); Writeln(' Truoc khi doi cho'); Writeln('+So thu nhat = ',so1); Writeln('+So thu hai = ',so2); Writeln(' Sau khi doi cho'); Doi(so1,so2); Writeln('*So thu nhat : ',so1); Writeln('*So thu hai : ',so2); Writeln; Write(' Bam phim <Enter> de ket thuc '); Readln END.
164/Đổi chử thường ra chử hoa:
Code:
Program Doi_chu_hoa; Var Chuoi:String; (*-----------------*) PROCEDURE Doi(Var St:String); Var i:Byte; Begin For i:=1 To Length(St) Do St[i]:=Upcase(St[i]); End; (*-----------------*) BEGIN Writeln('DOI CHU THUONG RA CHU HOA'); Writeln(' Dung thu tuc'); Writeln('-------------------------'); Write('-Nhap mot chuoi ky tu : '); Readln(Chuoi); Writeln; Doi(Chuoi); Writeln('+Doi ra chu hoa = ',chuoi); Writeln; Write(' Bam phim <Enter> de ket thuc '); Readln END.
165/Đổi nhiệt độ sang Farenheit:
Code:
Program Doi_nhiet_do; Var t:Real; tiep:Char; (*---------------------*) FUNCTION Doi(x:Real):Real; Begin Doi:=((9*x/5) + 32); End; (*---------------------*) BEGIN Repeat Writeln('DOI DO BACH PHAN SANG DO FARENHEIT'); Writeln(' Su dung ham'); Writeln('----------------------------------'); Write('-Nhap do bach phan: '); Readln(t); Writeln('*Doi sang do Farenheit = ',Doi(t):6:2); Writeln; Write('-Co tiep tuc khong ? (c/k) '); Readln(tiep); Until tiep='k' ; END.
166/Đổi nhiệt độ sang Celcius:
Code:
Program Doi_do_F_C; Var f,c:Real; Begin Writeln('DOI DO FAHRENHEIT SANG CELCIUS'); Write('-Cho biet do Fahrenheit : '); Readln(f); c:=((f-32) * 5)/9; Writeln; Writeln(f:5:2,' do Fahrenheit doi sang do Celcius = ',c:5:2,#248); Writeln; Writeln(' Bam phim <Enter> de ket thuc'); Readln End.
167/Đổi Mike sang KM:
Code:
Program Doi_do_Mile_Km; Const Km_Mile=1.609344; Var m,k:Real; Begin Writeln('DOI MILE SANG Km'); Write('-Cho biet so Mile can doi: '); Readln(m); k:=m * Km_Mile; Writeln; Writeln(m:5:2,' dam Anh doi thanh = ',k:5:2,' Km'); Writeln; Writeln(' Bam phim <Enter> de ket thuc'); Readln End.
168/Đổi ngày ra thứ trong tuần:
Code:
Program Thu_trong_tuan; Var d:1..31; m:1..14; y:1900..2000; a:Integer; Begin Writeln('DOI NGAY RA THU TRONG TUAN'); Writeln(' Lich the ky 20'); Writeln('--------------------------'); Repeat Write('-Ngay ( so 0 de ngung): '); Readln(d); If d = 0 Then Exit; Write('-Thang: '); Readln(m); Write('-Nam: '); Readln(y); If m < 3 Then Begin m:=m+12; Dec(y); End; a:=d+2*m+(3*(m+1) Div 5)+y+(y Div 4) + 1; a:=a Mod 7; Case a Of 0 :Begin Write('Ngay ',d:2,' / ',m:2,' / ',y:4); Writeln(' la ngay Thu Bay'); End; 1 :Begin Write('Ngay ',d:2,' / ',m:2,' / ',y:4); Writeln(' la ngay Chu Nhat'); End; Else Begin Write('Ngay ',d:2,' / ',m:2,' / ',y:4); Writeln(' la ngay ',a); End; End; Until d=0; End.
169/Đổi hệ 10 sang hệ 16:
Code:
Program Doi_he_so; Var n:Integer; (*------------------*) FUNCTION Doi(so:Integer):String; Const ky_so:Array[0..15] Of Char =('0','1','2','3','4','5', '6','7','8','9','A','B','C','D','E','F'); Var tam1:Integer; tam2:String; Begin tam1:=Hi(so); tam2:=ky_so[tam1 Shr 4] + ky_so[tam1 And $0F]; tam1:=Lo(so); Doi:=tam2+ky_so[tam1 Shr 4] +Ky_so[tam1 And $0F] End; (*------------------*) BEGIN Repeat Writeln('DOI SO HE 10 SANG HE 16'); Writeln(' Su dung ham '); Writeln('-----------------------'); Writeln('Nhap mot so nguyen tu -32768 den 32767'); Write('neu nhap so 0 se ket thuc '); Readln(n); Writeln; Writeln('+So he 10 la = ',n); Writeln('+Doi sang he 16 la = ',Doi(n)); Writeln; Until n=0; END.
170/Đổi hệ 10 sang hệ 16 (code 2):
Code:
Program Doi_he_16; Var n,so,chuso:Integer; tiep:Char; Begin Writeln('DOI SO HE 10 SANG HE 16'); Writeln('-----------------------'); Repeat Write('-Nhap so he 10 = '); Readln(so); n:=4096; {16 luy thua 3} Write('+Ky so he 16= '); Repeat chuso:=so Div n; Case chuso Of 0..9:Write(chuso); 10 .. 15:Write(chr(chuso + 55)); End; so:=so- n*(so Div n); n:=n Div 16; Until n=0; Writeln; Write('-Co thuc hien tiep khong ? (C/K) '); Readln(tiep); Until Upcase(tiep)='K'; Writeln; Writeln(' Bam phim <Enter> de ket thuc'); Readln End.
171/Đổi hệ 10 sang hệ 2:
Code:
Program Doi_so_he_2; Var n,so:Integer; tiep:Char; Begin Writeln('DOI SO HE 10 SANG HE 2'); Writeln('----------------------'); Repeat Write('-Nhap so nguyen he 10: '); Readln(so); n:=16384; {Gan n= 2 luy thua 14} Writeln; Write('+So he 2 la '); Repeat Write(so Div n); so:=so - n * (so Div n); n:= n Div 2; Until n=0; Writeln; Write('-Tiep tuc nua khong (C/K) '); Readln(tiep); Until Upcase(tiep)='K'; Writeln; Writeln(' Bam phim <Enter> de ket thuc'); Readln End.
172/Đổi hệ 16 sang hệ 10:
Code:
Program Doi_he_so; Var Ky_so:String; (*------------------*) FUNCTION Doiso(x:String):Integer; Var j,tong,nhan,so:Integer; tam:Char; Begin tong:=0; nhan:=1; For j:= length(x) Downto 1 Do Begin tam:=x[j]; If Ord(tam)= 32 Then tam:='0'; If tam in['0'..'9','A'..'F'] Then {Toan tu in} Begin so:=Ord(tam) - 48; If so > 9 Then so:=so-7; tong:=tong + so*nhan; End Else Begin Doiso:=0; Exit; End; nhan:=nhan*16 End; Doiso:=tong; End; (*------------------*) BEGIN Writeln('DOI SO HE 16 SANG HE 10'); Writeln(' Su dung ham'); Writeln('------------------------'); Repeat Write('Nhap ky so he 16 (go kk de dung): '); Readln(ky_so); Writeln; Writeln('+Doi sang he 10 la = ',Doiso(ky_so)); Writeln; Until ky_so='kk'; END.
173/Đổi số ra chử:
Code:
Program Doi_So_ra_chu; TYPE ChuSo='0'..'9'; Donvi=(Muoi,Tram); Phamvi= 0..999; CONST KS:Array[ChuSo] Of String=(' ','mot ',' hai',' ba', ' bon',' nam',' sau',' bay',' tam',' chin'); DV:Array[DonVi] Of String[6]=(' muoi ',' tram'); Var n:Phamvi; sn,s:String; Dodai:Byte; Begin Writeln('DOI SO RA CHU'); Writeln('-------------'); Writeln; Write('-Nhap mot so tu 0 den 999: '); Readln(n); Str(n,sn); DoDai:=Length(sn); Case DoDai Of 1: s:=KS[sn[1]]; 2: Begin If Sn[1] = '1' Then s:='muoi' Else s:=KS[sn[1]]+DV[Muoi]; If sn[2] = '5' Then s:=s+'lam' Else s:=s+KS[sn[2]]; End; 3: Begin s:=KS[sn[1]]+DV[Tram]; Case sn[2] Of '0' : If sn[3] <> '0' Then s:=s+'le'; '1' : s:=s+'muoi'; Else s:=s+KS[sn[2]]+DV[Muoi]; End; If (sn[3]='5') And (sn[2] <>'0') then s:=s+'lam' Else s:=s+KS[sn[3]]; End; End; Writeln(s); Writeln; Write(' Bam phim <Enter> de ket thuc '); readln End.
174/Đổi số hệ thập phân sang hệ bất kì:
Code:
Program Doi_thap_phan_ra_he_bat_ky; Var He10,N,Y,HeN:Word; He,Tam:String; Begin Writeln('DOI SO TU HE THAP PHAN SANG HE BAT KY'); Writeln(' -----------------'); Writeln; Write('-Nhap so nguyen he thap phan: '); Readln(He10); N:=He10; Write('-Doi sang he nao: '); Readln(HeN); He:=' '; Repeat Y:=He10 Mod HeN; If Y < 10 Then Str(Y, Tam) Else Tam:=Chr(Y+55); He:=Tam + He; He10:= He10 Div HeN; Until He10 = 0; Writeln; Writeln('+So he 10 la : ',N); Writeln('+Doi sang he: ',HeN:2,' la: ',He); Writeln; Writeln(' Bam phim <Enter> de ket thuc'); Readln End.
175/Đổi số hệ thập phân sang hệ bất phân:
Code:
Program Doi_thap_phan_ra_bat_phan; Var He10,N,Y:Word; He8,Tam:String; Begin Writeln('DOI SO TU HE THAP PHAN SANG HE BAT PHAN'); Writeln(' -----------------'); Writeln; Write('-Nhap so nguyen he thap phan: '); Readln(He10); N:=He10; He8:=' '; Repeat Y:=He10 Mod 8; Str(Y, Tam); He8:=Tam + He8; He10:= He10 Div 8; Until He10 = 0; Writeln; Writeln('+So he 10 la : ',N); Writeln('+Doi sang he 8 la: ',He8); Writeln; Writeln(' Bam phim <Enter> de ket thuc'); Readln End.
176/Thập phân sang nhị phân:
Code:
Program Doi_thap_phan_ra_nhi_phan; Var He10,N,Y:Word; He2,Tam:String; Begin Writeln('DOI SO TU HE THAP PHAN SANG HE NHI PHAN'); Writeln(' -----------------'); Writeln; Write('-Nhap so nguyen he thap phan: '); Readln(He10); N:=He10; He2:=' '; Repeat Y:=He10 Mod 2; Str(Y, Tam); He2:=Tam + He2; He10:= He10 Div 2; Until He10 = 0; Writeln; Writeln('+So he 10 la : ',N); Writeln('+Doi sang he 2 la: ',He2); Writeln; Writeln(' Bam phim <Enter> de ket thuc'); Readln End.
177/Thập phân sang thập lục:
Code:
Program Doi_thap_phan_ra_thap_luc; Var He10,N,Y:Word; He16,Tam:String; Begin Writeln('DOI SO TU HE THAP PHAN SANG HE THAP LUC PHAN'); Writeln(' -----------------'); Writeln; Write('-Nhap so nguyen he thap phan: '); Readln(He10); N:=He10; He16:=' '; Repeat Y:=He10 Mod 16; If Y < 10 Then Str(Y, Tam) Else Tam:=Chr(Y+55); He16:=Tam + He16; He10:= He10 Div 16; Until He10 = 0; Writeln; Writeln('+So he 10 la : ',N); Writeln('+Doi sang he 16 la: ',He16); Writeln; Writeln(' Bam phim <Enter> de ket thuc'); Readln End.
178/Đổi tên tháng từ số ra chử:
Code:
Program In_ten_thang; Var n:Byte; (*-----------------*) FUNCTION thang(x:Byte):String; Const Ten_thang:Array[1..12] Of String=('Gieng','Hai','Ba', 'Tu','Nam','Sau','Bay','Tam','Chin','Muoi','Mot','Chap'); Begin thang:=' Thang '+Ten_thang[x]; End; (*-----------------*) BEGIN Writeln('DOI TEN THANG TU SO RA CHU'); Writeln(' Su dung ham'); Writeln('--------------------------'); Write('-Thang : '); Readln(n); If (n < 1) And (n > 12) Then Write('Khong hop le') Else Write(thang(n)); Writeln; Write(' Bam phim <Enter> de ket thuc '); Readln END.
179/Đổi tiền sao cho số tờ ít nhất:
Code:
Program Doi_tien; Var sotien:LongInt; (*-----------------*) PROCEDURE Doi(St:LongInt); Const Loai:Array[1..6] Of Integer =(50,20,10,5,2,1); Var i,soto:Integer; Begin i:=1; Repeat soto:=st Div loai[i]; If soto <> 0 Then Writeln(soto,' to loai ',loai[i],' ngan dong'); st:=st Mod loai[i]; i:=i+1; Until st=0; End; (*-----------------*) BEGIN Writeln('DOI TIEN SAO CHO SO TO IT NHAT'); Writeln(' Dung thu tuc'); Writeln('------------------------------'); Repeat Write('-So tien (ngan) co ( so 0 de ngung) : '); Readln(Sotien); Doi(Sotien); Writeln; Until sotien=0; END.
180/Đổi số ra chử HOA:
Code:
Program Doi_So_Ra_Chu; Var Tiep:Char; Chuoitk,Chuoikq:String; So:0..999; Tram,Chuc,Donvi:0..9; Begin Tiep:='C'; While UpCase(Tiep)='C' Do Begin {$R+} Chuoitk:='MOT HAI BA BON NAM SAU BAY TAM CHIN'; Write('-Nhap so can doi: '); Readln(so); If So = 0 Then Writeln('So khong') Else Begin Tram:=So Div 100; Chuc:=(So-Tram * 100) Div 10; Donvi:= So Mod 10; Chuoikq:=' '; If (Donvi > 0) And (Donvi <> 5) Then Chuoikq :=Chuoikq + Copy(Chuoitk,4* Donvi -3,4); If (Donvi = 5) And (Chuc = 0) Then Chuoikq :=Chuoikq + ' NAM'; If (Donvi = 5) And (Chuc > 0) Then Chuoikq := Copy(Chuoitk,4 * Chuc-3,4)+' LAM'; If (Donvi = 5) And (Chuc = 1) Then Chuoikq := ' LAM'; If Chuc = 1 Then Chuoikq:='MUOI'+chuoikq; If (Chuc > 1) And (Donvi = 0) Then Chuoikq:=Copy(Chuoitk,4 * Chuc-3,4)+' MUOI '; If (Chuc > 1) And (Donvi = 1) Then Chuoikq:=Copy(Chuoitk,4 * Chuc-3,4)+' MUOI '+Chuoikq; If (Chuc > 1) And (Donvi > 1) And (Donvi <>5) Then Chuoikq:=Copy(Chuoitk,4 * Chuc-3,4)+' MUOI '+Chuoikq; If (Tram > 0) And (Chuc=0) And (Donvi=0) Then Chuoikq:=Copy(Chuoitk,4*Tram-3,4)+' TRAM '; If (Tram > 0) And (Chuc = 0) And (Donvi > 0) Then Chuoikq := Copy(Chuoitk,4*Tram-3,4)+' TRAM LINH '+ Copy(Chuoitk,4*Donvi-3,4); If (Tram > 0) And (Chuc = 1) And (Donvi = 0) Then Chuoikq := Copy(Chuoitk,4*Tram-3,4)+ 'TRAM MUOI'; If (Tram > 0) And (Chuc >= 2) And (Donvi = 0) Then Chuoikq := Copy(Chuoitk,4*Tram-3,4)+' TRAM '+ Copy(Chuoitk,4*Chuc -3,4) +' MUOI'; If (Tram > 0) And (Chuc <> 0) And (Donvi > 0) Then Chuoikq := Copy(Chuoitk,4*Tram-3,4)+' TRAM '+ Copy(Chuoitk,4*Chuc -3,4) +' MUOI '+ Copy(Chuoitk,4*Donvi-3,4); If (Tram > 0) And (Chuc <> 0) And (Donvi = 5) Then Chuoikq := Copy(Chuoitk,4*Tram-3,4)+' TRAM '+ Copy(Chuoitk,4*Chuc -3,4) +' MUOI LAM'; Write('-Viet bang chu la: ',Chuoikq); End; Writeln; Write('+Tiep tuc nua khong (C/K) '); Readln(Tiep); End; End.
181/Chương trình tham quan:
Code:
Program Du_lich; Uses Crt; TYPE Diadiem=Set of 1..5; Var ng1,ng2,ng3,Ba,Hai,Mot:DiaDiem; ch1,ch2,ch3,i:Byte; (*----------------------------*) PROCEDURE Den(i:Byte); Begin Case i Of 1:Write('Da Lat '); 2:Write('Vung Tau '); 3:Write('Nha Trang '); 4:Write('Hue '); 5:Write('Ha Noi '); End; End; (*----------------------------*) BEGIN ClrScr; Writeln('CHUONG TRINH THAM QUAN'); Writeln('----------------------'); Writeln(' 1-Da Lat'); Writeln(' 2-Vung Tau'); Writeln(' 3-Nha Trang'); Writeln(' 4-Hue'); Writeln(' 5-Ha Noi'); Writeln('Chon noi nao, go cac so tu 1 den 5'); Writeln('1-Nguoi thu nhat chon 3 noi:'); Write(' -Noi thu nhat: '); Readln(ch1); Write(' -Noi thu hai: '); Readln(ch2); Write(' -Noi thu ba: '); Readln(ch3); ng1:=[ch1,ch2,ch3]; Writeln('2-Nguoi thu hai chon 3 noi:'); Write(' -Noi thu nhat: '); Readln(ch1); Write(' -Noi thu hai: '); Readln(ch2); Write(' -Noi thu ba: '); Readln(ch3); ng2:=[ch1,ch2,ch3]; Writeln('3-Nguoi thu ba chon 3 noi:'); Write(' -Noi thu nhat: '); Readln(ch1); Write(' -Noi thu hai: '); Readln(ch2); Write(' -Noi thu ba: '); Readln(ch3); ng3:=[ch1,ch2,ch3]; Ba:=ng1 * ng2 * ng3; Hai:=(ng1*ng2-ng3) + (ng2*ng3-ng1) + (ng3*ng1-ng2); Mot:=ng1 + ng2 +ng3; Writeln; Writeln('*Cac noi ma ca 3 nguoi deu chon: '); For i:=1 To 5 Do If i In Ba Then Den(i); Writeln; Writeln('*Noi chi co 2 nguoi chon: '); For i:=1 To 5 Do If i In Hai Then Den(i); Writeln; Writeln('*Noi chi co 1 nguoi chon: '); For i:=1 To 5 Do If i In Mot Then Den(i); Writeln; Write(' Bam phim <Enter> de ket thuc '); Readln END.
182/Gấp giấy có độ dày 1 mét:
Code:
Program gap_giay; Var day:Real; solan:Integer; Begin Writeln('GAP GIAY CO DO DAY 1 MET'); Writeln('------------------------'); day:=0.1; solan:=0; While day < 1000 Do Begin day:=day * 2; solan:=solan+1; End; Writeln; Writeln('+Phai gap toi: ',solan,' lan'); Writeln; Writeln(' Bam phim <Enter> de ket thuc'); Readln End.
183/Giải phương trình trùng phương:
Code:
Program Phuong_trinh_trung_phuong; Var n,k:0..4; y:Array[1..2] Of Real; a,b,c,delta:Real; Begin Writeln('GIAI PHUONG TRINH TRUNG PHUONG'); Writeln('------------------------------'); Repeat Write('-Nhap he so a: '); Readln(a); Until a <> 0; Write('-Nhap he so b: '); Readln(b); Write('-Nhap he so c: '); Readln(c); Delta:=b*b-4*a*c; If Delta < 0 Then Begin y[1]:=-1; y[2]:=-1; End; If Delta = 0 Then Begin y[1]:=-1; y[2]:=-b/(2*a); End; If Delta > 0 Then Begin y[1]:=(-b+sqrt(Delta))/(2*a); y[2]:=(-b-sqrt(Delta))/(2*a); End; n:=0; Writeln(' KET QUA'); for k:=1 to 2 Do If y[k] > 0 Then Begin Writeln(' +X1= ',Sqrt(y[k]):5:3); Writeln(' +X2= ',-Sqrt(y[k]):5:3); Inc(n,2) End Else If y[k] = 0 Then Begin Writeln('X = 0'); Inc(n); End; If n=0 Then Writeln('Phuong trinh vo nghiem') Else Writeln('Phuong trinh co ',n,' nghiem'); Writeln; Write(' Bam phim <Enter> de ket thuc '); Readln End.
184/Gửi tìm tiết kiệm:
Code:
Program Gui_tiet_kiem; Var x,y:Real; thang:Word; tiep:Char; Begin Writeln('GUI TIEN TIET KIEM'); Writeln('------------------'); Repeat Write('-So tien hien co: '); Readln(x); Write('-So tien muon co: '); Readln(y); thang:=0; Repeat inc(thang); x:= x *1.015; Until x >=y; Writeln('+Thoi gian can gui: ',thang,' thang'); Writeln; Write('-Co tiep tuc nua khong (C/K) '); Readln(tiep); Until Upcase(tiep)='K'; End.
185/Hàm X mũ N:
Code:
Program X_mu_n; Var x:Integer; n:Word; (*-----------------*) FUNCTION ham_mu(i:Integer;k:Word):LongInt; Begin If k = 0 Then ham_mu:=1 Else ham_mu:=i*ham_mu(i,k-1); End; (*-----------------*) BEGIN Writeln('HAM X MU N'); Writeln('----------'); Write('-Nhap X = '); Readln(x); Write('-Nhap N = '); Readln(n); Writeln('*Ket qua = ',Ham_mu(x,n)); Writeln; Write(' Bam phim <Enter> de ket thuc '); Readln END.
186/Hoán vị 2 con trỏ thay cho hoán vị nội dung:
Code:
Program Hoan_Vi_Chuoi; Uses Crt; VAR Chuoi1,Chuoi2,Tam :^String; Begin ClrScr; Writeln('HOAN VI 2 CON TRO THAY CHO HOAN VI NOI DUNG'); Writeln('-------------------------------------------'); Writeln; New(Chuoi1); New(Chuoi2); Chuoi1^ := 'Giao trinh Turbo Pascal 7.0'; Chuoi2^ := 'Giao trinh FoxPro 2.6'; Writeln; Writeln('NOI DUNG BAN DAU CUA 2 CHUOI'); Writeln('----------------------------'); Writeln; Writeln('-Chuoi thu nhat: ',Chuoi1^); Writeln('-Chuoi thu hai : ',Chuoi2^); Writeln; Writeln('NOI DUNG SAU KHI HOAN VI 2 CON TRO'); Writeln('----------------------------------'); Writeln; Tam := Chuoi1; Chuoi1 := Chuoi2; Chuoi2 := Tam; Writeln('-Chuoi thu nhat: ',Chuoi1^); Writeln('-Chuoi thu hai : ',Chuoi2^); Dispose(Chuoi1); Dispose(Chuoi2); Writeln; Write(' Bam <Enter> . . . '); Readln; End.
187/Hướng dẫn mua vé máy bay:
Code:
Program Huong_dan; Var chon:Byte; Begin Writeln('HUONG DAN MUA VE MAY BAY'); Writeln('------------------------'); Writeln(' 1-Tp Ho Chi Minh di Ha Noi'); Writeln(' 2-Tp Ho Chi Minh di Da Nang'); Writeln(' 3-Tp Ho Chi Minh di Nha Trang'); Writeln(' 4-Tp Ho Chi Minh di Phu Quoc'); Writeln(' 5-Tp Ho Chi Minh di Con Dao'); Writeln(' 6-Tp Ho Chi Minh di Paris'); Writeln(' 7-Tp Ho Chi Minh di London'); Writeln(' 8-Tp Ho Chi Minh di Moscow'); Writeln(' 9-Tp Ho Chi Minh di Bac Kinh'); Writeln(' 10-Tp Ho Chi Minh di Tokyo'); Write('-Chon tuyen nao, go vao so tuong ung (1 - 10): '); Readln(chon); Case chon of 1 :Writeln(' Xin moi den quay ve so 1'); 2 :Writeln(' Xin moi den quay ve so 2'); 3 :Writeln(' Xin moi den quay ve so 3'); 4 :Writeln(' Xin moi den quay ve so 4'); 5 :Writeln(' Xin moi den quay ve so 5'); 6 :Writeln(' Xin moi den quay ve so 6'); 7 :Writeln(' Xin moi den quay ve so 7'); 8 :Writeln(' Xin moi den quay ve so 8'); 9 :Writeln(' Xin moi den quay ve so 9'); 10 :Writeln(' Xin moi den quay ve so 10'); Else Writeln('-Khong co tuyen bay nay'); End; Writeln; Writeln(' Bam phim <Enter> de ket thuc'); Readln End.
188/In các số khác nhau của dãy số:
Code:
Program So_khac_nhau; CONST M=100; TYPE DaySo=Set of 0..255; DayNguyen=Array[1..M] Of Integer; Var a:DayNguyen; i,n:Integer; x:DaySo; Begin Writeln('IN CAC SO KHAC NHAU CUA DAY SO'); Writeln('------------------------------'); Repeat Write('Nhap bao nhieu so: '); Readln(n); Until N <= M; For i:=1 To N Do Begin Write('-Phan tu thu: ',i,' = '); Readln(a[i]); End; x:=[]; For i:=1 To N Do If Not (a[i] In x) Then Begin Write(a[i],', '); x:=x+[a[i]]; End; Writeln; Write(' Bam phim <Enter> de ket thuc '); Readln End.
189/In dãy Fibonaci:
Code:
Program Day_so_Fibonaci; Var n,j,pj,pj1,pj2:Integer; Begin Writeln('IN DAY SO FIBONACI'); Writeln('------------------'); Write('-Nhap so N= '); Readln(n); j:=2; pj:=1; pj1:=1; While j <> n Do Begin pj2:=pj1; pj1:=pj; pj:=pj1+pj2; j:=j+1; End; Writeln; Writeln('+So hang thu ',n,' cua day Fibonaci = ',pj); Writeln; Writeln(' Bam phim <Enter> de ket thuc'); Readln End.
190/In lá cờ nước mĩ ra màn hình:
Code:
Program Co_My; Var i,j,dai1,dai2,rong1,rong2:Byte; Begin Writeln('IN LA CO NUOC MY RA MAN HINH'); Writeln('-----------------------------'); Write('-Nhap chieu rong_1: '); Readln(rong1); Write('-Nhap chieu rong_2: '); Readln(rong2); Write('-Nhap chieu dai_1: '); Readln(dai1); Write('-Nhap chieu dai_2: '); Readln(dai2); For i:=1 To rong1 Do Begin If odd(i) Then Begin For j:=1 To (dai1 Div 2) Do Write('*',' '); If odd(dai1) Then Write(' ','*'); End Else Begin For j:=1 To (dai1 Div 2) Do Write(' ','*'); If odd(dai1) Then Write(' '); End; For j:=1 to dai2 Do Write('='); Writeln; End; For i:=1 To rong2 Do Begin For j:=1 To dai1+dai2 Do Write('='); Writeln; End; Writeln; Writeln(' Bam phim <Enter> de ket thuc'); Readln End.
191/In xen kẻ các dấu sao:
Code:
Program In_xen_ke; Var dai,rong,i,j:Byte; Begin Writeln('IN XEN KE CAC DAU SAO'); Writeln('--------------------'); Write('-Nhap chieu dai: '); Readln(dai); Writeln('-Nhap chieu rong: '); Readln(rong); For i:=1 To rong Do Begin If i Mod 2 = 0 Then For j:=1 To dai Div 2 Do Write(' *') {dau trang va dau sao} Else For j:=1 To dai Div 2 +dai Mod 2 Do Write('* '); {dau sao va dau trang} Writeln; End; Writeln; Writeln(' Bam phim <Enter> de ket thuc'); Readln End.
192/Khảo sát 2 đường tròn:
Code:
Program Khao_Sat_Hai_Duong_Tron; TYPE DuongTron = RECORD R : Real; x, y : Real; End; VAR Dt1, Dt2 : DuongTron; Kc, Tong, Hieu : Real; BEGIN Writeln('KHAO SAT 2 DUONG TRON'); Writeln('---------------------'); Writeln; Writeln('*Duong tron thu nhat'); Write(' +Ban kinh: '); Readln(Dt1.R); Write(' +Toa do x: '); Readln(Dt1.x); Write(' +Toa do y: '); Readln(Dt1.y); writeln; Writeln('*Duong tron thu hai'); Write(' +Ban kinh: '); Readln(Dt2.R); Write(' +Toa do x: '); Readln(Dt2.x); Write(' +Toa do y: '); Readln(Dt2.y); Kc := Sqrt(Sqr(Dt1.x - Dt2.x) + Sqr(Dt1.y - Dt2.y)); Tong := Dt1.R + Dt2.R; Hieu := ABS(Dt1.R - Dt2.R); If (Kc = 0) AND (Hieu = 0) Then Writeln('-Hai duong tron trung nhau') Else If (Hieu > Kc) Then Writeln('-Hai duong tron long nhau') Else If (Tong = Kc) OR (Hieu = Kc) Then Writeln('-Hai duong tron tiep xuc nhau') Else If (Tong > Kc) AND (Hieu < Kc) Then Writeln('-Hai duong tron cat nhau') Else If (Tong < Kc) Then Writeln('-Hai duong tron o ngoai nhau'); Readln END.
193/Khối lập phương chui qua khung chử nhật:
Code:
Program Khoi_lap_phuong; Var a,b,c,m,n,tam:Integer; Begin Writeln('KHOI LAP PHUONG CHUI QUA KHUNG CHU NHAT'); Writeln('---------------------------------------'); Writeln(' *Nhap so lieu cho khoi lap phuong'); Write('-Canh thu nhat: '); Readln(a); Write('-Canh thu hai : '); Readln(b); Write('-Canh thu ba : '); Readln(c); Writeln(' *Nap so lieu cho khung chu nhat'); Write('-Canh thu nhat: '); Readln(m); Write('-Canh thu hai : '); Readln(n); If (a>b) Then Begin tam:=a; a:=b; b:=tam; End; If (b>c) Then Begin tam:=b; b:=c; c:=tam; End; If (a>b) Then Begin tam:=a; a:=b; b:=tam; End; If (m>n) Then Begin tam:=m; m:=n; n:=tam; End; If (a<m) And (b<n) Then Writeln('+Khoi lap phuong chui qua duoc khung chu nhat') Else Writeln('+Khoi lap phuong khong chui qua duoc khung chu nhat'); Writeln; Writeln(' Bam phim <Enter> de ket thuc'); Readln End.
194/Kiểm phiếu bầu cử chi đoàn:
Code:
Program Bau_cu; CONST Max=100; ucv=5; tke:Array[1..5] Of Word =(0,0,0,0,0); TYPE stt=1..ucv; phieubau=Set of stt; Var Phieu:Array[1..Max] Of Phieubau; n,n1,i:1..Max; j:1..ucv; Ch:Char; Bau:0..5; Begin Writeln('KIEM PHIEU BAU CU CHI DOAN TN'); Writeln('-----------------------------'); Write('-Cho biet so nguoi tham gia bau (1..100): '); Readln(n); {Gan tat ca cac tap hop bang rong} FillChar(Phieu, Sizeof(Phieu), #0); {Nhap phieu bau cua tat ca cac cu tri} For i:=1 To N Do Begin Write('-Cu tri thu ',i); For j:=1 To ucv Do Begin Write(' +Chon ung cu vien thu ',j,' (C/K) ? '); Readln(Ch); Ch:=Upcase(Ch); If Ch = 'C' Then Phieu[i]:=Phieu[i] + [j]; End; End; {Kiem tra phieu hop le } n1:=n; For i:=1 To n Do Begin Bau:=0; For j:=1 To ucv Do If j In Phieu[i] Then Inc(Bau); If Bau <> 3 then Begin Phieu[i]:=[]; Dec(n1); End; End; {Kiem phieu} For i:= 1 To n Do For j:=1 To ucv Do If j IN Phieu[i] Then Inc(Tke[j]); Writeln; Writeln(' KET QUA KIEM PHIEU'); Writeln('-So phieu hop le: ',n1,' phieu'); For j:=1 To ucv Do Writeln('-So phieu chon ung cu vien thu: ',j,' la ',Tke[j]); Writeln; Write(' Bam phim <Enter> de ket thuc '); Readln End.
195/Kiểm tra bàn phím:
Code:
Program KT_phim; Var phim:Char; Begin Writeln('KIEM TRA BAN PHIM'); Writeln('-----------------'); Write('-Bam mot phim: '); Readln(phim); Case phim Of 'A'..'Z','a'..'z' :Writeln('+Ban vua bam mot phim ky tu'); '0'..'9' :Writeln('+Ban vua bam mot phim ky so'); '+','-','*','/' :Writeln('+Ban vua bam mot phim toan tu so hoc'); Else Writeln('+Ban vua bam mot phim dac biet'); End; Writeln; Writeln(' Bam phim <Enter> de ket thuc'); Readln End.
196/Kiểm tra ngày hợp lệ:
Code:
Program Kiem_tra_ngay; TYPE ngay=1..31; thang=1..12; Var d:ngay; m:thang; y:Word; (*--------------------*) FUNCTION Nhuan(Nam:Word):Boolean; Begin If nam Mod 100 = 0 Then Nhuan:=(Nam Mod 400)=0 Else Nhuan:=(Nam Mod 4)=0; End; (*--------------------*) FUNCTION So_ngay(d:Ngay; m:Thang; Y:Word): Boolean; Var t1,t2,t3:Boolean; Begin t1:=(d=30) And (m=2); t2:=(d=29) And (m=2) And (Not Nhuan(y)); t3:=(d=31) And (m in [2,4,6,9,11]); If t1 Or t2 Or t3 Then so_ngay:=False Else so_ngay:=True; End; (*--------------------*) FUNCTION Ket_thuc:Boolean; Var ch:Char; Begin Write('-Tiep tuc nua khong ? (c/k) '); Readln(ch); Ket_thuc:=Upcase(ch)='K'; End; (*--------------------*) BEGIN Writeln('KIEM TRA NGAY HOP LE ?'); Writeln(' Su dung ham'); Writeln('----------------------'); Repeat Write('-Ngay: '); Readln(d); Write('-Thang: '); Readln(m); Write('-Nam: '); Readln(y); If so_ngay(d,m,y) Then Writeln('*Ngay ',d:2,' Thang ',m:2,' Nam ',y:4,' la hop le') Else Writeln('*Ngay ',d:2,' Thang ',m:2,' Nam ',y:4,' khong hop le') Until Ket_thuc; END.
197/Kiểm tra số nhập vào:
Code:
Program Kiem_tra_so; Label tt; Var St:String; So:Real; Dung:Integer; tiep:Char; Begin Repeat Writeln('KIEM TRA SO NHAP VAO'); Writeln(' -----------'); tt:Write('-Nhap mot so: '); Readln(St); Val(St,So,Dung); If Dung = 0 Then Writeln(' +Ban da nhap mot so: ',So:8:2) Else Writeln(' +Khong phai so, xin nhap lai:'); Until Dung = 0; Writeln; Write('-Co tiep tuc khong (C/K) '); Readln(Tiep); If UpCase(Tiep)='C' Then Goto tt; End.
198/Kiểm tra ước của 2 số nguyên:
Code:
Program Uoc_so; Var so1,so2,tam:Integer; Begin Writeln('KIEM TRA UOC SO CUA 2 SO NGUYEN'); Writeln('-------------------------------'); Write('-So thu nhat= '); Readln(so1); Write('-So thu hai = '); Readln(so2); If so1 < so2 Then Begin tam:=so1; so1:=so2; so2:=tam; End; If (so1 Mod so2) = 0 Then Writeln('+So: ',so2:4,' la uoc so cua so: ',so1:4) Else Begin Writeln('+Hai so: ',so1:4,' va so ',so2:4); Writeln(' Khong phai la uoc so cua nhau'); End; Writeln; Writeln(' Bam phim <Enter> de ket thuc'); Readln End.
199/Kiểm tra ngày:
Code:
Program kt_ngay; CONST Ngay = [1..31]; Thang = [1..12]; Th31ngay: Set of byte = [1,3,5,7,8,10,12]; BaoLoi : Array[1..3] Of String[30] =('-Ban nhap sai ngay, thang', '-Thang nay khong co ngay 31','-thang 2 khong co ngay nay'); TYPE NgayThang = RECORD Ng, Th : Byte; Nam : Word; End; VAR Nhatky : NgayThang; Loi : Array[1..3] Of Boolean; i : Byte; Nhuan : Boolean; BEGIN With Nhatky Do Begin Write('-Nhap ngay = '); Readln(Ng); Write('-Nhap thang= '); Readln(Th); Write('-Nhap nam = '); Readln(Nam); Loi[1] := (NOT(Ng In Ngay)) OR (NOT (Th In Thang)); Loi[2] := (Ng = 31) AND (NOT (Th In Th31Ngay)); Nhuan := ((Nam Mod 4) = 0) AND ((Nam Mod 100) <> 0) OR ((Nam Mod 400) = 0); Loi[3] := ((Ng > 29) AND (Th = 2)) OR ((Ng = 29) AND (th = 2) AND (NOT Nhuan)); End; For i := 1 To 3 Do If Loi[i] Then Writeln(BaoLoi[i]); Readln END.
-Các bạn có thể Tải Tất cả các bài trên với File Word Tại:
-Các bạn có thể Tải Tất cả các bài trong thư viện với file .PASTại:
|Ðiều Chỉnh |
|Xếp Bài |
| |![]()
Linear Mode
| |
You
may not post new threads
You
may not post replies
You
may not post attachments
You
may not edit your posts Mở Mở Mở
HTML đang
Tắt | |

Set-Cookie: bblastactivity=0; expires=Mon, 23-Apr-2018 15:47:28 GMT; Max-Age=31536000; path=/

Pragma: private


markdown:
[Extra Tập 17 – Eng Sub – Viet Sub](http://traoluuvui.com/extra-tap-17-eng-sub-viet-sub.html)
91.628 lượt xem
[Extra Tập 16 – Eng Sub – Viet Sub](http://traoluuvui.com/extra-tap-16-eng-sub-viet-sub.html)
75.353 lượt xem
[Extra Tập 15 – Eng Sub – Viet Sub](http://traoluuvui.com/extra-tap-15-eng-sub-viet-sub.html)
81.504 lượt xem
[Extra Tập 14 – Eng Sub – Viet Sub](http://traoluuvui.com/extra-tap-14-eng-sub-viet-sub.html)
79.513 lượt xem
[Extra Tập 13 – Eng Sub – Viet Sub](http://traoluuvui.com/extra-tap-13-eng-sub-viet-sub.html)
87.866 lượt xem
[Extra Tập 12 – Eng Sub – Viet Sub](http://traoluuvui.com/extra-tap-12-eng-sub-viet-sub.html)
104.198 lượt xem
[Extra Tập 11 – Eng Sub – Viet Sub](http://traoluuvui.com/extra-tap-11-eng-sub-viet-sub.html)
91.282 lượt xem
[Extra Tập 1 – Eng Sub – Viet Sub](http://traoluuvui.com/extra-tap-1-eng-sub-viet-sub.html)
372.640 lượt xem
[Extra Tập 10 – Eng Sub – Viet Sub](http://traoluuvui.com/extra-tap-10-eng-sub-viet-sub.html)
128.000 lượt xem
[Extra Tập 9 – Eng Sub – Viet Sub](http://traoluuvui.com/extra-tap-9-eng-sub-viet-sub.html)
147.368 lượt xem
[Extra Tập 8 – Eng Sub – Viet Sub](http://traoluuvui.com/extra-tap-8-eng-sub-viet-sub.html)
100.879 lượt xem
[Extra Tập 7 – Eng Sub – Viet Sub](http://traoluuvui.com/extra-tap-7-eng-sub-viet-sub.html)
112.448 lượt xem
[Extra Tập 6 – Eng Sub – Viet Sub](http://traoluuvui.com/extra-tap-6-eng-sub-viet-sub.html)
139.018 lượt xem
[Extra Tập 5 – Eng Sub – Viet Sub](http://traoluuvui.com/extra-tap-5-eng-sub-viet-sub.html)
142.847 lượt xem
[Extra Tập 3 – Eng Sub – Viet Sub](http://traoluuvui.com/extra-tap-3-eng-sub-viet-sub.html)
157.668 lượt xem
[Extra Tập 2 – Eng Sub – Viet Sub](http://traoluuvui.com/extra-tap-2-eng-sub-viet-sub.html)
193.207 lượt xem
[Extra Tập 4 – Eng Sub – Viet Sub](http://traoluuvui.com/extra-tap-4-eng-sub-viet-sub.html)
41.347 lượt xem
Messages


markdown:
Đến với Trường Phát là đến với Thành Công
Lò nướng bánh mì 5 khay
Máy làm bánh bao tự động
Máy đùn xúc xích
Lò quay vịt bằng than
Bếp chiên khoai tây
Bếp chiên nhúng điện mini
Bạn sẽ không cần băn khoăn chọn lò nướng bánh mì nào, ở đâu tốt nhất. Trường Phát sẽ đem đến dòng sản phẩm nhập khẩu hiệu suất làm việc tốt, ngoài mong đợi.
Không khó để trở thành người tiêu dùng thông minh. Chỉ với kinh nghiệm đơn giản dưới bạn có thể mua được máy làm xúc xích giá tốt với chất lượng hài lòng.
Ưu điểm của lò nướng bánh mì điện 5 khay là an toàn và hiệu quả kinh tế cao. Để mua được sản phẩm với giá ưng ý, đừng bỏ qua thông tin quan trọng dưới đây:
Làm sạch không phải điều duy nhất chúng ta cần quan tâm khi vệ sinh tủ hấp bánh bao. Không nên bỏ qua những nguyên tắc khoa học dưới đây khi vệ sinh tủ hấp.
Hầu hết các khách hàng đều có những thắc về máy đùn xúc xích khi chưa thực sự hiểu về sản phẩm. Bạn có thể tham khảo những thông tin dưới đây.
Chảo chiên công nghiệp, chảo chiên điện - Hàng Việt Nam chất lượng cao là thiết bị chuyên dùng chiên thực phẩm như: chiên chả mực, chiên cá, chiên thịt...
Cấu tạo Chao chien cong nghiep:
- Lòng chảo được lắp đặt con nhiệt
- Hộp bảng điện dùng để điều chỉnh điện
Chảo chiên công nghiệp chiên với số lượng lớn thực phẩm, thời gian chiên nhanh và dễ dàng sử dụng.


markdown: nhân, lúc này tuyệt đại đa số tu sĩ cũng đi Thủy Tinh Cung, trên đường lộ ra vẻ có chút so sánh với mấy ngày hôm trước có chút lạnh thanh."Thiên Cơ Tinh Ngô Tâm Giải nói Bạch Hổ Thất Linh Tinh đoạt Thanh Minh Thượng Hà Đồ, hơn nữa sẽ ở Trân Bảo Diên Tịch trên có sở kế hoạch,, Vũ Tư U,làm sao ngươi nhìn?" Hoa Uyển Ước liếc xéo một cái Hành Giả.Từ cái này Tạo Hóa Bồ Đoàn đi lên Phong Linh Bảng vị thứ nhất sau khi, Ngô Tâm Giải tựu cho rằng kia đại khái là Bạch Hổ Thất Linh Tinh Lôi Linh pháp bảo,hắn gióng trống khua chiêng sáng đi ra sợ là không có hảo ý, liên tưởng đến lúc trước hắn từng chiếm Thanh Minh Thượng Hà Đồ, Ngô Tâm Giải tựu đối vớicác nàng nói Bạch Hổ Thất Linh Tinh đại khái là nghĩ ở Thủy Tinh Long Cung mượn thiên thời địa lợi nhân hoà hưng gió làm diễm "Thiên thời, địa lợi, nhânhòa." Vũ Tư U lẩm bẩm.Thủy Tinh Long Cung có được Thông Thiên Định Hải Châu, loại này nghe nói có thể tự thành không gian pháp bảo, cho dù Hàng Tinh Giả ngọc bội đều khôngthể trốn chạy, nếu là nơi đây đấu tinh, kết quả có thể nghĩ, này vị thiên thời.Vừa bởi vì đây là Tam Quyển Thiên Thư lúc trước Tinh Tướng thăng cấp tinh võ thời cơ tốt nhất, tuyệt đại đa số Hàng Tinh Giả cũng sẽ xuất hiện, trongngày thường hành tung quỷ bí tinh tướng hoá trang lên sân khấu, có thể nói địa lợi.Cuối cùng tam giới chung yến, mỗi người đều có mục đích riêng phải đạt được" Bạch Hổ Giới bảy linh vô cùng có khả năng liên thủ Huyền Minh, Chu Tướcđối phó cường đại nhất Thương Long, tam giới thừa dịp buổi tiệc dễ dàng liên thủ vừa có thể nói là nhân hòa.Ngày này, địa lợi, nhân hòa toàn bộ đến đông đủ, muốn không ai động tâm, Ngô Tâm Giải cũng không tin."Tam giới liên thủ có gì tốt sợ." Vũ Tư U xuy cười một tiếng, nàng đang lo Bạch Hổ Giới tung tích khó khăn mịch có chút phiền phức, nếu là buổi tiệc độngthủ cũng dè đặt lãng phí thời gian.Hoa Uyển Ước cũng biết Thương Long Giới thực lực siêu quần, thật sự khai chiến cũng sẽ không lạc hạ phong, chẳng qua là Thiên Anh Tinh đối với ThanhMinh Thượng Hà Đồ lão đế cảm thấy có chút thú vị, cái này Hóa Tinh Yên Diệt cấp quái vật Bạch Hổ Thất Linh Tinh cũng không biết muốn làm gì. Bất quácuối cùng buổi tiệc Ngô Tâm Giải phải tham gia, vì an toàn khởi kiến hay là nhờ cậy Vũ Tư U cùng Hoa Uyển Ước ở Thủy Tinh Long Cung chung quanh nhìn,có thể hay không tìm được Bạch Hổ Thất Linh Tinh tung tích."Nói hơn có một vấn đề vẫn muốn thỉnh giáo Tư U." Hoa Uyển Ước trầm ngâm."Hỏi liền đi.""Thiên Hùng Tinh Lâm Xung cùng Thiên Thương Tinh Võ Tòng các thế hệ quan hệ không tệ, thứ tám đời đấu tinh lại càng đạt đến cực hạn, sáng tạo trướcnay chưa có Tinh Tướng truyền kỳ, hơn rất chưa rõ, " "Vũ Tư U quơ cắt đứt Hoa Uyển Ước vấn đề" cái vấn đề này cũng không biết ở Vũ Tư U đáy lòng tự hỏi quá nhiều lần, lưu loát hồi đáp: "Thiếp thân biết ý củangươi là, rất kỳ quái thiếp thân cùng Anh Mi tại sao lại phụng dưỡng cùng phu quân."Hoa Uyển Ước ừ.Vũ Tư U cười một tiếng, nghiêng nước nghiêng thành.Thiên Thương Tinh toát ra như vậy không thuộc về Hành Giả ngọt ngào nụ cười, Hoa Uyển Ước biết đã có đáp án."Chẳng qua là Tô Tinh lai lịch không rõ, lớnnhư vậy biến số, các ngươi tựu không cảm thấy kỳ quái sao?"Vũ Tư U đưa mắt nhìn Hoa Uyển Ước một lúc lâu, bỗng nhiên thản nhiên cười."Hơn nói sai rồi?""Không, chẳng qua là thiếp thân đang nhớ lại chuyện lúc trước.""???""Thiếp thân đã từng như vậy chất vấn Anh Mi" nhưng kết quả cùng phu quân chung đụng xuống tới, nhưng cũng là nghĩ phó thang đạo hỏa bảo vệ người namnhân này đi." Vũ Tư U thất thần" hồi tưởng trải qua đủ loại, rõ mồn một trước mắt, những thứ kia kỳ lạ mập mờ kinh nghiệm để Vũ Tư U lần đầu tiên có mộtloại chân thực tồn tại cảm giác, Lương Sơn đại lục đều nói Tinh Tướng cùng Hàng Tinh Giả ký hạ khế ước thực hiện chiến đấu, nhìn như kiệt ngạo bấtphàm, kì thực bất quá là Nữ Lương Sơn trò chơi khôi lỗi.Chiến đấu, chiến đấu, chiến đấu.Đây cũng là Nữ Lương Sơn 108 tinh thiếu nữ số mệnh.Nhưng là Vũ Tư U có thể lớn tiếng cười lạnh" xuy chi dĩ tị."Uyển Ước, sau này tựu cho chúng ta cùng nhau hiệp trợ phu quân sao." Vũ Tư U phát ra từ nội tâm đích thực thành.Hoa Uyển Ước sửng sốt" kia tuyệt mỹ lãnh diễm dung nhan mỉm cười làm cho nàng không tự chủ được gật đầu, có thể nhưng ngay sau đó vừa nghĩ, namnhân này từng đem kia dơ bẩn đồ xuất tại trên mặt của nàng, nàng còn muốn ủy thân nam nhân này thật sự là đáng xấu hổ, nghiêm nghị nghiêm nghị nói:"Hơn có giúp Tô Tinh trèo lên đỉnh Nữ Lương Sơn, nhưng là trước kia hắn phải bước qua hơn thi thể mới được.""Thật đến một ngày như vậy" phu quân có đánh bại cưỡng chế cùng ngươi ký hạ khế ước." Vũ Tư U hời hợt."Hơn thà làm ngọc vỡ." Hoa Uyển Ước kiên quyết.Vũ Tư U càng cảm thấy được nàng trong lòng Hư, "Kia Anh Mi chờ tỷ muội tâm tư đi?""Này...", Hoa Uyển Ước nghẹn lời, thấy Vũ Tư U trong mắt giảo hoạt, đỏ mặt lên, nói: "Vũ Tư U, ngươi luôn mồm đem Tô Tinh xưng là phu quân, nhưngvẫn không có ký hạ khế ước, đây không phải là thật kỳ quái sao? Nhưng thật ra ngươi cũng là không quá tin tưởng, không phải sao?"Trong lúc bất chợt, một cổ ngưng trọng sát khí từ Vũ Tư U chân mày ra" Hoa Uyển Ước lập tức cảm thấy tứ chi mát lạnh" trong lòng cả kinh biết mình nóisai rồi nói."Thiếp thân có cùng phu quân ký hạ khế ước" chẳng qua là còn chưa tới lúc" Vũ Tư U thu hồi lạnh như băng sát khí, thản nhiên nói: "Phu quân đánh vỡ quytắc" tương lai đấu tinh tất nhiên nguy cơ tứ phía, hiện tại ký hạ khế ước đối với phu quân không có chỗ ích lợi."Thì ra là là thế này phải không?!Hoa Uyển Ước như có điều suy nghĩ, thấy đại danh đỉnh đỉnh lãnh diễm Hành Giả như vậy làm nam nhân suy nghĩ, nàng quả nhiên là rơi vào tay giặc vô cùngsâu đi.Đang nghĩ ngợi, bỗng nhiên Thủy Tinh Long Cung truyền đến hỏa vũ Bàn tiếng nổ mạnh.Vũ Tư U cùng Hoa Uyển Ước liếc mắt nhìn nhau" không chút do dự hướng kia chạy vội đi, không có bao lâu" ngừng lại" phương xa trăm mét có hơn, mộttòa đền bên trên, một cô thiếu nữ ngưỡng gió mà đứng, nàng mặc rộng thùng thình áo bào trắng, tóc dài giống như hồ nước hải tảo khẽ tản ra, làm chongười ta một loại an bình không tranh cảm giác.Thiếu nữ nhắm song đồng, bộ dạng phục tùng.Vũ Tư U, Hoa Uyển Ước võ tướng bản năng lập tức cảm giác được thiếu nữ là không thiện.Ít hơn nữa nữ phía sau, ẩn hiện cầu vồng vàng kim quay cuồng, các loại chú văn phi đế "Hai vị kính xin dừng bước." Thiếu nữ trầm tư.Thấy Thủy Tinh Cung nổi lên dị tượng, Vũ Tư U lạnh lùng nói: "Muội muội nhưng là phải làm Bạch Hổ Giới Yêu Tộc trợ Trụ vi ngược?""Tỷ tỷ chấp niệm tại yêu mặt ngoài cũng là kém một chiêu.", Tử Câm nhẹ nhàng nói, từng chữ rất nhẹ."Nói thật hay, mặt ngoài trước không đáng giá nhắc tới, hay là vũ lực nói chuyện sao.", Vũ Tư U nắm Quý Sương Yêu Liên, Bạch Huyền Lân Hổ cũng lao ra.Hoa Uyển Ước gật đầu, Thiên Địa Nhật Nguyệt Cung lấy ra, con mắt như chim ưng sắc bén.Tử Câm bất vi sở động.Vũ Tư U không nói nhảm, thân hình rút lên, giống như tiến bắn ra, dọc theo đường đi liên hoa phấn toái, đương nhiên đó là hoàng giai "Thập Lý Yêu LiênHàng Long "Tử Câm hơi nghiêng người" trong tay một thanh vô hình chi binh đở Vũ Tư U nhanh chóng tuyệt luân một chém, cô bé thuận thế một gẩy, nhìn không thấyđao mang khua lên rét lạnh khí lưu lướt qua Vũ Tư U trước mặt bàng, cát ra một đạo huyết tuyến."Thú vị." Vũ Tư U cười lạnh, trong tay song đầu kiếm từ thượng mà đều đánh ra một đạo ánh sáng ngọc hoa quang.Tử Câm đi theo đón đở, nhưng là dữ dội lên lực lượng sau này rút lui mười mấy bước."Võ Tòng!!", Tử Câm giọng nói mỉm cười nói ngưng."Uống."Vũ Tư U khinh thường cười một tiếng, kiếm Nhược tật phong, chém xuống" vô luận ở công kích cùng tốc độ thượng" Vũ Tư U cũng không có bất kỳ nương Bạn đang đọc chuyện tại TruyệnFULL.vntay, Tử Câm tiếp tục lui về phía sau, nhìn như bị chế trụ, trong tay kia đem Vô Hình đao thừa nhận Vũ Tư U mỗi một lần tiến công mà dũ phát lộ ra vẻ trầmtrọng.Sấm sét lóe sáng.Tử Câm đột nhiên quay về ngăn, sát khí ở Vũ Tư U trên cổ bị đọng lại, Vũ Tư U ai thân, nhanh chóng lấn đến gần, tiên chân quét tới Tử Câm eo ếch.Run sợ Liệt chân gió để cô bé quần áo phi mở, Tử Câm hướng giữa không trung một tránh, trong lúc bất chợt, nghe được một tiếng dã thú rít gào, trong hưkhông chạy ra khỏi một đạo diệt sạch giương nanh múa vuốt hướng phía Vũ Tư U chộp tới.Quý Sương Yêu Liên giết tới.Hai người đối chiến mười mấy hiệp.Một đạo mủi tên nhọn từ bên cạnh bay vút tới.Hoa Uyển Ước cũng không còn nhàn rỗi, ánh mắt trở nên dũ phát thâm thúy bén nhọn, đem cung lôi ra đầy tháng.Tử Câm ánh mắt vừa động, trong nháy mắt biến mất ở tại Vũ Tư U bên cạnh, tốc độ xuất kỳ Khoái, nàng buông tha cho Vũ Tư U, ngược lại hướng HoaUyển Ước giết tới đây."Cẩn thận!", Vũ Tư U vừa quát.Rống!Thảm màu xanh tinh lân thú đánh tới kéo Vũ Tư U tốc độ.Hoa Uyển Ước ánh mắt dũ phát rõ ràng, phảng phất xuyên thủng vạn dặm, ở trong đồng tử, nàng nhìn thấy mấy người đang ở một cái đền nóc nhà bày ra kỳlạ trận pháp, bảy đạo màu sắc không đồng nhất quang mang nhảy lên tại trong hư không tạo thành kỳ diệu văn tự, những thứ này văn tự thật giống như mủitên nhọn đang liên tục không ngừng hội tụ một tờ bức họa bên trên.Hoa Uyển Ước cảm thấy không đúng, đã chuẩn bị đi trước sử xuất Vạn Lý Sát Thần Tiễn.Ngay khi nàng Ngưng Khí lúc, sát khí rơi xuống tới, nghe được Vũ Tư U kia thanh cẩn thận, Hoa Uyển Ước không cần suy nghĩ buông tha cho Vạn Lý SátThần Tiễn, ngược lại hướng phía kia đạo sát khí một mủi tên bắn ra.Phá.Không khí đánh văng ra.Một đạo mủi tên gió lốc mà lên vào Tử Câm bộ ngực.Tử Câm thân ảnh biến mất.Cái bóng???Hoa Uyển Ước cả kinh, chỉ nhìn thấy đối phương chợt lóe, trong nháy mắt đến rồi trước mặt" tay hư không cùng nhau" gào thét đao phong rót vào tai, HoaUyển Ước bị một đao chém lui, Thiên Anh Tinh vừa quát, hai tay Thiên Địa Nhật Nguyệt Cung hóa thành hồng ngọc vỡ ra tinh đoản thương chạm mặt chốnglại.Đoản thương chiếc ở Tử Câm tiến công, Hoa Uyển Ước lông mày kẻ đen vừa nhíu, theo đối phương binh khí trêu chọc thượng, tựa như địa đâm đột ngột từmặt đất mọc lên.Nhưng là Tử Câm phản ứng để Hoa Uyển Ước đại ra ngoài ý muốn, cô bé không chút hoang mang, nghiêng người tránh ra" tùy theo đao phong gọt thắtlưng, Hoa Uyển Ước lui thân mấy bước" đoản thương giao tiếp, sử xuất hoàng chiêu."Gào thét!!"Thương hóa thành một đạo hồng quang, tiếng huýt gió phóng."Thiên Anh Tinh Hoa Vinh!"Cô bé bả vai bị đâm trúng, chảy ra máu tươi."Tại hạ tên thật Uyển Ước, muội muội không trên báo tên họ?" Hoa Uyển Ước cảm giác được đối phương lợi hại" không dám chậm trễ, đang muốn thừa cơsử xuất Huyền chiêu máu vũ, nhưng vào lúc này dị biến nổi lên, Tử Câm thân hình ở Hoa Uyển Ước trong đồng tử đột nhiên ảm đạm, thật giống như mộtmảnh bóng tối khàn khàn.Tiếp theo Thiên Anh Tinh lập tức cảm thấy cường đại nguy hiểm đập vào mặt mà đến.Hoa Uyển Ước mắt trừng co rụt lại.Tử Câm đã bức đến trước mắt, căn bản không có thấy Tử Câm là như thế nào xuất thủ, chẳng qua là phảng phất tay vừa nhấc" công kích lập tức tựu mấynhanh gấp trăm lần giống như, cái loại nầy đột nhiên xuất hiện sát cơ làm cho người ta xử chí không kịp đề phòng.Hoa Uyển Ước nhất thời bộ ngực mát lạnh, cảm thấy bị nào đó lợi khí xỏ xuyên qua, thân thể thật giống như như diều đứt dây rơi xuống nóc nhà.Chỉ nghe đến đối phương mềm nhẹ thật giống như thôi miên thanh âm vang lên ở bên tai."Tại hạ tên thật Tử Câm!!", chấn động ra đến sát khí để Tử Câm vừa Lưu Hải vung lên" lộ ra cô bé bên màu xanh thai ký trước mặt bàng."Thiên Ám Tinh Thanh Diện Thú Dương Chí!!" Chương trướcChương tiếp Báo lỗi chương Bình luậnBạn có thể dùng phím mũi tên hoặc WASD để lùi/sang chương.Truyện Full - Đọc truyện online, đọc truyện chữ, truyện hay. Website luôn cập nhật những bộ truyện mới thuộc các thể loại đặc sắc như truyện tiên hiệp, truyện kiếm hiệp, hay truyện ngôn tình một cách nhanh nhất. Hỗ trợ mọi thiết bị như di động và máy tính bảng.Contact - ToS - Sitemap ma thien ky tien nghich thieu gia ac ma dung hon toi truyen dam my chua te chi vuong tam sinh tam the thap ly dao hoa linh vu thien ha quan khi dai thieu gia em lay cau doc ton tam gioi quan thuat quan sach quan bang tru tien lac hong ky

Cache-Control: max-age=3600, must-revalidate

Vary: Accept-Encoding,User-Agent

Accept-Ranges: bytes