浆糊论坛-RO小站 » 一起来浆糊 » [求助]有人會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, 小寫同樣有效) , 執行相對應的處理。如圖，
[img]http://p15.freep.cn/p.aspx?u=v20_p15_p_0711051649257774_0.jpg[/img]當選擇 R 時，進行取整。
[img]http://p15.freep.cn/p.aspx?u=v20_p15_p_0711051649429719_0.jpg[/img]當選擇 A 時，計算絕對值。
[img]http://freep.cn/p.aspx?u=v20__p_0711051650113383_0.jpg[/img]當選擇 C 時，計算cos。
[img]http://p15.freep.cn/p.aspx?u=v20_p15_p_0711051650479256_0.jpg[/img]當輸入不正確時，需作出提示。

豆腐 发表于 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

[quote]原帖由 [i]蜡烛鞭三郎[/i] 于 2007-11-5 16:57 发表 [url=http://bbs.rohome.net/redirect.php?goto=findpost&pid=8451187&ptid=851017][img]http://bbs.rohome.net/images/common/back.gif[/img][/url]
那时候学的 Turbo Pascal

可能我爸还记得 他以前大学里就是教这个的 [/quote]
哇..我女朋友就是要用TB...

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

熊猫烧香 发表于 2007-11-5 16:59

pascal

早忘光了

只记得Begin 和 END

蜡烛鞭三郎 发表于 2007-11-5 17:05

[quote]原帖由 [i]7314[/i] 于 2007-11-5 16:59 发表 [url=http://bbs.rohome.net/redirect.php?goto=findpost&pid=8451202&ptid=851017][img]http://bbs.rohome.net/images/common/back.gif[/img][/url]

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

伱能幫我嘗試下寫嗎..?! [/quote]

等我爸回来问问看吧 他现在在东京 大概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

[quote]原帖由 [i]bateer[/i] 于 2007-11-5 17:14 发表 [url=http://bbs.rohome.net/redirect.php?goto=findpost&pid=8451288&ptid=851017][img]http://bbs.rohome.net/images/common/back.gif[/img][/url]
会delphi的都会 [/quote]


这个说的比较片面

学过 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

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

查看完整版本: [求助]有人會1個非常簡單的pascal語言嗎?!