母雞學會編程

A. PASCAL璇璦緙栫▼錛氫竴涓鐐婁簨鍛樹笂琛楅噰璐錛岀敤500鍏冧拱浜90鍙楦★紝鍏朵腑姣嶉浮涓鍙15鍏冿紝鍏

Rem PASCAL璇璦緙栫▼錛氫竴涓鐐婁簨鍛樹笂琛楅噰璐錛岀敤500鍏冧拱浜90鍙楦★紝鍏朵腑姣嶉浮涓鍙15鍏冿紝鍏
Rem x=15 y=20
Rem 鍥犱負鎴戜笉浼歅ASCAL鏁呯敤vb緙栫殑,鎴戝彧鏄璇存槑榪欑嶆柟娉
Private Sub Command1_Click()
x = 15 '榪欎釜鏄姣嶉浮鐨勫崟浠
y = 5 '榪欎釜鏄鍏楦＄殑鍗曚環 鎴戣＄畻榪囦簡榪欏彧鏈変簲鎵嶇﹀悎
For i = 1 To 90 '90涓哄崟縐嶉浮鐨勬渶澶у
For j = 1 To 90 '90涓哄崟縐嶉浮鐨勬渶澶у
If i * x + j * y = 500 And i + j = 90 Then
Rem 濡傛灉i涔榵鍔爅涔榶絳変簬500鍜宨鍔爅絳90
ss = ss & "緇撴灉:" & vbCrLf '鍔犲叆緇撴灉
ss = ss & " 鍏楦" & i & "鍙" & " -> 鍏辯敤" & i * x & "鏃" & vbCrLf & " 姣嶉浮" & j & "鍙" & " -> 鍏辯敤" & j * y & "鏃" & vbCrLf
Exit For
End If
Next
Next
If ss <> "" Then MsgBox ss
End Sub

B. c語言編程:一隻老母雞一天下一個蛋,蛋一天變小雞,小雞一天後變老母雞,一百天後有多少雞和蛋後

#include<stdio.h>

int main()

{ long long i,e=0,c=0,h=1,t;

for(i=1; i<101; i++)

{ t=h;

h+=c;

c=e;

e=t;

}

printf("100天後： 蛋=%lld 小雞=%lld 母雞=%lld ",e,c,h);

return 0;

}

C. 編程 c語言100元買100隻雞,公雞五元錢一隻,母雞三元錢一隻,小雞一元錢三

#include<stdio.h>
intmain()
{
intgj,mj,xj;//公雞,母雞,小雞
for(gj=1;gj<=20;gj++)//公雞5塊錢一隻,100塊最多買20隻
for(mj=1;mj<=33;mj++)//同理
for(xj=1;xj<=300;xj+=3)//一塊錢3隻,每次增量為3
if((gj+mj+xj==100)&&(gj*5+mj*3+xj/3<=100))//總量為100隻雞,且價格要在100塊以內
printf("公雞%d只,母雞%d只,小雞%d只
",gj,mj,xj);
return0;
}

D. c語言編程:一隻老母雞一天下一個蛋,蛋一天變小雞,小雞一天後變母雞,一百天後有多少雞和蛋

計算機模擬這個過程，就是一個遞推公式。
int n = 100; // days

int hen = 1 ; //開始1隻雞
int egg = 0; // 0個蛋
int chick = 0 ; // 0隻小雞
for(int i=1;i<n;i++){

int tmp = chick;

chick = egg; // 小雞由前一次的蛋孵化

egg = hen; //前一次的雞下蛋
hen += tmp；//以前的雞 和 小雞成長的雞 相加

}
printf("%d,%d,%d",hen,egg,chick);

E. c語言編程題：公雞一隻5元，母雞一隻3元，小雞3隻一元，求100元可以買幾只雞

#include <stdio.h>
#include <stdlib.h>
#include <time.h>

main( )
{
int cocks=0,hens,chicks=0;

while(cocks<20)
{hens=0;
while(hens<34)
{
if(5.0*cocks+3.0*hens+chicks/3.0==100)
printf("cocks=%d,hens=%d,chicks=%d \n",cocks,hens,chicks);
hens=hens+1;
chicks++;
}
cocks=cocks+1;
}
}