一、读程序写结果。
i,j,k,sum1,sum2:integer;
beginsum1:=0;
sum2:=0;
k:=1;while k<=10 do
beginif (k mod 2=0) then
for i:=1 to 5 do
sum1:=sum1+i
else for j:=1 to 5 do
sum2:=sum2+j;
k:=k+1;
end;writeln(sum1);
writeln(sum2);
end.输出：
n,i,a1,a2,a3:integer;
beginreadln(n);
a1:=3;
a2:=5;
write(a1,’ a2);
for i:=3 to n do
begina3:=a1+a2;
a1:=a2;
a2:=a3;
write(a3,’
end;writeln;
end.输入：10
输出：a:array[‘a’..z’]of integer;
b:char;
beginrepeat
if b in[‘a’..z’] then a[b]:=a[b]+1;
until b=’?
for b:=’a’ to ‘z’ do
if a[b]<>0 then write(b,’:a[b],’
end.输入：what is your name?
输出：二、完善程序。
由键盘输入一个正整数n（1≤n≤100），求s=1+2-3+4+5-6+7+8-9+……n。并统计其中有多少个减号。
var i,s,k,n:integer;
beginreadln(n);
for i:=1 to do
if then
begink
s:=s-i;
endelse s
writeln(‘k=’,k,’ s=’,s);
end.三、编程。
1.一光滑墙壁高x尺，有一个小虫从墙底部向上爬，每分钟爬y尺。但每爬一分钟后都要休息一分钟，在休息期间又下滑一尺。
编程：输入x和y，计算该小虫最少几分钟可爬到顶端。如：
输入：4 2 输出5
2.一个数“含有0”是指这个数至少有某位数字为0.小明对那些“含有0”的自然数很感兴趣，想挑出来进行研究。
那么1~n当中“含有0”的自然数有多少个？小明想在1秒钟内得到答案，你能帮他做到吗？
输入：n（1≤n≤2^31）
输出：1~n之间“含有0”的自然数。
输入：105
输出：15
Pascal基本教程
第十章指针。10.1 指针的动态变量。1.定义指针类型。在turbo pascal中，指针变量中存放的某个存储单元的地址，即指针变量指向某个存储单元。一个指针变量仅能指向某一种类型的存储单元，这种数据类型是在指针类型的定义中确定的，称为指针类型的基类型。指针类型定义如下 类型名 基类型名 例如 ty...
PASCAL高级语言
第一章绪论。1 1 pascal语言简介。pascal语言是当前最流行的几种程序设计语言之一，属于编译型的高级语言。欧美国家越来越多的大学将pascal作为计算机教学的第一程序设计语言，主要因为它有利于养成良好的编程习惯。pascal语言由瑞士苏黎世大学的n wirth教授设计，于1971年正式发表...
pascal入门测验2 附答案
小学复赛集训2 1 问题描述 某科技展教馆的团体入场费30人为50元，超过30人后，每增加1 人增加费用1元，为了使所有人平均后的每人费用不超过某个指定的费用m 1输出 zuishaorenshu 31var i,j longint m,n real begin write m readln m i...