我編的程式**錯了啊的，pascal的，輸入三位數，組合出最大的整數
1樓：嘯嘯_飛
所有if語句的then或else後面有兩個以上的語句時就要用begin..end把語句們套起來，這樣會被看作乙個語句，否則只支援後面跟乙個語句的then和else會無視後面的第二個及以後語句。
可以用我這個改進版的，速度也快了，就用了3次比較和交換運算。
program nummax;
var a,b,c:char;
procedure swap(var a,b:char);
var tmp:char;
beginif atmp:=a;
a:=b;b:=tmp
endend;
beginread(a,b,c);
swap(a,b);
swap(b,c);
swap(a,b);
writeln(a,b,c)
end.
用pascal 乙個正整數的個位數字是6,如果把個位數字移到首位,所得到的數是原數的4倍,試程式設計
2樓：網友
1、設原數x位數為n，形為：x = ??6 = ??0 + 6
移位後得到：4x = 6???= 60000 + = 6*10^(n - 1) +
6*10^(n - 1) +x - 6) / 10兩邊同乘10，得到：40x = 6*10^n + x - 6簡化可得：39x = 6*10^n - 6，題目轉化為等式右邊能否被39整除的問題。
2、程式如下。
program project1;
pascal沒有冪函式，自己寫。
function power(x, i: word): int64;
beginresult := 1;
while i > 0 do
beginresult := result * x;
dec(i);
end;end;
varx, y: int64;
n: integer;
begin/ int64型別表示為10進位最多19位for n := 1 to 19 do
beginy := 6 * power(10, n) -6;
x := y div 39;
if x * 39 = y then
writeln(x);
end;readln;
end.
高二物理，如圖的 1 題，我做的哪裡錯了啊！？求高手
解 你錯在用的是法拉第電磁感應定律的平動切割情形，即e blv，環上各點速度大小不一樣，距離軸近的點速度大。而應該用法拉第電磁感應定律轉動切割情形下的表示式，即e nbs 1 由法拉第電磁感應定律知 線圈轉過90 度時，感應電動勢為e nbs nb r 2 30 v故由歐姆定律知，電路中的電流i e...
編猜數遊戲程式，程式中給定1100之間的被猜整數
import java.util.random import java.util.scanner public class test public void gusnum int num,int sum else 編寫一個猜數的遊戲程式。數字由機器隨機產生，限制為1 100之間的整數，使用者輸入猜測...
java加減乘除運算的程式怎麼編
java程式設計 四則 運算 接收使用者輸入的2個運算元，和運算子 計算之後，輸出結果 import java.util.scanner public class 四則運算 else default system.out.println 運算子是無意義字元！break 望採納 java加減乘除運算的...