1樓：網友
bboo...那個沒有考慮進位。
我這個貨真價實的。
怎麼沒分呀？
加分吧，我給你乙個完整的程式。
下面的程式不完整。
program multi;
varn,i,j : integer;
procedure toradix(n,r : integer);
var q0,r0 : integer;
beginif nendend;
beginwriteln;
read(n);
for i:=1 to n-1 do
beginfor j:=1 to i dobeginwrite(j,'*i,'=
toradix(i*j,n);
if i*jwrite('
end;write(chr(13),chr(10));
end;end.
後面是執行結果：
2樓：網友
者：dianzix - 經理 四級 7-20 14:09
看起來不錯哦，支援， 確實勞動不能沒有價值呀！
把10進位數轉換為m進位數的pascal的程式段
3樓：網友
var s:string;i,a1,a2,a3,a4,k,dec:integer;
beginreadln(s);
for i:=1 to 4 do
begin //這裡一定要加begin，不加就變成迴圈只有下面一條if語句。
if (s[i]>=a')and(s[i]<=z') then k:=ord(s[i])-55;
if (s[i]>=a')and(s[i]<=z') then k:=ord(s[i])-87;
if (s[i]>=0')and(s[i]<=9') then k:=ord(s[i])-48;
case i of
1:a1:=k*16*16*16;
2:a2:=k*16*16;
3:a3:=k*16;
4:a4:=k;
end; /這裡也是，整個才是迴圈體。
end;dec:=a1+a2+a3+a4;
write('dec:',dec);
end.
用pascal製作n進位乘法口訣表,急！
4樓：網友
program exx;
var n:array[1..81]:integer;
x,j,k:integer;
beginreadln(x);
for j:=1 to x do
beginfor k:=1 to j do
n[j]:=j+1;
write(j,'*',n[j],'=',n[j]*j,' ');
writeln;
end;end.
不確定對啊！！
選我把！
求一pascal程式——k進位轉10進位
5樓：網友
高精度進位轉換吧？
很好做的，你用上面這個名字搜一下就有了。
6樓：匿名使用者
這個我也不是很清楚。真的不好意思。
列印數字金字塔的pascal程式
7樓：翎魔
如下是簡潔的程式，可以很快驗證，program jzt;
var i,j:integer;
begin for i:=1 to 9 dobegin for j:=1 to i do write(j，#
for j:=i-1 downto 1 do write(j，#
writeln;
end;end.
樓主，6樓的『#』相當於『chr'，chr（x)含義：序號為x的字元；和 #x 含義一樣，
8樓：egg蛋
program jinzita;
varn,i,j:integer;
beginreadln(n);
for i:=1 to n do
beginfor j:=1 to i do write(j,' ');
for j:=i-1 downto 1 do write(j,' ');
writeln;
end;end.
說明：n是指行數。writeln是換行，空格直接' '就可以了。
pascal 36進位轉十進位的程式
9樓：網友
好難哦~我還只初一，做不出啊。
C 倒計時n年n月n日n時n分n秒
nsstring getnowtimewithstring nsstring atimestring nsdateformatter formater nsdateformatteralloc init formatersetdateformat yyyy mm dd hh mm ss nsdate...
諾基亞N73 N78 N79，諾基亞N73和N78，N79哪個更好？
n73 1900左右 n78 2100左右 n79 2800左右 到元旦或過年時大概有200 500的降幅，但n73可能降不了多少 n73 版1700左右 n78 1900左右 n79 2600左右 n73和n78的 已經趨於穩定，不會再降多少了，n79還可能降價300左右 去 看個大概 n79應該...
sharp ar M351N列印的時候自動縮放，該怎麼設定
1 按住 紙盒設定 鍵5秒鐘不動，會有燈閃，再按 紙張選擇 鍵選擇你要更改的紙盒。2 再按 指定原稿尺寸 鍵選擇到a4 3 接著按影印鍵儲存，最後按一下 紙盒設定 鍵退出即可。調整紙盒擋板。紙盒裡有個藍色鈕可以推拉的。調到a4位置，而軟體裡的頁面設定，也要設定成a4.在設定裡，調整紙型配置，從a3調...