关于pascal

Pascal 是什么~

Pascal是一种计算机通用的高级程序设计语言。Pascal的取名是为了纪念十七世纪法国著名哲学家和数学家Blaise Pascal。它由瑞士Niklaus Wirth教授于六十年代末设计并创立。Pascal语言语法严谨，层次分明，程序易写，具有很强的可读性，是第一个结构化的编程语言。

你这道题背景就有蛮搞笑啦，
草量都可以为负数。
题目又没说它是负数你干吗强加为负数？
说不定是你二分写错了，
或者是你写丑了，
2000000 NLOGN都出不来 拜托。

var top,i:longint;
st,st1,st2:string;
opt1,opt2:char;
stack:array[1..100,1..2]of string;
procedure push(st:string;opt:char);
begin
inc(top);
stack[top,1]:=st;
stack[top,2]:=opt;
end;
function pop(var ch:char):string;
var tmp:string;
begin
pop:=stack[top,1];
tmp:=stack[top,2];ch:=tmp[1];
dec(top);
end;
BEGIN
assign(input,'a.in');reset(input);assign(output,'a.out');rewrite(output);
readln(st);
top:=0;
for i:=1 to length(st) do
if st[i] in ['A'..'Z']then push(st[i],st[i]) else
begin
st2:=pop(opt2);
st1:=pop(opt1);
case st[i] of
'+':
if opt2='-' then push(st1+'+('+st2+')','+')
else push(st1+'+'+st2,'+');
'-':
if opt2 in['+','-'] then
push(st1+'-('+st2+')','-')
else push(st1+'-'+st2,'-');
'*':
begin
if opt1 in['+','-'] then st1:='('+st1+')';
if opt2 in['+','-'] then st2:='('+st2+')';
push(st1+'*'+st2,'*');
end;
'/':
begin
if opt1 in['+','-']then st1:='('+st1+')';
if opt2 in['A'..'Z']=false then st2:='('+st2+')';
push(st1+'/'+st2,'/');
end;
end;
end;
writeln(stack[top,1]);
close(input);close(output);
END.

---

河西区13621704618： Pascal 语言是什么 - ？
丛烁妇康： Pascal语言概述与预备知识 1 关于Turbo PascalPascal是一种计算机通用的高级程序设计语言.它由瑞士Niklaus Wirth教授于六十年代末设计并创立.以法国数学家命名的Pascal语言现已成为使用最广泛的基于DOS的语言之一,其主要特点有...

河西区13621704618： pascal产品特点是什么? ？
丛烁妇康： pascal产品特点编辑Pascal以法国数学家命名的Pascal语言现已成为使用最广泛的语言之一,其主要特点有:严格的结构化形式;丰富完备的数据类型;运行效率高;查错能力强

河西区13621704618： 程序编制中Pascal是什么? ？
丛烁妇康： Pascal基于ALGOL编程语言,为纪念法国数学家和哲学家布莱兹·帕斯卡而命名

河西区13621704618： pascal编程工具是什?pascal编程工具是什么 ？
丛烁妇康： pascal编程工具编辑TurboPascalTurboPascal它提供了一个集成环境的工作系统,集编辑、编译、运行、调试等多功能于一体

河西区13621704618： pascal有什么样的技术? ？
丛烁妇康： 由于它拥有32位的编译器,所以理论内存达到了4GB,而且一直在更新发展中,因此它的功能比BorlandPascal更加强大,拥有许多现代程序设计的特征,但同时也很不成熟,存在很多漏洞 这是我的回答,希望对你有帮助.

河西区13621704618： 谁能介绍Pascal语言的特点呢? ？
丛烁妇康： Pascal语言具有可读性好、编写容易的特点,这使得它很适合作为基础的开发语言

河西区13621704618： 关于Pascal？
丛烁妇康： program area; var n:integer; begin readln(n); writeln(n*n); end.

河西区13621704618： Pascal的基本运用包括什?Pascal的基本运用包括什么 ？
丛烁妇康： 你好,很高兴为您解答. 但各个内容部分是可选的,只有执行程序部分需要的时候才进行说明

河西区13621704618： 有关pascal的知识?? - ？
丛烁妇康： 例1.1计算半径为R的圆面积S [Copy to clipboard] CODE: program Area; {程序首部} {已知半径求圆的面积} const pi=3.14159;{说明部分——数据描述} var s,r:real; begin {执行部分} readln(r); s:=pi*sqr(r); writeln('s=',s); end. (1)程序首部 ...

河西区13621704618： Pascal的名称是怎么来的呢? ？
丛烁妇康： Pascal的名称是为了纪念十七世纪法国著名哲学家和数学家BlaisePascal而来的,它由瑞士NiklausWirth教授于六十年代末设计并创立的