Trang ChínhPosted Sun Oct 18, 2015 9:00 am
Viết 1 chương trình vẽ 1 bầu trời đầy sao nhấp nháy
CHÚ Ý : Các thành viên tham gia Diễn đàn Trung học Phổ Thông cần đọc kĩ cách đặt tiêu đề,cách gõ $\LaTeX$ đúng quy định.
Diễn đàn Trung học Phổ Thông
Lập trình Pascal
Thông điệp (Trang 1 trong tổng số 1 trang)
#1
mabelpines
#2
Bờ|☼|Lâu
Posted Sun Oct 18, 2015 9:52 am
T không học về đồ hoạ... mabelpines đã viết:Viết 1 chương trình vẽ 1 bầu trời đầy sao nhấp nháy 
, Nhưng mà vẫn biết 1 ít
uses crt,graph;
var:graphDriver,graphMode:integer;
begin
initGraph(graphDriver,graphMode,'c:\bg\bgi');
if GraphResult<>0 then exit;
randomize;
while not keypressed do
putpixel(random(getMaxX)*25,Random(getMaxY)*25,random(20));
closeGraph;
end.
P/S: vì yêu cầu là 1 bầu trời đầy sao nhấp nháy nên đoạn
putpixel(random(getMaxX)*25,Random(getMaxY)*25,random(20));
có thể sửa theo sở thích(VD: Làm nhiều sao hơn, nhấp nháy nhiều hơn..)
Được sửa bởi BờLâu ngày Sun Oct 25, 2015 10:32 am; sửa lần 2.
#3
mabelpines
Posted Sun Oct 18, 2015 3:21 pm
Bạn ơi sao mình chạy thì nó chỉ đen màn hình rồi trở lại nhỉBờLâu đã viết:
T không học về đồ hoạ... mabelpines đã viết:Viết 1 chương trình vẽ 1 bầu trời đầy sao nhấp nháy , Nhưng mà vẫn biết 1 ít
Code:
uses crt,graph;
var:graphDriver,graphMode:integer;
begin
initGraph(graphDriver,graphMode,'c:\bg\bgi');
if GraphResult<>0 then exit;
randomize;
while not keypressed do
putpixel(random(getMaxX)*25,Random(getMaxY)*25,random(20));
closeGraph;
end.
P/S: vì yêu cầu là 1 bầu trời đầy sao nhấp nháy nên đoạn
putpixel(random(getMaxX)*25,Random(getMaxY)*25,random(20));
có thể sửa theo sở thích(VD: Làm nhiều sao hơn, nhấp nháy nhiều hơn..)
#4
Bờ|☼|Lâu
Posted Sun Oct 18, 2015 4:32 pm
Tớ vẫn chạy được mà.mabelpines đã viết:Bạn ơi sao mình chạy thì nó chỉ đen màn hình rồi trở lại nhỉ
Kiểu này này... :arrow: :arrow: :arrow: 
#5
mabelpines
Posted Sun Oct 18, 2015 8:35 pm
buồn thật vẫn không đượcBờLâu đã viết:
Tớ vẫn chạy được mà.mabelpines đã viết:Bạn ơi sao mình chạy thì nó chỉ đen màn hình rồi trở lại nhỉ
Kiểu này này... :arrow: :arrow: :arrow:
#6
Sponsored content
Thông điệp (Trang 1 trong tổng số 1 trang)
Similar topics
» Tài liệu về Phương Trình và Bất Phương Trình ôn thi ĐH
» TOPIC về phương trình và hệ phương trình
» Giải phương trình,hệ phương trình 1 $\left\{\begin{matrix} \frac{1}{\sqrt{x}}+\frac{y}{x}=\frac{2\sqrt{x}}{y}+2& & \\ y(\sqrt{x^2+1}-1)=\sqrt{3x^2+3}& & \end{matrix}\right. $
» Giải hệ phương trình
» Về Trình Soạn Thảo $\LaTeX$
» TOPIC về phương trình và hệ phương trình
» Giải phương trình,hệ phương trình 1 $\left\{\begin{matrix} \frac{1}{\sqrt{x}}+\frac{y}{x}=\frac{2\sqrt{x}}{y}+2& & \\ y(\sqrt{x^2+1}-1)=\sqrt{3x^2+3}& & \end{matrix}\right. $
» Giải hệ phương trình
» Về Trình Soạn Thảo $\LaTeX$
|
|
|
Most active topics
Latest topics
FACEBOOK
- Total Posts:
- Total Members:
- Newest Member:
- Most Online: Số người truy cập cùng lúc nhiều nhất là 61 người, vào ngày Sat Jul 29, 2017 12:27 pm
Hiện có 0 người đang truy cập Diễn Đàn, gồm: 0 Thành viên, 0 Thành viên ẩn danh và 0 Khách viếng thăm
Đang truy cập Diễn Đàn này: Không
