PASCAL 求助

来源：百度知道 编辑：UC知道 时间：2024/06/05 08:59:49
1．请编程输出9×9乘法口诀表，格式如下：
(输出文件output1.txt)

1*1=1
1*2=2 2*2=4
……
1*9=9 2*9=18 …… 9*9=81

2．输入5个整数，统计其中正、负和零的个数(a表示正数个数，b表示负数个数 c表示0的个数)
(输入文件 input2.txt 输出文件output2.txt)

输入样例： -10 0 20 10 5

输出样例：a=3 b=1 c=1

3．天气炎热，卖西瓜老板生意兴隆。他的西瓜价格方法是：小于5公斤的西瓜卖价每公斤1.6元；大于或等于5公斤而小于10公斤的西瓜卖价每公斤1.2元；大于或等于10公斤的西瓜卖价是每公斤1.0元。请你为这个老板写一个程序，实现从读入西瓜重量，则输出应收款。如果输入的数据不合理，应输出“input erro!”
( 输入文件 input3.txt 输出文件output3.txt)

输入格式： xx.xx (表示西瓜重量)

输出格式：Total=xx.xx 或 “input error!”

其中小数位保留2位，x表示任意数字。

4．有一天，信徒们向和尚寺赠送了n个包子，要分给k（其中k>=1）个大和尚和h（h>=1）个小和尚吃，假定大和尚每人分3个，小和尚每人分2个，包子刚好分完。编程从input4.txt中读入n的值，求大和尚数k和小和尚数h。如果有多种可能方案，在屏幕上输出所有方案且各占一行，如果找不到方案，则输出“no way！”。
( 输入文件 input4.txt 输出文件output4.txt)

输入格式：xx (表示包子数)

输出格式：k1 h1 （其中k1，h1，k2，h2，……kn，hn分别表示大和尚数和小和尚数）

k2 h2

……

kn hn

或 “no way！

1． 请编程输出9×9乘法口诀表，格式如下：
1*1=1
1*2=2 2*2=4
……
1*9=9 2*9=18 …… 9*9=81
源程序
program t1;
var
i,j:integer;
begin
for i:=1 to 9 do
begin
for j:=1 to i do
write(j,'*',i,'=',j*i,' ');
writeln;
end;
end.
2．输入5个整数，统计其中正、负和零的个数(a表示正数个数，b表示负数个数 c表示0的个数)
输入样例：sum= -10 0 20 10 5
输出样例：a=3 b=1 c=1
源程序
program t2;
var
num,i,a,b,c:integer; {num：用来保存输入的数，i：循环变量，a，b，c用来记录正，负，零的个数}
begin
a:=0;b:=0;c:=0; {a，b，c初始为零}
for i:=1 to 5 do {初值为1终值为5表示循环体循环5次， }
begin
read(num); {这样read（num）可以执行5次，每读入一个数}
if num>0 then a:=a+1; {如果大于零a就加一}
if num<0 then b:=b+1; {还是小于零b就加一}
if num=0 then c:=c+1; {还是等于零c就加一}
end;
writeln('a=',a,'b=',b,'c=',c); {循环结束后a，b，c中就统计出了正，负，零的个数}
end.
3．天气炎热，卖西瓜老板生意兴隆。他的西瓜价格方法是：小于5公斤的西瓜卖价每公斤1.6元；大于或等于5公斤而小于10公斤的西瓜卖价