1樓：網友
要我說樓上三位都不對哦。
首先每個資料不一定是一位數（不是有個嗎），其次資料間是逗號，不是空格。
檔案結構樓主說的不是很清楚，我按照我的理解給乙個參考程式。
varch:char;
i,j,k:integer;
l:double;
f:text;
s:string;
mapdata:array[0..1763,0..753]of double;
procedure add(a:double);
begininc(i);
if i>753 then begin inc(j);i:=0;end;
mapdata[i,j]:=a;
end;begin
assign(f,'');reset(f);
i:=-1;j:=0;s:='
repeat
read(f,ch);
if(ch=',or(ch=#13)then beginif s<>'then begin
val(s,l,k);
add(l);
s:='end;
end else
s:=s+ch;
until eof(f);
if s<>'then begin
val(s,l,k);
add(l);
s:='end;
close(f);
end.
2樓：火鳥
用檔案操作。
首先，在var 中設乙個檔案變數 f1:text;
再在begin中用 assign(f1,'d:\goru\');
reset(f1);
for i:=1 to m do
for j:=1 to n do read(f1,[i,j]);
close(f1);
就可以了。注意哦，m, n分別為檔案中每行的資料數和行數。
如果還有問題，考慮一下檔案的換行和結束eoln和eof(f1)的運用吧。
3樓：網友
vari,j:integer;
ch:char;
f:text
mapdata:array[0..1736,0..753] of integer;
beginassign(f,'');
reset(f);
數字都是一位數嗎？我就當是來做吧）；
read(f,ch);
for i:=0 to 753 do
for j:=0 to 1736 do
begina[j,i]:=ord(ch)-ord('0');
read(ch);
read(ch);
end;close(f);
end;
pascal問題
4樓：聽不清啊
對，答案就是4。
你從n=1，2，3，4，……一直排下去，算到n=7或8就能找到規律，即使手工也很快的。
5樓：網友
樓上的說的很清楚，搞清楚迴圈規律就簡單了。（1，2，3，4，5，-1）就是乙個迴圈。16/6＝2...4，所以最後結果就是4。
pascal 問題
6樓：網友
問題分析：1、最小的質因數是2，如果n能被2整除，說明2是n的質因數。然後繼續用商除以2,如唯孫果還能頃橋整除，說明n還有乙個質因子2...以此類推，直到商為1。
2、如果n不能被2整除，則讓2加1，繼續執行步驟1。
程式如下：var t,i,j,n,m:integer;
a:array[1..100] of integer;
beginn：=2；
while n<=100 do
beginj:=2;m:=n; t:=0;
repeat
while(m mod j=0) do
begint:=t+1;
a[t]:=j;
m:=m div j;
end;j:=j+1;
until m=1;
if t=0 then writeln(n,'=n)elsebegin
write(n,'=雀山猛);
for i:=1 to t-1 do
write(a[i],'
writeln(a[t]);
end;end;
end.
急！跳槽後戶口和檔案的問題（北京）
你去你現在工作的北京公司所在的人才交流中心要求遷入你的檔案，去派出所要求遷你的戶口，並開具檔案遷入接收證和戶口準遷入證，得到這些證後，去你戶口的所在地遷檔案和戶口遷移證。就行了。同情你，北漂一族。我在廣州漂，也遇到類似的問題。好煩人的。後來終於把戶籍檔案一起遷到廣州了。急！急！急！北京集體戶口與檔案...
畢業生戶口，檔案的處理問題！急啊
1全部1 2012年應屆畢業生最好是檔案跟著自己，以便在一年後辦理轉正定級，確定開始工作年限和檔案工資，初級職稱，以後就可以按部就班辦理其他事項了，這樣比較好，比較方便。你最好把檔案放在深圳，想遷回原籍，最好是一年半以後，不遷回原籍，跟著工作走也可以，不過如準備在佛山常住並退休的話，最好在一定時期以...
村官檔案啊 急 有分拿
你先弄清你的檔案在哪，在學校就算態度再惡劣也得找他們，他們也得給你辦，村官不是要給個調檔函嗎？用那個調啊，開頭直接寫到你們學校，你就聽管村官的說的，再聯絡班主任，要是你們學校管檔案的說下學期什麼的，你就別聽！使勁磨他們，這事對他們肯定不急又不上心，求人沒辦法什麼氣都忍唄。我也很慘，我也是急著要檔案，...