2个回答
展开全部
。。。你用入门的pascal,basic都可以·~~不过没有窗口了~~找本教材,看一个点怎么都会了(学过的别说我时间长(*^__^*) )
你说独立运行??没用过dos下的编译器么??拿pascal来说,你编译成功后,在文件目录下生成*.com的文件就是可执行文件。。。只不过没有win的窗口罢了~~~要是只是简单计算的话,拿win下的太慢~~
要是想好看点就c++。
给你个简单的pascal计算器源代码:
program c1(input,output);
var
x,y,n:real;
oper:char;
begin
write('Input x,y:');
readln(x,y);
write('Input operator:');
readln(oper);
case oper of
'+':n:=x+y;
'-':n:=x-y;
'*':n:=x*y;
'/':if y=0
then begin
repeat
writeln('Divide is zero!');
write('Input right Divide:');
readln(y);
until y<>0;
n:=x/y;
end
else n:=x/y;
end;
writeln(x:1:2,' ',oper,' ',y:1:2,' = ',n:1:3);
writeln;
end.
你说独立运行??没用过dos下的编译器么??拿pascal来说,你编译成功后,在文件目录下生成*.com的文件就是可执行文件。。。只不过没有win的窗口罢了~~~要是只是简单计算的话,拿win下的太慢~~
要是想好看点就c++。
给你个简单的pascal计算器源代码:
program c1(input,output);
var
x,y,n:real;
oper:char;
begin
write('Input x,y:');
readln(x,y);
write('Input operator:');
readln(oper);
case oper of
'+':n:=x+y;
'-':n:=x-y;
'*':n:=x*y;
'/':if y=0
then begin
repeat
writeln('Divide is zero!');
write('Input right Divide:');
readln(y);
until y<>0;
n:=x/y;
end
else n:=x/y;
end;
writeln(x:1:2,' ',oper,' ',y:1:2,' = ',n:1:3);
writeln;
end.
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询