pascal輸出字母串

1樓：匿名使用者

這是我寫的，都對，便於理解，有注釋，希望能幫助你。

const

c:array[1..26]of char=('a','b','c','d','e','f','g','h','i','j','k','l','m','n','o','p','q','r','s','t','u','v','w','x','y','z');

vara,b:char;

i:integer;

begin

readln(a);

readln(b);

if abegin

for i:=ord(a)-63 to ord(b)-65 do write(c[i]);

writeln;

endelse begin

for i:=ord(b)-63 to ord(a)-65 do write(c[i]);

writeln;

end;

end.

2樓：匿名使用者

很傻的辦法，但容易看懂

var i,j:char;

s:char;

begin

read(i,j);

if i

for s:=i to j do write(s)else

for s:=j to i do write(s)end.

3樓：喜揚揚

var c1,c2,ch:char;

begin

readln(c1,c2);

if c2

for ch:=chr(ord(c1)+1) to chr(ord(c2)-1) do write(ch);

writeln;

end.

4樓：匿名使用者

vara,b:char;

x,y,i:integer;

begin

read(a,b);

x:=ord(a);

y:=ord(b);

for i:=x to y do

write(chr(i));

end.

這是我編的，沒經除錯，請多包涵。

組合語言問題,關於輸出字串,組合語言問題,輸出了正確結果,但是下面還輸出了許多亂碼

沒大bai毛病,2處錯誤 decs sub ax,dx 這裡錯du了,dec不是幹這活zhi的.dec ax,dx 原數的兩dao個絕對值相版減 loop next mov ah,4ch 這裡加上退出指令。int 21h 其它權的沒問題。code ends 組合語言問題,輸出了正確結果,但是下面還輸...

pascal語言字串題目

1.program sdf var a string s,i,j longint begin readln a while a do begin s 0 j 0 for i 1 to length a doif a i in 0 9 then j j 10 ord a i ord 0 else be...

華碩筆記本部分字母打不出字母，也不出數字什麼也不顯示

華碩服務 若您現在使用的為windows 7系統，您可以開機按f8鍵選擇進入 安全模式下 測試按鍵是否能正常使用。一 如果安全模式下按鍵正常，一般是病毒或系統問題引起的 1 建議您更新防毒軟體補丁並全盤查殺病毒 2 在 計算機 上右鍵選擇 屬性 裝置管理器 找到鍵盤裝置前面的 號，右鍵選擇 解除安裝...