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以内所有正整数的平方

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

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

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