pascal求几道题的程序

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语言编写一个彩票程序（可以用死循环）、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！