PASCAL程序！SOS`

1、设计一简单计算器，具有加、减、乘、除功能。

2、某超市为了促销，规定：购物不足50元的按原价付款，超过50不足100的按九折付款，超过100元的，超过部分按八折付款(总价格<150)。编一程序完成超市的自动计费的工作(用if和case 两种方法做）。

3、读入10个数，计算它们的和与平均值。

急···感激不尽

1.这一题，实不知你要哪种的，所以给你个最简单的；

Program answer；

Var

a,b,c:real;

d:char;

Begin

read(a,d,c);

if d='+' then writeln(a+b:0);

if d='-' then writeln(a-b:0);

if d='*' then writeln(a*b:0);

if d='/' then writeln(a/b:0);

End. //非完美，现写的，有不妥之处请指出；

2.……太复杂了吧

Program answer IF ；

Var

a:longint;

Begin

readln(a);

if a<50 then begin writeln(a); halt end; //输出之后直接用halt退出程序，如进入下一步则表示>50元

if a<100 then begin writeln(a*0.9); halt end;

writeln(90+(a-100)*0.8);

End.

Program answer CASE ；

Var

a:longint;

Begin

readln(a);

if a<50 then b:=1;

if (a<100)and(a>=50) then b:=2;

if a>150 then b:=3;

case b of

1 : writeln(a);

2 : writeln(a*0.9);

3 : writeln(90+(a-100)*0.8)

end;

End.

3.

Program answer ；

Var

a,i,sum:longint;

Begin

sum:=0;

for i:=1 to 10 do

begin

readln(a);

sum:=sum+a;

end;

writeln(sum,sum/10);

End.

第三题：

program p1;

a:array[1..10] of real;

i,k,t:longint;

begin

for i:=1 to 10 do

begin

read(a[i]);

k:=a[i]+k;

end;

t:=k/10;

writeln(t:0:2);

witeln(k:0:2);

end.

长宽可以去掉的。。

第1题

program calc(input,output); var a,b:integer; result:real; ch:char; begin readln(a); readln(ch); readln(b); case ch of '+':result:=a+b; '-':result:=a-b; '*':result:=a*b; '/':result:=a/b; end;{case} write(a); write(ch); write(b); write('='); write(result:0:2); end.