1樓:匿名使用者
不太明白,就給個偽**吧
readln(a,b);
x:=trunc(a);
y:=trunc(b);
z:=x;
x:=y;
y:=z;
如果要輸出小數的話,後面加上就ok了
2樓:匿名使用者
應該是用字串處理吧? **如下
var s:string;
len,i,j,n,m,l1,lend,l2,r1,r2:longint;
begin
readln(s);
len:=length(s);
l1:=1;
for i:=1 to len do
begin
if s[i]='.' then if l2=0 then l2:=i-1
else r2:=i-1;
if s[i]=' ' then begin lend:=i; r1:=i+1; end;
end;
for i:=r1 to r2 do write(s[i]);
for i:=l2+1 to lend do write(s[i]);
for i:=l1 to l2 do write(s[i]);
for i:=r2+1 to len do write(s[i]);
end.
輸入: 10.2 18.66
輸出: 18.2 10.66
用pascal求下面幾題....
3樓:鼠鼠俠
設長為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. 給分 給分!!!!~~~給分吧 4樓:司歡欣 應該沒錯 自己驗算一遍 有部分語句無用 只是增加可讀性第一題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. 給分 給分!!!!~~~ function swap a,b swap a b 用c語言編寫一個程式,從鍵盤上輸入兩個字元給字元變數a,b,並輸出變數a,b的值。程式 如下 include 編譯預處理命令 int main int argc,char argv 主函式,字元的宣告 擴充套件知識 matlab變數的特點 不需事... include int main return 0 include int fun int a,int b int main 1.include int main return 0 2.include int fun int a,int b int main int fun int a,int b ... include int main include void main include void main 這種情況 不能實現吧 就像 連個杯子 一個裝滿水,一個裝滿牛奶一樣,你不用第三個杯子 是不可能將 水與牛奶對調的!程式設計從鍵盤輸入兩個整數分別給變數a和b,要求在不藉助於其他變數的條件下,將變...由鍵盤輸入兩個整數給變數a和b,然後輸出a和b
用c語言來寫!求助求助!從鍵盤輸入a和b兩個值,再輸入或者如果輸入則輸出a
程式設計從鍵盤輸入兩個整數分別給變數a和b,要求在不藉助於其他變