菜鳥pascal 輸入輸出問題

時間 2025-03-11 01:05:16

1樓:網友

第一行第二行沒什麼好說的:readln(a);readln(b,c);

第三行後的每一行處理方式都一樣的:

乙個數字+乙個字母 +乙個數字。

先讀3個字元。

readln(ch1,ch2,ch3);

x:=ord(ch1)-ord('0');

y:=ord(ch2)-ord('0');

這樣要讀的 乙個數字+乙個字母 +乙個數字 就是 x ch2 y如果不是乙個數字 而是乙個 整數 那麼處理起來就有點點麻煩,用字串讀一行,然後對字串處理,下面給段**:

readln(s);

i:=1;while s[i] in ['0'..9'] do inc(i);

迴圈結束 i 將指著那乙個字母所在的位置。

s1:=copy(s,1,i-1); 1至i-1位置為第乙個數,把它copy出來,然後用val轉換成整數。

val(s1,x); x即為第乙個數。

s2:=copy(s,i+1,length(s)-i);/i+1至最後為第二個數,copy出來 然後轉換成整數。

val(s2,y);

到這裡就把整數+字元+整數讀出來了 分別是。

x s[i] y

2樓:網友

var a:numtype;

i:numtype;

b,c,e:array of numtype;

ch:char;

d:array of char;

第一行 readln(a);

第二行 i:=0;

repeat

inc(i);

read(b[i]);

until eoln;

第三行到最後。

i:=0;repeat

inc(i);

j:=0;repeat

inc(j);

read(ch);

case j of

1:c[i]:=ord(ch)-48; /ord('0')=482:d[i]:=ch;

3:e[i]:=ord(ch)-48; /ord('0')=48end; until eoln;

until eof;

3樓:網友

這個讀入方法還是很多的:

1.用字串逐行讀入,然後對字串進行處理,初級本的最後一章棧表示式處理有類此的處理;

2.建議你好好看看檔案那一章,有用的不多,但有兩了函式很有用。

eof(檔案結束函式), eoln(檔案換行函式)3.還有那就是乙個字元乙個字元,乙個字元考慮三種情況:數字,字母,空格。

pascal問題,不懂它的輸出是什麼意思,求解答。

4樓:蹲廁所看蛆爬

先去一號展館,就用30分鐘,然後參觀用60分鐘;再去五號展館,用(50-30)分鐘,參觀用30分鐘;去四號展館,用(75-50)分鐘,參觀用30分鐘。

總共30+60+20+30+25+30=195(分鐘)

5樓:網友

這個問題,敢問沒有write();語句怎麼可能有輸出?

希望有用。

c語言輸入輸出格式,C語言輸入輸出格式

寫在楓葉上的故事 在c語言中,輸入使用的是scanf函式,scanf函式的格式為scanf 格式控制,地址列表 如scanf d a 輸出使用的是printf 函式,printf函式的格式為printf 格式控制,輸出表列 如printf d n a 在輸出時可以在 和字母之間插進數字表示最大場寬。...

PLC幾種輸入 輸出型別

月似當時 plc輸出型別有三種 第一種是繼電器輸出,繼電器輸出反應速度慢,輸出電流大,一般能達到2a,但觸電壽命較短,輸出頻率較低,最大為1hz 第二種是電晶體輸出,電晶體輸出反應速度快,輸出電流小,觸點壽命較長,輸出頻率很高,可以達到10khz 第三種是模擬量輸出,規格一般為0 20ma電流訊號 ...

wow fs輸出問題,wow fs輸出問題

沒有sw級別的fs還是冰法 火法 那是sw畢業人的事 專注冰11 50,網上有 就不復制了 手法,寒冰箭 出火球就順發火球 出寒冰指就冰槍 2個一起出先冰槍再火球 yy時開冰脈,飾品全力 吧 建議你研究下天賦。既然裝備都上去了 dps上不去。整個火的天賦。冰天賦生存能力強 pk很有用 副本輸出就火的...