当前位置：新励学网 > 秒知问答 > 信息学奥赛关于Pascal程序

信息学奥赛关于Pascal程序

发表时间：2024-07-18 11:29:49 来源：网友投稿

答：可以，只要在计算中不用到常量或者变量

var

a,b:longint;

begin

readln(a,b);

writeln(a+b);

end.

begin

writeln(5.6*5.6*6:0:2);//保留了两位小数

end.

const

pi=3.1415926;

begin

writeln(pi*7*7*2+2*pi*7*12:0:2);//保留了两位小数，可以自己改

end.

var

a,b,c,d:longint;

begin

readln(a,b,c,d);//输入分数

writeln(a+b+c+d);//总分

writeln((a+b+c+d)/4);输出平均分

end.

我国宋代的数学家秦九韶也提出了“三斜求积术”，它与海伦公式基本一样。假设有一个三角形，边长分别为a、b、c，三角形的面积S可由以下公式求得：S=√[p(p-a)(p-b)(p-c)]而公式里的p为半周长：p=(a+b+c)/2

根据海伦公式

var

p:real;

begin

p:=(25.76+74.03+59.31)/2;

writeln(sqrt(p*(p-25.76)*(p-74.03)*(p-59.31)));

end.

var

i,j:longint;

begin

fori:=1to150div2do

forj:=1to150div3do

if(i*2+j*3=150)and(i+j=65)then

writeln(i,'',j);//分别输出自行车和三轮车的数量

end.

var

a,b,c:integer;

begin

a:=36;

b:=48;

c:=64;

b:=b+adiv3;

c:=c+adiv3;

a:=adiv3;

writeln(a,'',b,'',c);

a:=a+bdiv3;

c:=c+bdiv3;

b:=bdiv3;

writeln(a,'',b,'',c);

a:=a+cdiv3;

b:=b+cdiv3;

c:=cdiv3;

writeln(a,'',b,'',c);

//编得有点难看见谅

end.

8.最后一题题意有点看不懂

望解释更明晰

免责声明：本站发布的教育资讯（图片、视频和文字）以本站原创、转载和分享为主，文章观点不代表本网站立场。

如果本文侵犯了您的权益，请联系底部站长邮箱进行举报反馈，一经查实，我们将在第一时间处理，感谢您对本站的关注！