四则运算计算器
可任意转载，但必须在醒目位置以超链接形式标明文章原始出处和作者信息
原文地址：http://www.blogkid.net/archives/68.html
原文地址：http://www.blogkid.net/archives/68.html
Code:
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
num1 , num2 ,result : double;
symbol : 0..3 ;
sym : char;
function showrt (num1,num2: double ; symbol : Integer): double ;
begin
case symbol of
0 : showrt := num1+num2;
1 : showrt := num1-num2;
2 : showrt := num1*num2;
3 : showrt := num1/num2;
end;
end;
begin
writeln(‘请输入第一个数’);
readln(num1);
writeln(‘请输入运算符’);
readln(sym) ;
case sym of
‘+’ : symbol := 0;
‘-’ : symbol := 1;
‘*’ : symbol := 2;
‘/’ : symbol := 3;
end;
writeln(‘请输入第二个数’);
readln(num2);
result := showrt (num1,num2,symbol);
writeln(‘结果是’ , result);
writeln(‘回车键退出’);
readln;
{ TODO -oUser -cConsole Main : Insert code here }
end.
November 1st, 2005 by 张磊
0 Responses to “四则运算计算器”