Diễn đàn Trung học Phổ Thông

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.

You are not connected. Please login or register

 
 

Lập trình Pascal

Thông điệp (Trang 1 trong tổng số 1 trang)

#1

mabelpines

mabelpines
 
Thiếu Úy
Thiếu Úy

Posted 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



Mabel Pines - Gravity Falls
#2

Bờ|☼|Lâu

Bờ|☼|Lâu
 
Tổng Tư Lệnh
Tổng Tư Lệnh

Posted Sun Oct 18, 2015 9:52 am

 

mabelpines đã viết:Viết 1 chương trình vẽ 1 bầu trời đầy sao nhấp nháy
T không học về đồ hoạ... Crying or Very sad, 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..)



Được sửa bởi BờLâu ngày Sun Oct 25, 2015 10:32 am; sửa lần 2.



Lập trình Pascal Ka3El
#3

mabelpines

mabelpines
 
Thiếu Úy
Thiếu Úy

Posted Sun Oct 18, 2015 3:21 pm

 

BờLâu đã viết:
mabelpines đã viết:Viết 1 chương trình vẽ 1 bầu trời đầy sao nhấp nháy
T không học về đồ hoạ... Crying or Very sad, 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..)
Bạn ơi sao mình chạy thì nó chỉ đen màn hình rồi trở lại nhỉ



Mabel Pines - Gravity Falls
#4

Bờ|☼|Lâu

Bờ|☼|Lâu
 
Tổng Tư Lệnh
Tổng Tư Lệnh

Posted Sun Oct 18, 2015 4:32 pm

 

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ỉ
Tớ vẫn chạy được mà.
Kiểu này này... :arrow: :arrow: :arrow:
Lập trình Pascal Chay_b10



Lập trình Pascal Ka3El
#5

mabelpines

mabelpines
 
Thiếu Úy
Thiếu Úy

Posted Sun Oct 18, 2015 8:35 pm

 

BờLâu đã viết:
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ỉ
Tớ vẫn chạy được mà.
Kiểu này này... :arrow: :arrow: :arrow:
Lập trình Pascal Chay_b10
buồn thật vẫn không được



Mabel Pines - Gravity Falls
#6

Sponsored content


 

Posted

 





Thông điệp (Trang 1 trong tổng số 1 trang)


  • 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