浆糊论坛-RO小站 - Powered by Discuz! Board

标题: [求助]有人會1個非常簡單的pascal語言嗎?! [打印本页]

作者: 7314 时间: 2007-11-5 16:52 标题: [求助]有人會1個非常簡單的pascal語言嗎?!

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

當選擇 R 時，進行取整。

當選擇 A 時，計算絕對值。

當選擇 C 時，計算cos。

當輸入不正確時，需作出提示。

作者: 豆腐 时间: 2007-11-5 16:53

pascal语法不会

作者: 7314 时间: 2007-11-5 16:55

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

作者: 蜡烛鞭三郎 时间: 2007-11-5 16:55

连Pascal都出来了

好象以前高中计算机比赛时候学过

早忘光了

作者: 蜡烛鞭三郎 时间: 2007-11-5 16:57

那时候学的 Turbo Pascal

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

作者: 7314 时间: 2007-11-5 16:59

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

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

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

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

作者: 熊猫烧香 时间: 2007-11-5 16:59

pascal

早忘光了

只记得Begin 和 END

作者: 蜡烛鞭三郎 时间: 2007-11-5 17:05

原帖由 7314 于 2007-11-5 16:59 发表

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

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

等我爸回来问问看吧他现在在东京大概11月底回上海

作者: 傻.雲雲﹖ 时间: 2007-11-5 17:05

.........人家明天就要交作业

作者: 7314 时间: 2007-11-5 17:07

e..加油加油..

我知道有高手的..

作者: bateer 时间: 2007-11-5 17:14

会delphi的都会

作者: 熊猫烧香 时间: 2007-11-5 17:26

原帖由 bateer 于 2007-11-5 17:14 发表
会delphi的都会

这个说的比较片面

学过 delphi

但是DOS下的操作，不是人人都会的

作者: 7314 时间: 2007-11-5 18:54 标题: 不倫不類..

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.
請高手幫改..

作者: 流泪的稻草人 时间: 2007-11-5 19:13

Pasca貌似现在没什么人用了,好象已经做为教材了,最基础的程序入门!

作者: 7314 时间: 2007-11-5 19:22

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

欢迎光临浆糊论坛-RO小站 (http://bbs.rohome.cn/)