1樓：匿名使用者
？？？？？？？？？？？？？？？？？？？？？？？？？？？？
1、期末班長小q決定將剩餘班費x元錢用於購買若干支鋼筆進行獎勵。商店裡有三種鋼筆，單價分別為6元、5元
2樓：懵懂秋風
用x元整除最便宜鋼筆**4可能得出餘數0、1、2、3，再根據四種餘數情況分別判斷三種筆各有多少支。
pascal 題目
3樓：涐媞犭者
program pyy;
var a,b:integer;
begin
readln(a);
b:=a mod 4;
case b of
0:writeln('6yuan 0 5yuan 0 4yuan',(a div 4));
1:writeln('6yuan 0 5yuan 1 4yuan',((a div 4)-1));
2:writeln('6yuan 1 5yuan 0 4yuan',((a div 4)-1));
3:writeln('6yuan 1 5yuan 1 4yuan',((a div 4)-2));
end;
readln;
end.
4樓：匿名使用者
樓主想要什麼？？
是輸入錢數然後輸出各種型別筆的數量嗎？？
program zw;
var tem,i,k,l:longint;
ans:array[1..3] of longint;
begin
readln(tem);
fillchar(ans,sizeof(ans),0);
k:=tem mod 4;
l:=tem div 4;
ans[3]:=l;
while k>0 do
begin
for i:=2 downto 1 do
if k>=i then
begin
inc(ans[i]);
dec(k,i);
end;
end;
for i:=1 to 3 do
write(ans[i],' ');
writeln;
end.
買儘量多的鋼筆
5樓：匿名使用者
…………（開頭和讀取輸入省去）
n1=[輸入的**]/6;
n2=[輸入的**]/5;
n3=[輸入的**]/4;
bool f=false;
for (i=1;i<=n1;i++)
for (j=1;j<=n2;j++)
for (k=1;k<=n3;k++)
}if (!f)
……自己結尾一下吧
以上用的是窮舉法的一種演算法，自己去補充輸入輸出之類的**吧。
6樓：用啥當使用者名稱
靠，我學vb.......
幫不了你了
7樓：藍天‖白雲
題我都沒看懂+_+
還是拿我的2分吧。。
制定買筆方案 c++
8樓：匿名使用者
個人覺得這道題目沒必要用迴圈，先用x去%4，餘數是1，就買x/4-1個4元筆加一個5元，餘數是2就買x/4-1個四元加一個6元，餘數是3，就買x/4-2個4元，1個5元1個6元.
9樓：匿名使用者
你的演算法，只要是滿足si*4+wu*5+liu*6==x的結果，都會打出來，但是題目要求儘可能多買4元的筆。因此你應該這樣考慮：先假設全買4元的，然後慢慢扣除，分到5元的和6元的筆上，當扣到剛好滿足si*4+wu*5+liu*6==x的，這才是正確答案
10樓：匿名使用者
這個時間空間限制直接暴力求解啊...設4元x個，5元y個，6元z個int total; // 總的
int a, b, c; //最後結果
int x, y, z; // 臨時結果
int max = -1;
for (x=0; x<=25; x++) // 修改的地方: 這裡再加上對總筆數的判定，考慮總筆數最大。}}
}}最後輸出 a b c就可以了啊...這樣找到的必然是4元最多的。
pascal問題求解
11樓：
只數 n=x div 4;
x mod 4 =0,1,2,3
0元 全4元的
1元 一隻5元的
2一隻元6元
3元一隻5元的,一隻元6元，4元的=n-2，
程式在下面，錢太少會有1~3元剩餘的！
7元有1元剩餘，3~1元,買不起鋼筆全是剩餘的!
program pen_x;
var n4,n5,n6,x:integer;
begin
realn(x)
n4:=x div 4;
if n4=0 then writeln("$4 :",0,",$5 :",0,"$6 :",0)
else begin
case x mod 4 of
0:n5:=0;n6:=0;
1:n5:=1;dec(n4);n6=0;
2:n5=0;n6:=1;dec(n4);
3:if n4>=2 then begin
n5:=1;n6:=1;dec(n4,2);
endelse
begin
n5:=0;n6:=1;dec(n4);
end;
end;
writeln("$4 :",n4,",$5 :",n5,"$6 :",n6)；
end;
end.
12樓：匿名使用者
已試過，望採納，不懂請追問，謝謝：）
program gangbi;
varx,a,b,c:integer;
begin
writeln('x=');
readln(x);
if x mod 4=0 then
begin
a:=0;
b:=0;
c:=x div 4;
end;
if x mod 4=1 then
begin
a:=0;
b:=1;
c:=x div 4-1;
end;
if x mod 4=2 then
begin
a:=1;
b:=0;
c:=x div 4-1;
end;
if x mod 4=3 then
begin
a:=1;
b:=1;
c:=x div 4-2;
end;
writeln('a=',a);
writeln('b=',b);
writeln('c=',c);
end.
附圖，有圖有真相：
13樓：匿名使用者
首先如果剩餘的錢大於11，就去不停買4元的，買到小於等於11元為止
如果剩餘的錢小於等於11，自己打個表把每種情況列出來就好了
因為11元是最大的不能買4元筆的價值
14樓：匿名使用者
貪心加搜尋？
問題聯盟吧歡迎您！
幫我把這個程式補充完整。
15樓：百度使用者
vara,b,c:integer;
x,y:integer;
begin
readln(x);
c:=x div 4;
y:=( );
case y of
0 :begin a:=0;b:=0;end;
1 :begin a:=0;b:=1;c:=( );
2 :begin a:=( );b:=0;c:c-1;end;
3 :begin a:=1;b:=( );c:=c-2;end;
end;
writeln('a=',a,' b=',b, 'c=,c)end.
有知道電影《導盲犬小Q》裡的小Q是什麼品種嗎
導盲犬是工作犬的一種，其實有許多的狗種可以訓練成導盲犬，不過最常見的品種為拉不 拉多 獵犬 德國狼犬 貴賓犬 不是臺灣常見的迷你品啦 或是有計劃育種而交配的，如導盲犬ohara即為 拉不拉多。導盲犬的 絕大多數為導盲犬學校出生，有優良血統的幼犬，這並非虛榮喔，而是因為他 們是工作犬，為人類安全及訓練...
問什麼決定了命運？拜託各位了3Q
不同的人總是面臨相同的環境，然而不同的人卻有不同的命運。有一種說法，叫 性格決定命運 意思是說，在同樣的環境下，人的特性不同，決定了人的命運不同。常昊因為 缺乏決斷力 東亞 評價 而第六次無緣世界冠軍。棋界說得最多的，就是 性格決定命運 其實，性格決定命運 這個道理，對企業和國家也適用。同樣在資訊革...
我是初中的班花可是我們班長是學校的小惡霸他說讓我做他女朋友不做的話散播我謠言 該怎麼辦
主動和家長和老師交流溝通。初中.笑.女朋友?明擺著他想要的是什麼.惡霸?初中的叫惡霸?一巴掌就了結了.隨他說吧，是我就不怕了！我最討厭別人要挾我的！最怕他報復你，告訴家長吧，還有老師！不過這樣更怕他報復你！反正你可要保護自己！我也想不出什麼好辦法！但一定要告訴你家長 讓他散去，謠言永遠是謠言，當謠言...