free pascal程式設計選人 小組共五人,分別為A,B

時間 2021-05-07 20:01:38

1樓:匿名使用者

var a,b,c,d,e:boolean;

n:byte;

begin

for a:=false to true dofor b:=false to true dofor c:

=false to true dofor d:=false to true dofor e:=false to true dobegin

n:=0;

if not (a and c) thenif b or c then

if (c and (d xor e)) or not c thenif not ((b and c) and d) thenif (b and not (d and e)) or not b then

begin

if a then inc(n);

if b then inc(n);

if c then inc(n);

if d then inc(n);

if e then inc(n);

if n=3 then

writeln(a,' ',b,' ',c,' ',d,' ',e);

end;

end;

end.

程式執行結果:(true 表示去的人)

38顆糖每個人分不同,a比b多3顆,c比d多3顆,e有多少顆

2樓:我的09建環

解答:答案是e有10顆糖。首先根據題意可知2b+2d=32-e,則e肯定是個偶數;接下來可使用假設法進行解答,可假設b的數量是不變的

由題可假設背b=5,則a=8,然後逐漸假設d的值(1)假設d=6,則c=9,e=10;

(2)假設d=7,則c=10,e=8,有兩個人一樣多不符合提議;

(3)假設d=8,則c=11,e=6,有兩個人一樣多不符合提議;

上述三次假設已將將所有可能出現的情況考慮進去了沒必要在繼續假設了,因此e=10

3樓:修樂荷

10顆精 銳

4樓:匿名使用者

9.6.8.5.10

用c語言求從a、b、c、d、e中選3個人出差,求出所有方案,每個方案佔一

5樓:匿名使用者

#include

void main()

;for(i=0;i<=3;i++)

for(j=i+1;j<=4;j++)

for(k=j+1;k<=5;k++)

printf("%c、%c、%c出差\n",i+65,j+65,k+65);

}執行結果:

甲乙丙丁是一個小組的成員,他們要合作完成a、b、c、d四項工作。已知能做a工作

6樓:幹柿鬼鮫

問題:安排甲、bai

乙、du丙、丁做a、b、zhic、d四項工作.已知能做daoa工作的只有甲和內

乙,丁不會做b工作,那麼共容有______種不同的工作安排方法.解:因為能做a工作的只有甲,乙,丁不會做b工作,那麼如果安排甲做a工作,就有4種安排方法:

1.甲--a、乙--b、丁--c、丙--d;

2.甲--a、乙--b、丁--d、丙--c;

3.甲--a、乙--c、丁--d、丙--b;

4.甲--a、乙--d、丁--c、丙--b;

安排乙做a工作,同樣有4種方法,所以一共有8種方法,故答案為:8.

free pascal 高手進來看看..幫忙

7樓:琉璃夢蝶愛芒果

第三題列印什麼圖形?

var i:integer;

begin

randomize

repeat

i:=1+random(100);

until i=50;

writeln(i);

end.

vari,s:longint;

begin

for i:=1 to 1000 do

if i mod 15=0 then s:=s+i;

writeln(s);

end.

8樓:匿名使用者

nan!!!!!想想

200萬的任務,5個人銷售,平攤為一人40萬,a完成30萬,b完成5萬,c完成15萬,d完成20萬

9樓:xy快樂鳥

30+5+15+20+8=78(萬) 一共完成88萬

200-78=122(萬) 一共少完成122萬

10000×(40-30)/122=820(元) a應該扣取的

10000×(40-5)/122=2869(元) b應該扣取的

10000×(40-15)/122=2049(元) c應該扣取的

10000×(40-20)/122=1639(元) d應該扣取的

10000×(40-8)/122=2623(元) e應該扣取的

以上是最為合理的。

最不合理的是平均每人扣2000元

if (c!=d) matalb=!c; pascal=matlab裡面的!c是什麼意思,還有pascal是它自帶的變數嗎?

10樓:cs不好玩嗚嗚嗚

這句語句是**來的? != 這個語句應該是c語言的 not,還有pascal的賦值語句應該是:=

正確的應該是這樣:

program y1

varc,d,pascal.matlab:integer;//定義begin

readln(c,d);

if c<>d then matlab:=not c;

//if語句判斷

pascal:=matlab;

end.

應該是這樣,因為我沒有編譯過,所以可能有錯,諒解!

11樓:吃虎之虎

pascal是你定義的變數。

高考新課標數學12道中 是不是有3個a,3個b,3個c,3個d

12樓:行走在迷茫的路

不可能的,我去年高三就研究過,3a,4b,2c,3d類的一般都是,不會平均的,而且11,12題一般是b,d中的一個

有a,b,c三個數學小組,分別有成員5名,4名,3名,其中同時參加a和b小組的成員有3名

13樓:無歸吾歸

條件不明確答案不定···2或者3都有可能···

14樓:匿名使用者

已知條件不夠,難確定標準答案

free pascal如何顯示中文

在快捷方式屬性上找 選項。下面有一個調字符集。調到 gbk 就可以了 糖糖寳寳 1 把要輸的中文打到ultraedit中,然後看內碼,之後在pascal 裡輸內碼。2 就一個字元一個字元輸,比如 writeln bc af ba cf 這裡 表示字元 表示16進位制. 在桌面上建立一個快捷方式。點右...

free pascal輸出如下矩陣

var a array 1.20,1.20 of longint i,j,n,m,k,d,b longint begin readln n d n n for i 1 to n 1 div 2 dobegin for j n i 1 downto i do begina i,j d dec d en...

我的free pascal在哪出錯了

一般都用英文表示的 write 半徑 r,周長 l,面積 s 改成write l l,s s 你似乎把這裡的 忘了.標點符號要用英文輸入法,用漢字輸入法打出的標點就編譯不過。因為漢字輸入法打出的標點符號與英文輸入法的標點符號機內碼不同 好像是兩倍關係 所以pascal無法識別。pascal裡計算圓面...