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