关于pascal
Pascal是一种计算机通用的高级程序设计语言。Pascal的取名是为了纪念十七世纪法国著名哲学家和数学家Blaise Pascal。它由瑞士Niklaus Wirth教授于六十年代末设计并创立。Pascal语言语法严谨,层次分明,程序易写,具有很强的可读性,是第一个结构化的编程语言。
你这道题背景就有蛮搞笑啦,
草量都可以为负数。
题目又没说它是负数你干吗强加为负数?
说不定是你二分写错了,
或者是你写丑了,
2000000 NLOGN都出不来 拜托。
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.
PASCAL与C,C++和JAVA不都是面向对象的程序设计语言吗?它们之间有什么不...
Pascal的主要特点有:严格的结构化形式、丰富完备的数据类型、运行效率高、查错能力强等特点。由于上述特点,Pascal可以方便用于描述各种算法和数据结构。对于程序设计的初学者,Pascal语言有益于培养良好的程序设计风格和习惯。IOI(国际奥林匹克信息学竞赛)把Pascal语言作为三种程序设计语言之一。NOI(全国奥林...
直接pas是什么意思?
PAS指的是Pascal语言,是一种高级编程语言。它发展于上世纪70年代,由瑞士计算机科学家Niklaus Wirth创建。Pascal语言以其简单易懂、结构清晰的特点,成为了编程语言入门的理想语言,广泛应用于科学计算、数据处理、软件开发等领域。Pascal语言作为一种编程语言,可用于开发各种应用程序,如桌面软件、移动应用...
pascal语言有几种版本?
Pascal有5个主要的版本,分别是Unextended Pascal、Extended Pascal、Object-Oriented Extensions to Pascal、Object Pascal 和 Delphi。其中,Unextended Pascal、Extended Pascal和Object-Oriented Extensions to Pascal是由Pascal标准委员会所创立和维护的,Unextended Pascal类似于瑞士Niklaus Wirth教授和K.Jensen于1974年联名发...
帕斯卡语言的发展
其中影响最大的莫过于Turbo Pascal系列软件。它是由美国Borland公司设计、研制的一种适用于微机的Pascal编译系统。该编译系统由1983年推出1.0版本发展到1992年推出的7.0版本,其版本不断更新,而功能更趋完善。Turbo Pascal语言是编译型程序语言,它提供了一个集成环境的工作系统,集编辑、编译、运行、...
Pascal和C的问题
说句实话,pascal确比C方便、实用。一个从未接触过程序设计的人10天能学会pascal,但10天很难学会C!现在用C的人多是因为学校里只讲C,其实pascal有很多优于C的地方。举个最简单的例子:要输入a、b两个整数,C语言写为:scanf("%d %d",&a,&b);pascal写为:read(a,b);比较一下就知道差别了...
pascal的CP,TP,FP有什么区别
声明:pascal是一个语言,没有版本的CP,TP,FP,等都是pascal语言的IDE 关于这些的说明:TP是编译器有内存限制的,也就是说你的变量最大不能开到超过64K,很早的一个IDE,你几乎用不到不用去了解了。CP是一个新的IDE,新手用起来比较顺手,但是如果要参加NOIP就少用点,官方是用FP的,到时候不要...
Pascal 语言中"(「A∧B)∨(C∧D∨A)"什么意思
为了表示更复杂的命题,Pascal还引入三种逻辑运算符:not、and、or。它们分别相当于数学上的"非"、"且"和"或"的意义。这三个运算符的运算对象为布尔量,其中not为单目运算,只有一个运算对象,and与or为双目运算,有两个运算对象。它们的运算真值表如下:a b Not a a and b a or b a xor ...
关于pascal语言的教材资料
个人一点建议,希望能认真看完。《Free Pascal语言与基础算法》:全国青少年信息学奥林匹克竞赛教程(第3版)编者:董永建, 舒春平 出版社: 科学技术文献出版社 很好很全的一本书,强烈推荐。或者《Pascal语言(中学版)》和《数据结构与算法设计:Pascal语言(第2版)》编者:张文双, 王学红, 郭连凤 ...
pascal是最适用于人工智能领域的程序设计语言
目前公认的是python最适于人工智能领域
求pascal语言各种类型练习题
这里的P是“情况”值,用产值x除以1000的整数值作为P,如果P>10也归入P=10的情况。Pascal语言用P=trunc(x\/1000)取整计算,解: program xpo;var x,p:integer;tax:real;begin write('input x=');read(x);p:=trunc(x\/1000);if p>0 then case p of 0:tax:=0;1,2,3,4:tax:=x*0....
丛烁妇康: 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教授于六十年代末设计并创立的