1樓：網友
106是無效數字格式，這意味著你的讀入資料那裡出錯了，你檢查下。
pascal獎學金
2樓：天ぅ殤
我的程式和你的差不多，你自己看看吧。
你寫得出應該理解得了的。
varh,t1:string;
s1:array[1..100] of longint;
a,g:array[1..100] of string;
b,c,f:array[1..100] of integer;
d,e:array[1..100] of char;
i,j,s,n,p,t,s2:longint;
beginreadln(n);
for i:= 1 to n do readln(g[i]);
for i:= 1 to n do
begins:=0;
repeat
s:=s+1;
a[i]:=a[i]+g[i][s];
until g[i][s+1]=' ';
h:='';
repeat
s:=s+1;
h:=h+g[i][s];
until g[i][s+1]=' ';
val(h,b[i],p);
h:='';
repeat
s:=s+1;
h:=h+g[i][s];
until g[i][s+1]=' ';
val(h,c[i],p);
d[i]:=g[i][s+2];
e[i]:=g[i][s+4];
h:=g[i][s+6];
val(h,f[i],p);
end;for i:= 1 to n do
beginif (b[i]>80) and(f[i]>=1) then s1[i]:=s1[i]+8000;
if (b[i]>85) and(c[i]>80) then s1[i]:=s1[i]+4000;
if (b[i]>90) thens1[i]:=s1[i]+2000;
if (b[i]>85) and(e[i]='y') then s1[i]:=s1[i]+1000;
if (c[i]>80) and(d[i]='y') then s1[i]:=s1[i]+850;
end;for i:= 1 to n do s2:=s2+s1[i];
for i:= 1 to n-1 do
for j:= i+1 to n do
if s1[i]=t;t1:=a[i];a[i]:=a[j];a[j]:
t1;end;
writeln(a[1]);
writeln(s1[1]);
write(s2);
end.
free pascal獎學金問題
3樓：網友
你這樣不行的，read(a[i])就把整一行讀完了，以為a[i]是string，它不會讀到空格就停。
你可以這樣。
while true do begin read(ch); if ch=' ' then break; a[i]:=a[i]+ch; end;
free pascal 獎學金題目
4樓：梁
我用了快排，用選擇排序、氣泡排序也是可以的。
你寫完了可以在。
提交。var
n:longint; //學生數量。
a,b,c:array [1..300] of longint; //用於儲存資料。
procedure init; //初始化。
var i:longint;
beginreadln(n); //讀入學生數量。
for i:=1 to n do
beginreadln(a[i],b[i],c[i]);//讀入語文、數學、英語成績。
b[i]:=a[i]+b[i]+c[i]; //數學成績沒多大用，替換為總成績。
c[i]:=i; //英語成績沒多大用，替換為學號。
end;end;
procedure swap(var a,b:longint); //交換a、b兩個數的過程。
var t:longint;
begint:=a;
a:=b;b:=t;
end;function check(a,b,c,d,e,f:longint):boolean; //用於快速排序過程中的判斷。
beginif be then exit(true);
if ad then exit(true);
if cj;
if lif iend;procedure print; //輸出。
var i:longint;
beginfor i:=1 to 5 do //輸出前五名學生的成績。
writeln(c[i],' ',b[i]);
end;begin
init; //初始化。
pai(1,n); //快速排序法。
print; //輸出。
end.
pascal 獎學金怎麼編？
5樓：demon灬
字串處理得好就行了，主要應用copy（s,1,p-1),delete(s,1,p);p:=pos(' ',s)這幾個過程。
6樓：網友
就是不斷的用case語句，你可以去tyvj上看一下題解。
美國讀研，關於獎學金的問題
你讀的這個，獎學金基本是不可能了，因為不是做研究 在美國獎學金基本是這樣的，最好拿的是純理科 錄取了基本都有獎 工科，文科只有phd的教育之類的有可能有獎，至於藝術嘛，除非你真的超優秀，否則你托福考滿分也沒用，因為人家需要的是攝影天才 建議你多拍點好片，或者寫點有技術含量的文章什麼的，這才有那麼一點...
關於PASCAL的問題。急呀希望在星期天（晚之前有大蝦告訴！跪求
提問者要麼不瞭解答題者的心理，要麼是不尊重答題者的勞動！嘿嘿建議 如果真想快點得到答案，可以把這些問題分散為四個問題 本來就獨立的四個問題 每題懸賞5分，你花的總分20分不變，而答題者可多得60分 是不是算得太精了 給你第2題的 var c array 1.10,1.10 of integer i,...
05年出生的算是00後還是05後
人一般是按照10年劃分出生年代的，所以你說的2001 年後出生的人就應該2000後,簡稱 00 2010後出生的就是2010 後，應簡稱 10後 應該算是00後，大家的腦海中是十年為一個年代。都是啊！00後是總稱！05後是細稱！00後是2000到2009。05後是2005到2009都一樣 屬於00後...