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。

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

7314

浆糊会员

Rank: 1

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

15^#

发表于 2007-11-5 19:22 | 只看该作者

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

TOP

流泪的稻草人

迷之会员

UID: 316652
帖子: 11032
精华: 7
威望: 70
阅读权限: 101
性别: 男
来自: 市区以北的某个角落~
注册时间: 2005-10-7

迷之会员

14^#

发表于 2007-11-5 19:13 | 只看该作者

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

我们要报料我们要各应我们要虎驱一震

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

熊猫烧香

浆糊会员

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

bateer

浆糊会员

Rank: 1

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

11^#

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

会delphi的都会

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

TOP

7314