pascal求几道题的程序

pascal求几道题的程序,第1张

program gen;

var c:char;s:string;n,p:integer;

people:array[150000]of string;

father:array[150000]of longint;

ff:array['A''Z',150000]of longint;

nn:array['A''Z']of longint;

function search(s:string):longint;

var i:longint;

begin

search:=0;

for i:=1 to nn[s[1]] do

if people[ff[s[1],i]]=s then begin search:=ff[s[1],i];break;end;

end;

procedure insert_father(s:string);

var k:longint;

begin

k:=search(s);

if k=0 then begin

inc(n);

people[n]:=s;

inc(nn[s[1]]);

ff[s[1],nn[s[1]]]:=n;

father[n]:=0;

p:=n;

end

else p:=k;

end;

procedure insert_son(s:string);

var k:longint;

begin

k:=search(s);

if k=0 then begin

inc(n);

people[n]:=s;

inc(nn[s[1]]);

ff[s[1],nn[s[1]]]:=n;

father[n]:=p;

end

else father[k]:=p;

end;

function find(s:string):string;

var k:longint;

begin

k:=search(s);

while father[k]<>0 do k:=father[k];

find:=people[k];

end;

begin

assign(input,'genin');reset(input);

assign(output,'genout');rewrite(output);

read(c);

while c<>''do

begin

readln(s);

case c of

'#':insert_father(s);

'+':insert_son(s);

end;

read(c);

end;

while c<>'$' do

begin

readln(s);

writeln(s,' ',find(s));

read(c);

end;

close(input);close(output);

end

随便给一个了,希望喜欢

var i,s:longint;

begin

for i:=1 to 99999 do begin

i:=i-1;(这样就永远结束不了,就是死循环了)

writeln(1);

writeln(2);

writeln(3);

反正下面要多少就行了,比如你要22选5,那就writeln到22,最后加上end;和end就行了。然后运行之后死循环也没事,这个系统会已知滚动数字,然后你只要按键盘上的那个暂停键就可以选号,继续滚动按回车搞定 以后死循环的问我

以上就是关于pascal求几道题的程序全部的内容,包括:pascal求几道题的程序、如何用PASCAL语言编写一个彩票程序(可以用死循环)、等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!

欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/zz/10164257.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-05-05
下一篇 2023-05-05

发表评论

登录后才能评论

评论列表(0条)

保存