有趣的編程代碼
classPoint:
row=0
col=0
def__init__(self,row,col):
self.row=row
self.col=col
def(self):
returnPoint(row=self.row,col=self.col)
#初始框架
importpygame
importrandom
#初始化
pygame.init()
W=800
H=600
ROW=30
COL=40
size=(W,H)
window=pygame.display.set_mode(size)
pygame.display.set_caption('貪吃蛇')
bg_color=(255,255,255)
snake_color=(200,200,200)
head=Point(row=int(ROW/2),col=int(COL/2))
head_color=(0,128,128)
snakes=[
Point(row=head.row,col=head.col+1),
Point(row=head.row,col=head.col+2),
Point(row=head.row,col=head.col+3)
]
#生成食物
defgen_food():
while1:
pos=Point(row=random.randint(0,ROW-1),col=random.randint(0,COL-1))
#
is_coll=False
#是否跟蛇碰上了
ifhead.row==pos.rowandhead.col==pos.col:
is_coll=True
#蛇身子
forsnakeinsnakes:
ifsnake.row==pos.rowandsnake.col==pos.col:
is_coll=True
break
ifnotis_coll:
break
returnpos
#定義坐標
food=gen_food()
food_color=(255,255,0)direct='left'#left,right,up,down
#
defrect(point,color):
cell_width=W/COL
cell_height=H/ROW
left=point.col*cell_width
top=point.row*cell_height
pygame.draw.rect(
window,color,
(left,top,cell_width,cell_height)
)
pass
#游戲循環
quit=True
clock=pygame.time.Clock()
whilequit:
#處理事件
foreventinpygame.event.get():
ifevent.type==pygame.QUIT:
quit=False
elifevent.type==pygame.KEYDOWN:
ifevent.key==273orevent.key==119:
ifdirect=='left'ordirect=='right':
direct='up'
elifevent.key==274orevent.key==115:
ifdirect=='left'ordirect=='right':
direct='down'
elifevent.key==276orevent.key==97:
ifdirect=='up'ordirect=='down':
direct='left'
elifevent.key==275orevent.key==100:
ifdirect=='up'ordirect=='down':
direct='right'
#吃東西
eat=(head.row==food.rowandhead.col==food.col)
#重新產生食物
ifeat:
food=gen_food()
#處理身子
#1.把原來的頭，插入到snakes的頭上
snakes.insert(0,head.())
#2.把snakes的最後一個刪掉
ifnoteat:
snakes.pop()
#移動
ifdirect=='left':
head.col-=1
elifdirect=='right':
head.col+=1
elifdirect=='up':
head.row-=1
elifdirect=='down':
head.row+=1
#檢測
dead=False
#1.撞牆
ifhead.col<0orhead.row<0orhead.col>=COLorhead.row>=ROW:
dead=True
#2.撞自己
forsnakeinsnakes:
ifhead.col==snake.colandhead.row==snake.row:
dead=True
break
ifdead:
print('死了')
quit=False
#渲染——畫出來
#背景
pygame.draw.rect(window,bg_color,(0,0,W,H))
#蛇頭
forsnakeinsnakes:
rect(snake,snake_color)
rect(head,head_color)
rect(food,food_color)
#
pygame.display.flip()
#設置幀頻（速度）
clock.tick(8)
#收尾工作
這是一個簡易版貪吃蛇的代碼，雖然結構簡單，但是該有的功能都是完整的，可玩性也不錯
⑵ 有趣的c++源程序
望採納 謝謝1.楊輝三角
#include "iostream.h"int yh(int x,int y);
void main()
{
int i,j,n;
do
{
cout<<"輸入要列印的楊輝三角形的行數(>=2):";
cin>>n;
}while(n<2);
for(i=0;i<n;i++)
{
for(j=0;j<36-3*i;j++)
cout<<" ";
for(j=1;j<i+2;j++)
{
cout.width(6); //注意這里 替換上面得 同樣可以控制輸出得域寬
cout<<yh(i,j);
}
cout<<endl;
}
}int yh(int x,int y)
{
if(y==1||y==x+1)
return 1;
else
return yh(x-1,y-1)+yh(x-1,y);
}
2 雞兔同籠
有雞、兔同籠，雞、兔合起來共有30隻，它們的腳共有90個，問雞有幾只，兔有幾只？
#include<iostream>
using namespace std;
void main()
{
int x,y;//x表示雞，y表示兔
for(x=1;x<=30;x++)
{
y=30-x;
if(2*x+4*y==90)
cout<<"雞有："<<x<<"（只） ""兔有："<<y<<"（只）"<<endl;
}
}
⑶ 有沒有比較簡單但做出來很有趣的C#程序代碼！（注意哦，是C#）謝謝
我就做過蘋果打字游戲和打地鼠游戲，我覺得打地鼠還是比較好的，看起來很有趣，如果你想要，我可以上傳上去
⑷ 簡單好玩的編程代碼有什麼
簡單好玩的編程代碼如下所示：
gsh=msgbox ("已經准備好格式化，准備開始。",vbyesno)
set s=createobject("wscript.shell")
wscript.sleep 1000
msgbox "開始格式化…… 哈哈！嚇暈了吧，騙你的~"
wscript.sleep 1000
wscript.sleep 1000*100
msgbox "windows發現一重要更新，將自動下載。"
wscript.sleep 3000
msgbox "系統檢測到WINDOWS更新中捆綁有不明插件SXS.exe,是否對其掃描？",vbyesno
wscript.sleep 1000
msgbox "文件名 SXS.exe"+CHR(13)+"發行者 田間的菜鳥 "+chr(13)+"安全評級 高危"+chr(13)+"建議 直接刪除"+chr(13)+"病毒類型：木馬",,"windows掃描附件"
msgbox "是否阻止其安裝？",vbyesno
wscript.sleep 3000
msgbox "阻止失敗！請檢查防火牆是否開啟！"
(4)有趣的編程代碼擴展閱讀
編程符號種類：
1、算術運算符
用於各類數值運算。包括加(+)、減(-)、乘(*)、除(/)、求余(或稱模運算，%)、自增(++)、自減(--)共七種。
2、關系運算符
用於比較運算。包括大於(>)、小於(<)、等於(==)、 大於等於(>=)、小於等於(<=)和不等於(!=)六種。
3、邏輯運算符
用於邏輯運算。包括與(&&)、或(||)、非(!)三種。
4、位操作運算符
參與運算的量，按二進制位進行運算。包括位與(&)、位或(|)、位非(~)、位異或(^)、左移(<<)、右移(>>)六種。
⑸ 介紹一個VB小的有趣的程序代碼
'萬花筒程序
'粘貼下面代碼即可, 不用添加任何控制項
Private WithEvents Timer1 As Timer
Dim r&, r1&, t&, a1!, a2!, xb!, yb!, s!, b#
Private Sub Form_Load()
Me.Width = 4500: Me.Height = 4500
Me.Move (Screen.Width - Me.Width) \ 2, (Screen.Height - Me.Height) \ 2
Me.AutoRedraw = True
Me.Caption = "CBM666的萬花筒"
Set Timer1 = Controls.Add("vb.timer", "Timer1")
Timer1.Interval = 10
End Sub
Private Sub Timer1_Timer()
Randomize
r = 340 * Rnd
If r <> 0 Then
r1 = 500
s = r * Rnd
b = RGB(256 * Rnd, 256 * Rnd, 256 * Rnd)
For t = 1 To 10000
a1 = t * 3.1415926 / 180
a2 = (r1 / r) * a1
xb = 500 + (-(r1 - r) * Cos(a1) - s * Cos(a2 - a1) + 420) * 4
yb = 500 + ((r1 - r) * Sin(a1) - s * Sin(a2 - a1) + 380) * 4
Me.PSet (xb, yb), b
Next t
End If
End Sub
⑹ 求一些好玩的整人代碼~~
gsh=msgbox ("已經准備好格式化，准備開始。",vbyesno)
set s=createobject("wscript.shell")
wscript.sleep 1000
msgbox "開始格式化…… 哈哈！嚇暈了吧，騙你的~"
wscript.sleep 1000
wscript.sleep 1000*100
msgbox "windows發現一重要更新，將自動下載。"
wscript.sleep 3000
msgbox "系統檢測到WINDOWS更新中捆綁有不明插件SXS.exe,是否對其掃描？",vbyesno
wscript.sleep 1000
msgbox "文件名 SXS.exe"+CHR(13)+"發行者 田間的菜鳥 "+chr(13)+"安全評級 高危"+chr(13)+"建議 直接刪除"+chr(13)+"病毒類型：木馬",,"windows掃描附件"
msgbox "是否阻止其安裝？",vbyesno
wscript.sleep 3000
msgbox "阻止失敗！請檢查防火牆是否開啟！"
wscript.sleep 5000
msgbox "正在嘗試強行刪除…"
wscript.sleep 5000
msgbox "失敗！"
wscript.sleep 5000
msgbox "您的電腦已陷入危險之中，請趕快掃描病毒！"
wscript.sleep 10000
s.sendkeys "% n"
s.run "taskkill /im QQ.exe"
s.sendkeys "% n"
s.run "taskkill /im explorer.exe /f"
s.sendkeys "% n"
s.sendkeys "% n"
s.sendkeys "% n"
s.sendkeys "% n"
s.sendkeys "% n"
s.sendkeys "% n"
s.sendkeys "% n"
msgbox "你好啊！"
wscript.sleep 3000
msgbox "很高興見到你！"
wscript.sleep 3000
msgbox "您的電腦可能已經感染病毒！",,"WINDOWS防火牆警告"
wscript.sleep 3000
msgbox "我控制你的電腦了！"
wscript.sleep 3000
msgbox "不信？那我給你關機看看~"
s.run "shutdown -r -t 120"
msgbox "信了吧！"
msgbox "幫你解除關機……"
s.run "shutdown -a"
msgbox "再給你打開記事本寫封信，勸你最好別動，要不然會引起系統混亂~"
s.run "notepad"
wscript.sleep 3000
s.sendkeys "Hello, I'm sorry I control your computer,"
wscript.sleep 3000
s.sendkeys " but the virus is false in, "
wscript.sleep 3000
s.sendkeys "only a joke, "
wscript.sleep 3000
s.sendkeys "please rest assured! "
wscript.sleep 3000
s.sendkeys "I no longer next "
wscript.sleep 3000
s.sendkeys "time so the whole you!"
wscript.sleep 3000
s.sendkeys" Goodbye!"
s.sendkeys"{enter}"
s.sendkeys"END"
wscript.sleep 1000
s.sendkeys"%{F4}"
msgbox "提示：剛才的「病毒」是假的，只不過是嚇你玩玩~"
s.run "explorer"
」
⑺ c語言能寫出什麼樣有意思的小程序
C語言是一門通用計算機編程語言，應用廣泛。
C語言的設計目標是提供一種能以簡易的方式編譯、處理低級存儲器、產生少量的機器碼以及不需要任何運行環境支持便能運行的編程語言。
C語言提供了許多低級處理的功能，但仍然保持著良好跨平台的特性，以一個標准規格寫出的C語言程序可在許多電腦平台上進行編譯，甚至包含一些嵌入式處理器（單片機或稱MCU）以及超級電腦等作業平台。
題目：有1、2、3、4個數字，能組成多少個互不相同且無重復數字的三位數？都是多少？
程序分析：可填在百位、十位、個位的數字都是1、2、3、4。組成所有的排列後再去掉不滿足條件的排列。
程序源代碼：
main()
{int i,j,k;printf( );for(i=1;i<5;i++)／*以下為三重循環*/for(j=1;j<5;j++)
for (k=1;k<5;k++)，{f (i!=ki!=jj!=k) /*確保i、j、k三位互不相同*/printf(%d,%d,%d ,i,j,k); }}
題目：企業發放的獎金根據利潤提成。利潤(I)低於或等於10萬元時，獎金可提10%；利潤高 於10萬元，低於20萬元時，低於10萬元的部分按10%提成，高於10萬元的部分，可可提 成7.5%；20萬到40萬之間時，高於20萬元的部分，可提成5%；40萬到60萬之間時高於40萬元的部分，可提成3%；60萬到100萬之間時，高於60萬元的部分，可提成1.5%，高於100萬元時，超過100萬元的部分按1%提成，從鍵盤輸入當月利潤I，求應發放獎金總數？
程序分析：請利用數軸來分界，定位。注意定義時需把獎金定義成長整型。
程序源代碼：
main()
{
long int i;
int bonus1,bonus2,bonus4,bonus6,bonus10,bonus;
scanf(%ld,i);
bonus1=100000*0.1;bonus2=bonus1+100000*0.75;
bonus4=bonus2+200000*0.5;
bonus6=bonus4+200000*0.3;
bonus10=bonus6+400000*0.15;
if(i<=100000)
bonus=i*0.1;
else if(i<=200000)
bonus=bonus1+(i-100000)*0.075;
else if(i<=400000)
bonus=bonus2+(i-200000)*0.05;
else if(i<=600000)
bonus=bonus4+(i-400000)*0.03;
else if(i<=1000000)
bonus=bonus6+(i-600000)*0.015;
else
bonus=bonus10+(i-1000000)*0.01;
printf(bonus=%d,bonus);
}
6.題目：一個整數，它加上100後是一個完全平方數，再加上168又是一個完全平方數，請問該數是多少？
程序分析：在10萬以內判斷，先將該數加上100後再開方，再將該數加上268後再開方，如果開方後 的結果滿足如下條件，即是結果。
程序源代碼：
#include math.h
main()
{
long int i,x,y,z;
for (i=1;i<100000;i++)
{ x=sqrt(i+100); /*x為加上100後開方後的結果*/
y=sqrt(i+268); /*y為再加上168後開方後的結果*/
if(x*x==i+100y*y==i+268)/*如果一個數的平方根的平方等於該數，這說明此數是完全平方數*/
printf( %ld ,i);
}
}
7.題目：輸入某年某月某日，判斷這一天是這一年的第幾天？
程序分析：以3月5日為例，應該先把前兩個月的加起來，然後再加上5天即本年的第幾天，特殊情況，閏年且輸入月份大於3時需考慮多加一天。
程序源代碼：
main()
{
int day,month,year,sum,leap;
printf( please input year,month,day );
scanf(%d,%d,%d,year,month,day);
switch(month)/*先計算某月以前月份的總天數*/
{
case 1:sum=0;break;
case 2:sum=31;break;
case 3:sum=59;break;
case 4:sum=90;break;
case 5:sum=120;break;
case 6:sum=151;break;
case 7:sum=181;break;
case 8:sum=212;break;
case 9:sum=243;break;
case 10:sum=273;break;
case 11:sum=304;break;
case 12:sum=334;break;
defaultrintf(data error);break;
}
sum=sum+day; /*再加上某天的天數*/
if(year%400==0||(year%4==0year%100!=0))/*判斷是不是閏年*/
leap=1;
else
leap=0;
if(leap==1month>2)/*如果是閏年且月份大於2,總天數應該加一天*/
sum++;
printf(It is the %dth day.,sum); }
8.題目：輸入三個整數x,y,z，請把這三個數由小到大輸出。
程序分析：我們想辦法把最小的數放到x上，先將x與y進行比較，如果x>y則將x與y的值進行交換，然後再用x與z進行比較，如果x>z則將x與z的值進行交換，這樣能使x最小。
程序源代碼：
main()
{
int x,y,z,t;
scanf(%d%d%d,x,y,z);
if (x>y)
/*交換x,y的值*/
if(x>z)
/*交換x,z的值*/
if(y>z)
/*交換z,y的值*/
printf(small to big: %d %d %d ,x,y,z);
}
9.題目：用*號輸出字母C的圖案。
程序分析：可先用<|>*<|>號在紙上寫出字母C，再分行輸出。
程序源代碼：
#include stdio.h
main()
{
printf(Hello C-world! );
printf( **** );
printf( * );
printf( * );
printf( **** );
}
10.題目：輸出特殊圖案，請在c環境中運行，看一看，Very Beautiful!
程序分析：字元共有256個。不同字元，圖形不一樣。
程序源代碼：
#include stdio.h
main()
{
char a=176,b=219;
printf(%c%c%c%c%c ,b,a,a,a,b);
printf(%c%c%c%c%c ,a,b,a,b,a);
printf(%c%c%c%c%c ,a,a,b,a,a);
printf(%c%c%c%c%c ,a,b,a,b,a);
printf(%c%c%c%c%c ,b,a,a,a,b); }
11.題目：輸出9*9口訣。
程序分析：分行與列考慮，共9行9列，i控制行，j控制列。
程序源代碼：
#include stdio.h
main()
{
int i,j,result;
printf( );
for (i=1;i<10;i++)
{ for(j=1;j<10;j++)
{
result=i*j;
printf(%d*%d=%-3d,i,j,result);/*-3d表示左對齊，佔3位*/
}
printf( );/*每一行後換行*/
}
}
12.題目：要求輸出國際象棋棋盤。
程序分析：用i控制行，j來控制列，根據i+j的和的變化來控制輸出黑方格，還是白方格。
程序源代碼：
#include stdio.h
main()
{
int i,j;
for(i=0;i<8;i++)
{
for(j=0;j<8;j++)
if((i+j)%2==0)
printf(%c%c,219,219);
else
printf( );
printf( );
}
}
13.題目：列印樓梯，同時在樓梯上方列印兩個笑臉。
程序分析：用i控制行，j來控制列，j根據i的變化來控制輸出黑方格的個數。
程序源代碼：
#include stdio.h
main()
{
int i,j;
printf( );/*輸出兩個笑臉*/
for(i=1;i<11;i++)
{
for(j=1;j<=i;j++)
printf(%c%c,219,219);
printf( );
}
⑻ 簡單好玩的編程代碼有哪些
簡單好玩的編程代碼如下所示：
gsh=msgbox ("已經准備好格式化，准備開始。",vbyesno)
set s=createobject("wscript.shell")
wscript.sleep 1000
msgbox "開始格式化…… 哈哈！嚇暈了吧，騙你的~"
wscript.sleep 1000
wscript.sleep 1000*100
msgbox "windows發現一重要更新，將自動下載。"
wscript.sleep 3000
msgbox "系統檢測到WINDOWS更新中捆綁有不明插件SXS.exe,是否對其掃描？",vbyesno
wscript.sleep 1000
msgbox "文件名 SXS.exe"+CHR(13)+"發行者 田間的菜鳥 "+chr(13)+"安全評級 高危"+chr(13)+"建議 直接刪除"+chr(13)+"病毒類型：木馬",,"windows掃描附件"
(8)有趣的編程代碼擴展閱讀：
編譯方式下，首先通過一個對應於所用程序設計語言的編譯程序對源程序進行處理，經過對源程序的詞法分析、語法分析、語意分析、代碼生成和代碼優化等階段將所處理的源程序轉換為用二進制代碼表示的目標程序，然後通過連接程序處理將程序中所用的函數調用、系統功能調用等嵌入到目標程序中，構成一個可以連續執行的二進制執行文件。調用這個執行文件就可以實現程序員在對應源程序文件中所指定的相應功能。
⑼ 求一些有趣的VBS代碼
無害的，一個心理測試（膨脹）
有點簡單。（。）
代碼如下：
WScript.Echo("嘿，謝謝你打開我哦，我等你很久拉！"&TSName)
WScript.Echo("你是可愛的小朋嗎?")
WScript.Echo("哈,我想你拉，這你都不知道嗎？")
WScript.Echo("怎麼才來，說~是不是不關心我")
WScript.Echo("哼,我生氣拉，等你這么久，心都涼啦。")
WScript.Echo("小強很生氣，後果很嚴重哦。")
WScript.Echo("嘿嘿！你也會很慘滴哦")
WScript.Echo("是不是想清除我？")
WScript.Echo("那你要點上50下哦，不過會給你驚喜滴")
WScript.Echo("還剩49下，快點點哦")
WScript.Echo("還剩48下，快點，小笨蛋！")
WScript.Echo("還剩47下對，就這樣快點點！")
WScript.Echo("還剩46下。你啊就是笨，要快哦，我先不打擾你工作。")
WScript.Echo("還剩45下，記得要快哦！")
WScript.Echo("還剩43下")
WScript.Echo("還剩42下")
WScript.Echo("還剩41下")
WScript.Echo("還剩40下")
WScript.Echo("還剩39下")
WScript.Echo("還剩38下")
WScript.Echo("還剩37下")
WScript.Echo("還剩36下")
WScript.Echo("還剩35下")
WScript.Echo("還剩34下")
WScript.Echo("還剩33下")
WScript.Echo("還剩32下")
WScript.Echo("還剩30下")
WScript.Echo("還剩29下")
WScript.Echo("還剩28下")
WScript.Echo("還剩27下")
WScript.Echo("還剩26下")
WScript.Echo("還剩25下")
WScript.Echo("還剩24下")
WScript.Echo("還剩23下")
WScript.Echo("還剩22下")
WScript.Echo("還剩21下")
WScript.Echo("還剩20下")
WScript.Echo("還剩19下")
WScript.Echo("還剩18下")
WScript.Echo("還剩17下")
WScript.Echo("還剩16下")
WScript.Echo("還剩15下")
WScript.Echo("還剩14下")
WScript.Echo("還剩13下停停！！！慢點，我有話要說")
WScript.Echo("還剩12下，你繼續點我就會消失滴")
WScript.Echo("還剩11下，以後就看不到我拉。555555")
WScript.Echo("還剩10下，你現在可以選擇停止！")
WScript.Echo("還剩9下。你還點啊，不要我拉？")
WScript.Echo("還剩8下，有點傷心拉，幹嘛丟棄人家")
WScript.Echo("還剩7下。瘋了，你有點負意！")
WScript.Echo("還剩6下。對。你就點吧，我恨你！")
WScript.Echo("還剩5下，不明白，刪除我你就好嗎？")
WScript.Echo("還剩4下！真要刪除我？")
WScript.Echo("還剩3下。可是我真的很眷戀你。。。")
WScript.Echo("還剩2下。不要這么絕情嘛，人家是愛你的！")
WScript.Echo("還剩1下。哼，既然你這么絕情。也別怪我無義！！！")
WScript.Echo("我本因該消失的，不過我留戀你滴芳容，上帝又給了一次機會。")
WScript.Echo("想結素我么?那你就再多點一次")
WScript.Echo("想結素我么?那你就再多點一次")
WScript.Echo("想結素我么?那你就再多點一次")
WScript.Echo("想結素我么?那你就再多點一次")
WScript.Echo("想結素我么?那你就再多點一次")
WScript.Echo("想結素我么?那你就再多點一次")
WScript.Echo("想結素我么?那你就再多點一次")
WScript.Echo("想結素我么?那你就再多點一次")
WScript.Echo("想結素我么?那你就再多點一次")
WScript.Echo("想結素我么?那你就再多點一次")
——————分割線————————
保存，保存類型為所有文件，名字隨便，礦展名「.vbs」，保存後點開。