eg4_10.pas

关于课件 好多种结构的算法 等等 大家自己看吧

PROGRAM  eg4_10(INPUT,OUTPUT);
  VAR
    a,x,y:real;
    b,oper:char;
  BEGIN
    read(x,b,oper);
{    write(x:8,oper);}
    write(x:8:2,oper);
    while (oper<>'=') do
     begin
       read(y);
       write(y:8:2);
       case oper of
         '+':x:=x+y;
         '-':x:=x-y;
         '*':x:=x*y;
         '/':x:=x/y
       end;
       read(b,oper);
       write(oper)
     end;
    writeln(x:8:2)
end.