作业帮program kuohao; type a=array[1..100]of char; var x:string; y
来源：学生作业帮 编辑：拍题作业网作业帮 分类：综合作业 时间：2024/04/30 14:04:52
program kuohao; type a=array[1..100]of char; var x:string; y,i,s,top:integer; b,t:a; begin top:=0;
program kuohao;
type a=array[1..100]of char;
var x:string; y,i,s,top:integer; b,t:a;
begin
top:=0; i:=1; s:=0;
readln(x);
y:=length(x);
repeat
if x[i]='(' then begin
top:=top+1;
b[top]:=x[i];
end;
if x[i]=')' then begin
s:=s+1;
t[s]:=x[i];
end;
inc(i);
until i>y;
if top>s then writeln('< is more');
if topy;
if top>s then writeln('< is more');
if top
program kuohao;
type a=array[1..100]of char;
var x:string; y,i,s,top:integer; b,t:a;
begin
top:=0; i:=1; s:=0;
readln(x);
y:=length(x);
repeat
if x[i]='(' then begin
top:=top+1;
b[top]:=x[i];
end;
if x[i]=')' then begin
s:=s+1;
t[s]:=x[i];
end;
inc(i);
until i>y;
if top>s then writeln('< is more');
if topy;
if top>s then writeln('< is more');
if top
注意 else 的用法,程序读入的是字符串,如果你只是判定'('和')'那么遇到这种情况就不可以 (12353425)那中间的数字12353425你的程序只能读入一个1
然后就去判断下一个反括号,而第二个程序是else 即,读入的字符不是'('就执行下一步
s:=s+1;
t[s]:=x[i]；
即else 是包含s[i]=')'和其他非'('字符的情况
然后就去判断下一个反括号,而第二个程序是else 即,读入的字符不是'('就执行下一步
s:=s+1;
t[s]:=x[i]；
即else 是包含s[i]=')'和其他非'('字符的情况
program kuohao; type a=array[1..100]of char; var x:string; y
program Noname0; const n=7; var a:array[1..n] of integer; i,
delphi中的..比如说 type jieh=set of 1..12 var inmonth:1..12 里边的..
以下合法的数组定义a.char a[]="string"; b.char a[6]="string";c.int a[5
设Var(X)=25,Var(y)=36,pXY=0.4,求Var(X+Y)和Var(X-Y).
var(X)=var[E(X|Y)]+E[var(X|Y)]怎么证明
Var(x)=Var[E(X/Y)]+E(Var(X/Y))怎么证明
The conversion of a char data type to a datetime data type r
Write a program that initializes array of 10 elements,Each e
过河卒问题求修改这是我的程序var a:array[0..20,0..20] of boolean;d:array[0.
a array of quention
#include #include void main() { char x[]="STRING"; x[0]=0; x