[求助]有人會1個非常簡單的pascal語言嗎?!

7314

Assignment of Lecture 4 For S2A2
1.        鍵盤輸入一數，利用case語句製作下列的選單，
R. Round. ( 進行取整 )
A. Absolute Value. ( 計算絕對值 )
C. Cosine ( 計算餘弦函數，即cos )
        根據輸入( S/L/C, 小寫同樣有效) , 執行相對應的處理。如圖，
當選擇 R 時，進行取整。
當選擇 A 時，計算絕對值。
當選擇 C 時，計算cos。
當輸入不正確時，需作出提示。

7314

我也不會..女朋友突然說明天要交作業..讓我做..

7314

原帖由 蜡烛鞭三郎 于 2007-11-5 16:57 发表
那时候学的 Turbo Pascal

可能我爸还记得 他以前大学里就是教这个的

哇..我女朋友就是要用TB...

伱能幫我嘗試下寫嗎..?!

7314

e..加油加油..

我知道有高手的..

7314

var
  x:real;R,A,C,y:char;
begin
  write('input calue of x:');
  readln(x);
  write('Operations: R.Round. A.Absolute Value. C.Cosine. Execute(R/A/C):');
  readln(y);
  case y of
   'R':R:=round(x);writeln(round(x)=');
   'A':A:=abs(x);writeln(abs(x)=');
   'C':C:=cos(x);writeln(cos(x)=');
  else writeln('Invalid Input.');
  end;
end.
請高手幫改..

7314

我都沒學過..剛剛亂編的..