1樓：
哪怕我是大牛我也要告訴你，缺那麼多，加你那看不懂得廢話，鴨梨很大啊……
2樓：匿名使用者
vara,b,n1,n2,x,y,z,c,f,h,m1,m2,m,n,mt,nt,r,t:longint;
begin
f:=2;
begin
while f<>3 do
begin
writeln('1.分數加法 2.分數減法 3.退出程式');
readln(f);
writeln('請輸入a 和 b 兩個加(減)數');
writeln('a數的 分子: ');
readln(m1);
writeln('a數的 分母: ');
readln(n1);
writeln('b數的 分子: ');
readln(m2);
writeln('b數的 分母: ');
readln(n2);
begin
if f=1 then begin
n:=n1*n2;
m:=(n1*m2)+(n2*m1);
mt:=m;
nt:=n;
begin
if mn then c:=m else c:=n;
while (c mod m<>0) or (c mod n<>0) do c:=c+1;
n1:=n1*c;
m1:=m1*c;
n2:=n2*c;
m2:=m2*c;
if m2>m1 then begin
t:=m1; m1:=m2; m2:=t;
end;
m1:=m1-m2;
writeln(n1,'分之',m1);
end;
end;
end;
end;
end.
我也只是六年級小學生，減法好像不行，隨便玩玩的給分啊啊啊啊啊啊啊啊！！！
3樓：匿名使用者
告訴我什麼是分數交叉加減運算
pascal語言的程式
第一題，很簡單，我就不說了。varg,s,b,k longint begin k 0 for b 1 to 9 do for s 0 to 9 do for g 0 to 9 do if b s and s g and g b and s b g and not s b in 2,3,5,7,11,...
pascal語言 輸入n至m（包括n和m）間有多少個迴文素數。（0nm）
思路就是從n到m迴圈，然後判斷 程式 vara1,a2,a3,a4 longint function fun1 a longint boolean 判斷迴文數函式 var s string p,p1 longint begin str s,a 數字轉字串 p1 length s 測串長 for p ...
帶分數加法與帶分數乘法計算方法帶分數的加減法的計算方法？
帶分來數加法計算方法 源 先把帶分數化成 假分數bai du假分數 用那個前面的單獨zhi的數乘dao分母再加上分子，這個新得出來的數作為分子，分母不變 再進行加法運算。如果分母相同的，分母不變，分子相加，能約分的要約成最簡分數 如果分母不相同的，先把分母通分成分母相同的，一般取最小公倍數，再把分子...