pascal鍵盤輸入兩個小數經過取整操作後將其整

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.

給分 給分！！！！~~~

由鍵盤輸入兩個整數給變數a和b，然後輸出a和b

function swap a,b swap a b 用c語言編寫一個程式，從鍵盤上輸入兩個字元給字元變數a，b，並輸出變數a，b的值。程式 如下 include 編譯預處理命令 int main int argc,char argv 主函式，字元的宣告 擴充套件知識 matlab變數的特點 不需事...

用c語言來寫！求助求助！從鍵盤輸入a和b兩個值，再輸入或者如果輸入則輸出a

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 ...

程式設計從鍵盤輸入兩個整數分別給變數a和b，要求在不藉助於其他變

include int main include void main include void main 這種情況 不能實現吧 就像 連個杯子 一個裝滿水，一個裝滿牛奶一樣，你不用第三個杯子 是不可能將 水與牛奶對調的！程式設計從鍵盤輸入兩個整數分別給變數a和b，要求在不藉助於其他變數的條件下，將變...