信息学奥赛pascal教程买什么书

发布网友 发布时间：2022-04-27 04:54

我来回答

共5个回答

热心网友 时间：2022-06-26 13:22

。。。。。。。。小学是考BASIC，初中才是PASCAL
其实感觉BASIC功能比PASCAL强
另外有高中级别
至于适合小学生学PASCAL的教程
应该没有。。。。。

热心网友 时间：2022-06-26 13:22

《NOIP导刊》
《青少年信息学奥林匹克竞赛培训教材 pascal语言（初中版）》

参考资料：自己

热心网友 时间：2022-06-26 13:23

有，是张文双和车辉主编的Pascal语言初中版（第2版）。北京理工大学出版社出版的。

热心网友 时间：2022-06-26 13:23

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

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:=;
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.最后一题题意有点看不懂
望解释更明晰

热心网友 时间：2022-06-26 13:24

奥赛金钥匙 or 奥赛经典（语言篇）（基础篇）