pascal執行錯誤輸入錯誤

1樓：網友

noip 誰拿了最多獎學金。

name:array[1..m]of string[20];

讀入時name[1]為xiaoming 87 65 y

用字串讀入一直到行尾。

用f7模擬一下。

對於輸入資料有兩種方式來實現。

法一〉逐個字元累加。

首先定義c:char; 然後利用until c=『作為終止符，將讀入的字元連線儲存到a[i].name中。

**為：repeat read(c); a[i].name:=a[i].name+c; until c=』

a[i].name:=copy(a[i].name,1,length(a[i].s)-1);

這樣做的好處是，後面的值可以直接用read語句讀入。但是最後乙個值後，要記得readln;

法二〉一次讀入，然後分離。

這樣做需要逐個分離，對本題來說稍顯複雜，但對noip來說此方法必須掌握，有的時候一定要用。

具體實現，讀入乙個字串s。利用pos(『 s);找出空格位置。再利用copy函式，和val函式進行擷取，和轉換。

部分**：(s:string;j,ok:integer)

readln(s);

j:=pos(『 s);

a[i].name:=copy(s,1,j-1);

s:= copy(s,j+1,50); 當長度〉字串長度是，為後面全部擷取。

j:=pos(『 s);

val(copy(s,1,j-1),a[i].qp,ok);

s:= copy(s,j+1,50);

對於符號用if語句作一下判斷就是了，太easy不寫了，後面還有幾個值，用同樣方法處理就可以了。

2樓：網友

試一試：const m=2000;

varname:array[1..m]of string[20];

qimo:array[1..m]of longint;

banji:array[1..m]of longint;

ganbu:array[1..m]of char;

xibu:array[1..m]of char;

lw:array[1..m]of longint;

gt:array[1..m]of longint;

t:longint;

rs,a,max,max2: longint;

beginreadln(rs);t:=0;

for a:=1 to rs do

beginread(name[a],qimo[a],banji[a],ganbu[a],xibu[a],lw[a]);

後面無關的略。

3樓：54摔神

1.這裡面沒有出現關於y的定義、語句。沒有錯是ganbu:array[1..m]of char中char是字元型別的意思。

請各位高人幫我看看這個pascal程式裡**出錯了？執行後輸出的是空白。。。

4樓：網友

你這裡有兩問題，首先題目中「第2行有n個用空格隔開的正整數，為所產生的隨機數。」你不應該用readln讀入，這樣你只能讀入第乙個數然後就換行讀入了，因為後面檔案沒有內容，pascal將自動補零，就是說你讀進來的永遠是第乙個數字和n-1個零。

第二個是你的輸出，「第2行為m個用空格隔開的正整數，為從小到大排好序的不相同的隨機數。」你的輸出應該是m個數，每兩個數之間有乙個空格同時以回車結尾，而你的輸出是m個數每個數後有乙個空格，就是說行末會多出乙個空格，這樣你的輸出看起來和標準輸出一樣實際上是一分都得不到的。另外，一般題目不說，輸出檔案也應該以回車結尾，noip08浙江省分數太高後來就是用這個卡分數來著。

像真正複賽比賽的時候演算法固然重要，輸入輸出格式幾乎是同等重要的，向你這樣不注意的話，一道會的題目100分沒了，不是要悔的腸子都青了，多少前輩鮮血換來的教訓啊。

5樓：紫蕾

剛開始讀進錯了，將readln(a[i])改為read(a[i])就行，其實你可以用repeat,邊讀邊比較和去除重複的．

6樓：網友

讀入應用read 輸出最後最好加個writeln

pascal執行錯誤輸入錯誤

excel執行VBA，出現1004錯誤

執行qtp 出現這個錯誤，qtp執行出現這個錯誤？

wifi密碼為什麼總提示輸入錯誤

其他用戶還看了：

pascal執行錯誤 輸入錯誤

excel執行VBA，出現1004錯誤

執行qtp 出現這個錯誤，qtp執行出現這個錯誤？

wifi密碼為什麼總提示輸入錯誤

其他用戶還看了：

pascal執行錯誤輸入錯誤