口袋社区-Poke The BBS - Powered by Discuz! Board

标题: 无聊啊……大家一起学Pascal吧~ [打印本页]

作者: 最美我中文 时间: 2007-7-5 21:49 标题: 无聊啊……大家一起学Pascal吧~

Pascal:http://www.onlinedown.net/soft/5535.htm

程序01

复制内容到剪贴板

代码:

program sanjiaoxing;

const

pi=3.1415926;

var

a,b,alfa,s,c : real;

begin

readln (a,b,alfa);

alfa := alfa*pi/180;

c:=sqrt(a*b+b*b-c*a*b*cos(alfa));

s:=0.5*a*b*sin(alfa);

writeln ('C=',c,'S=',s);

readln

end.

通过三角函数，输入两边及夹角计算三角形面积/第三边
程序02

复制内容到剪贴板

代码:

program asdf(input,output);

var

a,b,c :real;

begin;

readln (a);

b:=a*3.14*a;

c:=a+20;

writeln (a,b,c);

readln

end.

定义abc为实型，然后通过得到a计算bc，输出
程序03

复制内容到剪贴板

代码:

program aaaa;

var m:integer;

  pf:longint;

  begin

   for m:=1 to 20 do

     begin

        pf:=m*m;

           writeln(m,'*',m,'=',pf);

             end;

              readln;

 end.

计算20以内所有正整数的平方

作者: Фиыщд 时间: 2007-7-5 22:59

对Pasca没兴趣...

作者: 最美我中文 时间: 2007-7-6 08:53

10月份有竞赛所以无聊写了些东西……= =

作者: liuyanghejerry 时间: 2007-7-14 11:53

deophi是强大的，VB的简单＋VC的强大……

作者: 最美我中文 时间: 2007-7-14 12:47

pascal是delphi他爸爸……
SNB是NB他侄子……

作者: Лшдглшф 时间: 2007-7-17 17:53

Delphi学习中。。。

作者: liuyanghejerry 时间: 2007-7-22 11:03

同LS，艰苦学习中……

作者: 最美我中文 时间: 2007-7-22 11:05

Pascal是delphi他爸爸
然后……
你们学Delphi
我学Pascal
这意味着……

[yct14][yct14]

欢迎光临口袋社区-Poke The BBS (https://ww.poketb.com/)