Rank: 1

UID: 334409
帖子: 5600
精华: 0
威望: 240
阅读权限: 100
注册时间: 2006-2-9

1^# 跳转到 » 倒序看帖

字体大小: tT

发表于 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。

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

豆腐

浆糊会员

Rank: 1

UID: 10569
帖子: 7151
精华: 4
威望: 52
阅读权限: 100
性别: 男
来自: 泰国
注册时间: 1970-1-1

2^#

发表于 2007-11-5 16:53 | 只看该作者

pascal语法不会

TOP

7314

浆糊会员

Rank: 1

UID: 334409
帖子: 5600
精华: 0
威望: 240
阅读权限: 100
注册时间: 2006-2-9

3^#

发表于 2007-11-5 16:55 | 只看该作者

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

TOP

蜡烛鞭三郎

浆糊会员

Rank: 1

UID: 386647
帖子: 12775
精华: 2
威望: 7
阅读权限: 100
性别: 男
来自: 仙灵洞天
注册时间: 2006-10-25

4^#

发表于 2007-11-5 16:55 | 只看该作者

连Pascal都出来了

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

早忘光了

TOP

蜡烛鞭三郎

浆糊会员

Rank: 1

UID: 386647
帖子: 12775
精华: 2
威望: 7
阅读权限: 100
性别: 男
来自: 仙灵洞天
注册时间: 2006-10-25

5^#

发表于 2007-11-5 16:57 | 只看该作者

那时候学的 Turbo Pascal

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

TOP

7314

浆糊会员

Rank: 1

UID: 334409
帖子: 5600
精华: 0
威望: 240
阅读权限: 100
注册时间: 2006-2-9

6^#

发表于 2007-11-5 16:59 | 只看该作者

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

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

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

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

TOP

熊猫烧香

浆糊会员

Rank: 1

UID: 420520
帖子: 556
精华: 0
威望: 0
阅读权限: 100
性别: 男
注册时间: 2007-4-18

7^#

发表于 2007-11-5 16:59 | 只看该作者

pascal

早忘光了

只记得Begin 和 END

嫦娥一号成为中国首颗月球卫星

TOP

蜡烛鞭三郎

浆糊会员

Rank: 1

UID: 386647
帖子: 12775
精华: 2
威望: 7
阅读权限: 100
性别: 男
来自: 仙灵洞天
注册时间: 2006-10-25

8^#

发表于 2007-11-5 17:05 | 只看该作者

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

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

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

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

TOP

傻.雲雲﹖

浆糊会员

Rank: 1

UID: 302867
帖子: 1451
精华: 0
威望: 10
阅读权限: 100
注册时间: 2005-7-27

9^#

发表于 2007-11-5 17:05 | 只看该作者

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

TOP

7314

浆糊会员

Rank: 1

UID: 334409
帖子: 5600
精华: 0
威望: 240
阅读权限: 100
注册时间: 2006-2-9

10^#

发表于 2007-11-5 17:07 | 只看该作者

e..加油加油..

我知道有高手的..

TOP

bateer

浆糊会员

Rank: 1

UID: 60203
帖子: 9058
精华: 1
威望: 80
阅读权限: 100
性别: 男
来自: sohu体育黑麦组
注册时间: 2004-2-20

11^#

发表于 2007-11-5 17:14 | 只看该作者

会delphi的都会

麦神左手一指，姚明心领神会，便拖着两米多的身躯哼哧哼哧跑到三分线附近为麦神挡拆。
于是麦神以雷霆之势摆脱防守球员，准备下一个动作，第二名防守球员没能及时跟上补防，
接着麦神以一招“旱地拔葱”腾空而起，射出一记远投——
“梆”~！
那个熟悉而亲切的声音通过卫星越过大洋，传到我们耳边，声音竟是那样的清脆，那样的真实，就像在身边一样，
它不远万里来到中国，这是一种什么精神，这是国际主义精神。
所有球迷热泪盈眶，“好铁，好铁，真真打的一手好铁！”

TOP

熊猫烧香

浆糊会员

Rank: 1

UID: 420520
帖子: 556
精华: 0
威望: 0
阅读权限: 100
性别: 男
注册时间: 2007-4-18

12^#

发表于 2007-11-5 17:26 | 只看该作者

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

这个说的比较片面

学过 delphi

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

嫦娥一号成为中国首颗月球卫星

TOP

7314

浆糊会员

Rank: 1

UID: 334409
帖子: 5600
精华: 0
威望: 240
阅读权限: 100
注册时间: 2006-2-9

13^#

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

TOP

流泪的稻草人