关于pascal 急！！！！！！！！！

来源：百度知道 编辑：UC知道 时间：2024/05/28 17:08:05
随机模拟产生20人的月工资（150~600元） 会计发工资时需准备各种面额的钞票各多少张？每人领到的又各是多少张？打印成表格的形式

我直接用百度的输入窗口给你写，debug你自己来
1.产生工资的程序

var
i:shortint;
begin
randomize;
for i:=1 to 20 do write(random(451)+150,' ');
end.

2.你问的不太清楚，我理解的是给定了20人的工资面额，
然后求一种分配方案.
假定面额为 1，5，10，20，50，100

var
i:shortint;
x:longint;
procedure match(x:longint);
var x1,x2,x3,x4,x5:longint;
begin
for x1:=0 to x div 100 do
for x2:=0 to (x-x1*100) div 50 do
for x3:=0 to (x-x1*100-x2*50) div 20 do
for x4:=0 to (x-x1*100-x2*50-x3*20) div 10 do
for x5:=0 to (x-x1*100-x2*50-x3*20-x4*10) div 5 do begin
writeln(' 100:',x1,' 50:',x2,' 20:',x3,' 10:',x4,' 5:',x5,' 1:',x-x1*100-x2*50-x3*20-x4*10-x5*5);
exit;
end;
end;
begin
for i:=1 to 20 do begin
read(x);
writeln('Human &