1樓：網友
program ex01;
vara:array[1..100000000] of integer;
b,c:array[1..100] of longint;
i,n,m,x,y,j:longint;
procedure search(x,y,z:longint);
beginif ( y>1000000) or (a[y]<>0)) then
if odd(y) then search(x,y+y+y+1,z+1)
else search(x,y shr 1,z+1)
else a[x]:=a[y]+z;
end;procedure f(x:longint);
beginif a[x]<>0 then exit;
if odd(x) then begin if x+x+x+1>1000000 then search(x,x,0) else begin f(x+x+x+1);a[x]:=a[x+x+x+1]+1;end;end
else begin f(x shr 1);a[x]:=a[x shr 1]+1;end;
end;begin
fillchar(a,sizeof(a),0);
read(n);
a[1]:=1;
a[2]:=2;
a[4]:=3;
for i:=1 to n do
read(b[i],c[i]);
for j:=1 to n do
beginm:=0;
for i:=b[j] to c[j] do
beginf(i);
if a[i]>m then m:=a[i];
end;writeln(b[j],'鋒吵，c[j],'m);
end;end.
不過你需要先數陪輸入有幾組資料，不然的話你可以改動一下輸入薯基蠢。
pascal神牛求解 急急急
2樓：網友
program pxjc;
var z,x,y:integer;
a:char;
n:array[1..1000] of char;
beginwriteln();
read(a);
z:=0;y:=0;
while a<>'do
beginz:=z+1;n[z]:=a;read(a);
end;for x:= 1 to z doif (n[x-1]='and (n[x-1]='and (n[x-1]='
then if (n[x]>=a') and (n[x]<=z')then y:=y+0
else y:=y+1;
writeln(y);
readln;
end.感謝我吧，寫了乙個鐘頭！
pascal題目一道，神牛指點一下。
3樓：網友
你出現，7) error: ordinal expression expected，就是指第七行第七個字元的位置出了錯，你就到這裡查詢，這是我們發現，你把迴圈變數i定義型別為int64，迴圈變數都是不能使用int64的，改為i:integer(整型數)或者i:
longint(長整形數)就ok了。
4樓：網友
i是int64，不能做迴圈控制變數。
這題longint就可以了！
哪位pascal神牛能告訴我這道題目啊！！！
5樓：北海道棕熊
這。。。大哥你能找到這種題已經很牛了！
這個pascal 求質數的過程我不懂，請各位神牛解釋一下
6樓：網友
sub2這個過程好多廢話，根本不需要這麼麻煩嘛，t還沒有用，（我指的是sub2裡面的這個區域性變數），刪減後應該是這樣的：
procedure sub2(x: integer; var t: integer);
var xx,tt:integer;
beginxx:=2;
while x>1 do
if x mod xx=0 then
beginx:=x div xx
xx:=2;
endelse inc(xx);
end;不過是迷幻你的思路，這種題目最煩了，sub2只是乙個簡單的分解質因數，是防止資料太大超時用的，然後sub1沒有用，只要sub2和sub3.
用pascal編的遊戲有什麼，用pascal可編什麼遊戲
遊戲吧，各種遊戲加源 不過大部分都只是小遊戲.大型遊戲用pascal可能有些困難.用pascal可編什麼遊戲 新手推薦文字遊戲 可以用到crys 來清屏，隨便編個十萬字不是夢還賊好玩 前提是劇情和腦洞 只要學會順序結構和簡單的迴圈就可以了 記得把pascal調成中文模式 給我一個用free pasc...
一道pascal 題，高手請進，一道PASCAL 題，高手請進
1.加var a,b,c array 1.1000 of integer s1,s2 string n,n1,n2,i,j,k,d integer begin readln s1 n1 length s1 readln s2 n2 length s2 for i 1 to n1 do a n1 i ...
DOTA撼地神牛出裝，dota撼地神牛出裝順序，詳細些。從出門裝一直到不同型別後期神裝的過程。
主要就是祕法鞋保證藍夠，後面就是有跳刀能先手。神牛基本不對線的，都是帶夠藍藥了線上保人帶遊走的，只要溝壑放的好就是一條命堅持到底，畢竟一級就能攔8秒還跟魔免無關。dota defense of the ancients 可以譯作守護古樹 守護遺蹟 遠古遺蹟守衛，是由暴雪公司出品即時戰略遊戲 魔獸爭霸...