1樓：鼠鼠俠
設長為a 寬為b 高為c
則依題意：
a+b+c=12 1式
a*a+b*b+c*c=8*8=64 2式
欲求表面積表示為（a*b+a*c+b*c）*2
則由1式兩邊平方得 a*a+b*b+c*c+（a*b+a*c+b*c）*2=144
減去2式既得結果：表面積=（a*b+a*c+b*c）*2=144-64=80
1.求長方體的面積,長,寬,高的值由鍵盤輸入.
2.讀入攝氏溫度c,寫程式將它轉換成華氏溫度f輸出.已知f=9c/5+32
3.輸入三個字元,然後按輸入字元次序輸出這三個字元,並輸出每個字元的序號,最後按與輸入字元相反
的次序輸出這三個字元.(求序號用ord函式)
4.輸入一個三位自然數,把這個數的百位與個位數對調,輸出對調後的自然數.
5.鍵盤輸入兩個小數,經過取整操作後,將其整數部分交換值後輸出.
問題補充：1,從鍵盤輸入a,b,c求一元二次方程ax2+bx+c=0的兩個實數根(不考慮無解的情況).
2,輸出兩個自然數相除的商和餘數.
分析:設被除數,除數,商和餘數,分別為a,b,c,d,均為變數,且都是整數型別.題中未給出具
體的自然數a,b,可採用鍵盤輸入方式.
① 給出提示,從鍵盤輸入a, b;
② 顯示兩數相除的數學形式;
③ 求出a除以b的商c;
④ 求出a除以b的餘數d;
⑤ 緊接等式後面輸出顯示商和餘數.
3,加法計算器:程式設計由鍵盤輸入兩個整數a和b,計算出它們的和並輸出到螢幕上.
4,計算某次考試語文,數學,英語和計算機等四科的總成績與平均成績.
(請用輸入語句從鍵盤輸入各科成績)
5,交換兩個變數的值:由鍵盤輸入兩個正整數a和b,程式設計交換這兩個變數的值.
應該沒錯 自己驗算一遍 有部分語句無用 只是增加可讀性
第一題varx,y,c,s:real;
begin
write(『chang:』); readln(x);
write(『kuan:』); readln(y);
write(『gao:』); readln(h);
s:=x*y*2+x*h*2+y*h*2;
writeln(s);
end.
第二題varc,f;integer;
begin
readln(c);
f:=9*c/5+32;
writeln(f);
end.
第三題vara:array[1..3] of char;
max:integer;
k：char；
flag:boolearn;
begin
max:=0;
for i:=1 to 3 do begin
write(『shu ru zi mu:』);
readln(a[i]);
end;
for i:=1 to 3 do begin
write(a[i],『 』);
end;
flag:=true;
repeat
if ord(a[i]) k:=a[i]; a[i]:=a[i+1]; a[i+1]:=k; flag:=flase; until flag:=true; for i:=1 to 3 do begin write(a[i],『 』); end; end. 第4 題 varw,a,b,c:integer; begin readln(w); a:=w mod 10; b:=(w mod 100-a) div 10; c:=w div 100; w:=b*100+c*10+a; writeln(w); end. w 為輸入自然數 第五題vara,b:real; k:integer; begin readln(a,b); a:=trunc(a); b:=trunc(b); k:=a; a:=b; b:=k; writeln(a,' ',b); end. 補1 var a,b,c:integer; x1,x2,d:real; begin write('a*x*x+b*x+c=0 input a,b,c'); readln(a,b,c); d:=sqr(b)-4*a*c; x1:=(-b+sqrt(d))/(2*a); x2:=(-b-sqrt(d))/(2*a); writeln(x1,' ',x2); end. 補2 var a,b,c,d:integer; begin write('a/b=?..? input a,b') readln(a,b); c:=a div b; d:=a mod b; writeln('shang',c,' yu',d); end. 補3 var a,b,c:integer; begin write('a+b=? input a,b'); readln(a,b); c:=a+b; writeln('a+b=',c); end. 補4 var a,b,c,d,e:integer; f:real; begin write('yu wen'); readln(a); write('shu xue'); readln(b); write('ying yu'); readln(c); write('ji suan ji'); readln(d); e:=a+b+c+d; f:=e/4; writeln('zong fen',e,'ping jun',f:4:2); end. 補5 var a,b:real; k:integer; begin readln(a,b); k:=a; a:=b; b:=k; writeln(a,' ',b); end. 給分 給分！！！！~~~給分吧 2樓：司歡欣 應該沒錯 自己驗算一遍 有部分語句無用 只是增加可讀性第一題var x,y,c,s:real; begin write(『chang:』); readln(x); write(『kuan:』); readln(y); write(『gao:』); readln(h); s:=x*y*2+x*h*2+y*h*2; writeln(s); end. 第二題var c,f;integer; begin readln(c); f:=9*c/5+32; writeln(f); end. 第三題var a:array[1..3] of char; max:integer; k：char； flag:boolearn; begin max:=0; for i:=1 to 3 do beginwrite(『shu ru zi mu:』); readln(a[i]); end; for i:=1 to 3 do beginwrite(a[i],『 』); end; flag:=true; repeat if ord(a[i]) a[i]:=a[i+1]; a[i+1]:=k; flag:=flase; until flag:=true; for i:=1 to 3 do beginwrite(a[i],『 』); end; end. 第4 題 varw,a,b,c:integer; begin readln(w); a:=w mod 10; b:=(w mod 100-a) div 10; c:=w div 100; w:=b*100+c*10+a; writeln(w); end. w 為輸入自然數 第五題var a,b:real; k:integer; begin readln(a,b); a:=trunc(a); b:=trunc(b); k:=a; a:=b; b:=k; writeln(a,' ',b); end. 補1var a,b,c:integer; x1,x2,d:real; begin write('a*x*x+b*x+c=0 input a,b,c'); readln(a,b,c); d:=sqr(b)-4*a*c; x1:=(-b+sqrt(d))/(2*a); x2:=(-b-sqrt(d))/(2*a); writeln(x1,' ',x2); end. 補2var a,b,c,d:integer; begin write('a/b=?..? input a,b')readln(a,b); c:=a div b; d:=a mod b; writeln('shang',c,' yu',d); end. 補3var a,b,c:integer; begin write('a+b=? input a,b'); readln(a,b); c:=a+b; writeln('a+b=',c); end. 補4var a,b,c,d,e:integer; f:real; begin write('yu wen'); readln(a); write('shu xue'); readln(b); write('ying yu'); readln(c); write('ji suan ji'); readln(d); e:=a+b+c+d; f:=e/4; writeln('zong fen',e,'ping jun',f:4:2); end. 補5 var a,b:real; k:integer; begin readln(a,b); k:=a; a:=b; b:=k; writeln(a,' ',b); end. 給分 給分！！！！~~~ varnum array 0.10000 of integer n,i longint begin readln n for i n downto 1 do num i 2 i for i n downto 1 do begin if num i 10 then begin num i 1 num ... 遊戲吧，各種遊戲加源 不過大部分都只是小遊戲.大型遊戲用pascal可能有些困難.用pascal可編什麼遊戲 新手推薦文字遊戲 可以用到crys 來清屏，隨便編個十萬字不是夢還賊好玩 前提是劇情和腦洞 只要學會順序結構和簡單的迴圈就可以了 記得把pascal調成中文模式 給我一個用free pasc... 如下面的程式 syms x y s 4 x 7 y 6 p expand s 這樣得到的p就是式 在matlab中pascal 4 是什麼意思？帕斯卡矩陣 帕斯卡矩陣 由楊輝三角形表組成的矩陣稱為帕斯卡 pascal 矩陣。楊輝三角形表是二次項 x y n 後的係數隨自然數 n 的增大組成的一個三角...pascal語言求Sn a aa aaaaa aaa 有n個a 之值,其中a是數字,a等於2。n由鍵盤輸入
用pascal編的遊戲有什麼，用pascal可編什麼遊戲
請問誰知道MATLAB中pascal的用法？比如我要求