1樓：
var a:integer; x,y:real;
begin
read(x);
if x<1 then a:=-1 else a:=trunc(x/10);
case a of
-1:y:=0;
0:y:=x;
1:y:=10;
2,3:y:=-0.5*x+20;
else y:=-2*x+40;
end;
write(y:0:1);
end.
用了一句if語句，可以嗎？
2樓：吳國聖
好簡單啊。。。 樓上亂寫
3樓：匿名使用者
全部都是邏輯判斷，只要輸入x，然後根據題意寫if語句來給y賦值，最後輸出就搞定了。程式大體是這樣：
varx,y:longint;
begin
readln(x);
if x<0 then y:=0;
if (x>=0) and (x<10) then y:=x;
if (x>=0) and (x<20) then y:=10;
if (x>=20) and (x<40) then y:=x div 2+20;
if x>=40 then y:=2*x+40;
writeln(y);
end.
編寫程式VB，vb程式編寫
private sub form load dim s 50 i as integerrandomize for i 0 to 49 s i int rnd 100 1list1.additem s i next end sub private sub command1 click dim n,i ...
編寫程式求，編寫程式 求1 3 5 7 99 101的值，java語言
include int main int i,j,sum1 0,sum2 0 for i 1 i 101 i 4 sum1 i for j 3 j 99 j 4 sum2 j printf sum d sum1 sum2 return 0 int a 0,b 0 for int i 1 i 101 ...
用vb語言編寫程式，用VB語言編寫程式
我用兩個文字框和乙個命令按鈕來實現 其中文字框 text1 用來存放 輸入資料 text2用來存放處理後的結果 用command1實現以上功能 private sub command1 click text2.text val text1.text 10end sub 你把要求說的不太詳細，我只是按...
利用組合語言編寫程式，利用組合語言編寫程式
採納答案，用錯了語言。題目說 片內ram.這應該是 51 微控制器的。下面的程式，是求a b的平方和，存入c單元。mov a,30h call fing fang mov 32h,a mov a,31h call fing fang add a,32h mov 32h,a sjmp fing fan...
編寫程式，求1 3 5 799 101的值謝謝
給你乙個最簡單的運算方式吧 輸入n為你要計算的數值 然後是判斷語句 inti 0 if n 1 4 0 else i就是最終值 其實現要分析好邏輯就可以了 上面的兩個回答也都是正確的 只是沒有對演算法去計算 浪費了計算時間 include main printf 1 3 5 7 101dezhi s...