用pascal語言解決一下問題

時間 2022-02-05 17:35:04

1樓:

1.讀入兩個資料a和b,然後逐個輸出即可。第一個a/b應該是指a/b的整除,然後小數除就是帶小數的除,也就是普通的除。

程式var

a,b:integer;

begin

readln(a,b);

writeln(a,'+',b,'=',a+b);

writeln(a,'-',b,'=',a-b);

writeln(a,'*',b,'=',a*b);

writeln(a,'/',b,'=',a div b);

writeln(a,'/',b,'=',a/b:2:2);

writeln(a,'/',b,'=',a div b,'......',a mod b);

readln;

end.

2.首先讀入這個字元,用pred()函式求出前驅字元,用succ()函式求出後續字元,然後再比較它們的asqii碼值,從大到小輸出即可。

程式:var

a:char;

begin

readln(a);

write(pred(a),' ',a,' ',succ(a));

readln;

end.

希望能幫到樓主,望採納。

2樓:市丹

例:a等於10,b等於5,a+b的結果輸成10+5=15

vara,b,s:real;

begin

read(a,b);

s:=a+b;

write("a+b=",s);end

幫我解決一下問題在描述裡,幫我解決一下問題 在描述裡

換屏協議怎麼定的呢?在你換之前談好的條件執行,如果對方堅持不承認,而你們之間又沒有協議可能你就只有認倒黴了。 鷹王 依據 消法 規定的三包,如果屬於手機質量問題,他們必須給你退換。你可以在 上投訴或者去你當地消協投訴舉報。 有你有愛 首先,有個問題點不確定,下的單是你自己下單買的屏還是下單的維修商家...

問大家一下,問一下!!!

愛卡 如果電腦的所有部件都和你電腦出廠時間一樣 那才是奇怪的事情 叫笨笨的小狗 時間有點久,肯定會影響的。什麼都是有保質期的! 最好的你 不可能一樣的,我買的說剛上市的,結果不久就停產了 問一下啊 唯我獨噴 恐怕不行,這兩個都是遊戲,遊戲執行是很佔記憶體的,酷比的記憶體並不算大,執行一個就已經很是不...

問大家一下,問你們一下

無聊答答題 膽汁是肝分泌的,膽囊是儲存膽汁的。沒有膽囊,膽汁就只有那麼一點點,所以油膩的東西就不能多吃。 勾蘭衲 你你想為什麼對呀,問題描述也沒有寫出來,讓人們怎麼回答你啊?有有問題提出來,街上們解答呀。阿阿彌陀佛,阿彌陀佛,阿彌陀佛。陀佛,阿阿彌陀佛,阿彌陀佛。 戎秀英 00問大家一下,今晚大傢什...