Question

信息学奥赛 关于Pascal程序

问：在Pascal语言编程中，可以没有变量或没有常量吗？
顺序结构练习题
1.加法计算器：编程由键盘输入两个整数a和b，计算出它们的和并输出到屏幕上。
2.求边长5.6的正立方体表面积。
3.已知圆柱体的高为12，底面园的半径为7，求圆柱体表面积。
4.计算某次考试语文、数学、英语和计算机等四科的总成绩与平均成绩。（请用输入语句从键盘输入各科成绩）
5.已知△ABC中的三边长分别为25.76,74.03，59.31，求△ABC的面积。
6.某车棚存有自行车和三轮车共65辆,它们的轮子数合计为150个。求该棚内存有的自行车和三轮车各是多少辆？
7.甲、乙、丙三人分别有磁带36,48,64盒。先由甲把自己的磁带平均分为三份，分给乙、丙各一份，自己留下一份；接着是乙，最后是丙，都按甲的方法处理。编程输出甲、乙、丙在上述过程中个人的磁带数分别是多少？（输出所有的中间结果）
8.五位好朋友相聚。第一位朋友带来了很多糖块赠送给各位朋友，使每人的糖块在各自原有的基础上翻了一倍；接着第二为好友也同样向每人赠送糖块，他同样使每人的糖块在各人已有的数量上翻了一倍；第三、第四、第五位好友都照此办理。经过这样的赠送之后，每人糖块恰好都为32块。问各好友原先的糖块数分别是多少

Answer 1

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

1.
var
a,b:longint;
begin
readln(a,b);
writeln(a+b);
end.

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

3.
const
pi=3.1415926;
begin
writeln(pi*7*7*2+2*pi*7*12:0:2);//保留了两位小数，可以自己改
end.

4.
var
a,b,c,d:longint;
begin
readln(a,b,c,d);//输入分数
writeln(a+b+c+d);//总分
writeln((a+b+c+d)/4);输出平均分
end.

5.
我国宋代的数学家秦九韶也提出了“三斜求积术”，它与海伦公式基本一样。 假设有一个三角形，边长分别为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.

6.
var
i,j:longint;
begin
for i:=1 to 150 div 2 do
for j:=1 to 150 div 3 do
if (i*2+j*3=150) and (i+j=65) then
writeln(i,' ',j);//分别输出自行车和三轮车的数量
end.

7.
var
a,b,c:integer;
begin
a:=36;
b:=48;
c:=64;
b:=b+a div 3;
c:=c+a div 3;
a:=a div 3;
writeln(a,' ',b,' ',c);
a:=a+b div 3;
c:=c+b div 3;
b:=b div 3;
writeln(a,' ',b,' ',c);
a:=a+c div 3;
b:=b+c div 3;
c:=c div 3;
writeln(a,' ',b,' ',c);
//编得有点难看 见谅
end.

8.最后一题题意有点看不懂
望解释更明晰

Answer 2

QQ:739227481 海量资料

Answer 3

这些简单题一般入门不久即可解决。当然还需要一定的数学知识。
建议查找相关资料。

Answer 4

应该可以没有常量或是没有变量，根据实际需要而定。
下面的题目我就不写了 ^_^

Answer 5

可以没有。
这种题目一定要自己做，网上查到的不是你自己的。