Pascal语言编程基础程序

Pascal语言编程基础程序

（常州市）

十进制转二进制

var i,n,j:longint;

a:array[1..100] of longint;

begin

readln(n);

i:=1;

while n<>0 do

begin

a[i]:=n mod 2;

i:=i+1;

n:=n div 2;

end;

write('Bin:');

for j:= i-1 downto 1 do

write(a[j])

end.

数组元素删除

var a:array[1..10]of longint;

i,t,x:longint;

begin

read(x);

for i:=1 to 10 do

a[i]:=2*i-1;

t:=a[x];

for i:=x+1 to 10 do

a[i-1]:=a[i];

for i:=1 to 9 do

write(a[i]:4);

end.

数组元素删除2

var a:array[1..11]of longint;

i:longint;

begin

for i:=1 to 10 do

a[i]:=i;

a[11]:=a[1];

for i:= 1 to 10 do

a[i]:=a[i+1];

for i:= 1 to 10 do

write(a[i]:4); end.

数组元素的移动

var a:array[1..10] of longint;

s,n,i,x,t:longint;

begin

readln(n);

for i:=1 to n do

read(a[i]);

readln(x);

s:=a[x];

for i:=x+1 to n do

a[i-1]:=a[i];

for i:=1 to n-1 do

write(a[i],' ');

write(s);

end.

排除所有异形基因

var a:array[1..100] of longint;

n,g,j,i,wz:longint;

begin

readln(n);

for i:=1 to n do read(a[i]);

g:=0;

for i:=1 to n do

if sqr(a[i]) mod 7=1

then begin

wz:=i;

for j:=wz+1 to n do

a[j-1]:=a[j];

g:=g+1

end;

write(a[1]);

for i:=2 to n-g do

write(' ',a[i]);

writeln;

end.

排除第一个异形基因

var a:array[1..100] of longint;

n,i,wz:longint;

begin

readln(n);

for i:=1 to n do read(a[i]);

for i:=1 to n do

if sqr(a[i]) mod 7=1

then begin wz:=i; break; end;

for i:=wz+1 to n do

a[i-1]:=a[i];

write(a[1]);

for i:=2 to n-1 do

write(' ',a[i]);

writeln;

end.

排除所有

var i,n,j,s:longint;

a:array[0..100] of longint;

begin

readln(n);

i:=0;

while n<>0 do

begin

a[i]:=n mod 2;

i:=i+1;

n:=n div 2;

end;

s:=0;

for j:=i-1 downto 0 do

begin

if (s=0)and(a[j]=1) then begin write(j);s:=1; end

else if (a[j]=1) then write(' ',j);

end;

writeln;

end.

排名

var a:array[1..100] of real;

xh:array[1..100]of longint;

n,j,i,k:longint;

t:real;

begin

read(n);

for i:=1 to n do read(a[i]);

for i:=1 to n do begin

for j:=1 to n-1 do

if a[j]

a[j]:=a[j+1];

a[j+1]:=t;

xh[j]:=xh[j+1];

xh[j+1]:=k;

end;

end;

for i:=1 to n do

writeln('NO',i,':',xh[i ]);

end.

排队迟到

var n,x,y,wz,xwz,i :longint;

a:array[1..100]of longint;

begin

readln(n,x,y);

for i:=1 to n do read(a[i]);

for i:=1 to n do

if x=a[i] then xwz:=i;

wz:=xwz+1;

for i:=n downto wz do

a[i+1]:=a[i];

a[wz]:=y ;

write(a[1]);

for i:=2 to n+1 do

write(' ',a[i]);

writeln;

end.

元素插入有序数组

var n,i,x,y,wz,m:longint;

a:array[1..100]of longint;

begin

readln(n);

readln(m);

for i:=1 to m do

read(a[i]);

wz:=m+1;

for i:= 1 to m do

if n<=a[i] then begin wz:=i; break;end;

if wz<>0 then

for i:=m downto wz do

a[i+1]:=a[i];

a[wz]:=n ;

write(a[1]);

for i:=2 to m+1 do

write(' ',a[i]);

writeln;

end.

数组平移

var a:array[1..11]of longint;

i:longint;

begin

for i:=1 to 10 do

a[i]:=i;

a[11]:=a[1];

for i:= 1 to 10 do

a[i]:=a[i+1];

for i:= 1 to 10 do

write(a[i]:4);

end.

排除第一个异形基因

var a:array[1..100] of longint;

n,i,wz:longint;

begin

readln(n);

for i:=1 to n do read(a[i]);

for i:=1 to n do

if sqr(a[i]) mod 7=1

then begin wz:=i; break; end;

for i:=wz+1 to n do

a[i-1]:=a[i];

write(a[1]);

for i:=2 to n-1 do

write(' ',a[i]);

writeln;

end.

各位数之和2

var a:string;

s,i:longint;

begin

readln(a);

s:=0;

for i:=1 to length (a) do

s:=s+ord(a[i])-48;

writeln(s);

end.

八进制回文数-提高

var a:array[1..100] of longint;

n,i,j,t,l,r,f:longint;

begin

read(n);

i:=1;

while n<>0 do begin

a[i]:=n mod 8;

i:=i+1;

n:=n div 8;

end;

write('Oct:' );

for j:=i-1 downto 1 do

write(a[j]);

f:=0;l:=1;r:=i-1;

while l<=r do

if a[l]=a[r] then begin l:=l+1;r:=r-1; end

else begin f:=1;break; end; writeln;

if f=0 then writeln('YES')

else writeln('NO');

end.

最大公约数2

var ans,n,r,i,t:longint;

function work(a,b:longint):longint;

begin

if a mod b=0 then work:=b

else work:=work(b,a mod b); end;

begin

readln(n);

read(ans);

for i:=2 to n do

begin

read(r);

if r

ans:=work(r,ans);

end;

writeln(ans);

end.

走台阶

var n:longint;

function ztj(a:longint):longint;

begin

if a=1 then

ztj:=1

else

if a=2 then

ztj:=2

else

ztj:=ztj(a-1)+ztj(a-2);

end;

begin

readln(n);

writeln(ztj(n));

end.

自然数拆分

var n:longint;

a:array[1..100]of longint; procedure try(dep,lasti,r:longint); var

i:longint;

begin

if r<=0

then if r=0 then

begin

for i:=1 to dep-1 do write(a[i]:3); writeln

end

else

else for i:=lasti downto 1 do begin

a[dep]:=i;

try(dep+1,i,r-i);

end;

end;

begin

read(n);

try(1,n,n);

end.

自然数拆分2

var n:longint;

a:array[1..100]of longint; procedure cfs(dep,n,x:longint); var i:longint;

begin

if n=0

then begin

for i:=1 to dep-2 do

write(a[i],' ');

writeln(a[dep-1]);

end

else begin

for i:=x to n do

begin

a[dep]:=i;

cfs(dep+1,n-i,i);

end;

end;

end;

begin

readln(n);

cfs(1,n,1);

end.

自然对数的底

var

i,n,m,cc,p,k : longint;

a,b,c : array[0..10010] of longint;

Procedure addb;

var

j: longint;

begin

if m>cc then cc:=m;

for j:=1 to cc do

inc(c[j],b[j]);

for j:=cc downto 1 do

begin

inc(c[j-1], c[j] div 10);

c[j]:= c[j] mod 10;

end;

end;

Procedure divi(k:longint);

var

j,t: longint;

begin

t:=0;

j:=1;

while (j<=n+10) do

begin

b[j]:=(a[j]+t*10) div k;

t:=(a[j]+t*10) mod k;

if j>m then m:=j;

inc(j);

if (t=0) and (j>m) then break;

end;

a:=b;

end;

begin

readln(n);

fillchar(b,sizeof(b),0);

fillchar(c,sizeof(c),0);

fillchar(a,sizeof(a),0);

a[1]:=10;

m:=1;

cc:=1;

i:=2;

k:=0;

while k=0 do

begin

divi(i);

addb;

inc(i);

k:=1;

for p:=1 to cc do

if b[p]<>0 then

begin

k:=0;

break;

end;

end;

write('2.');

for i:=1 to n do

write(c[i]);

writeln;

end.

字符串逆序

Var n:string; procedure w(s:longint);

begin

if s<1 then

writeln

else

begin

write(n[s]);

w(s-1);

end;

end;

begin

readln(n);

w(length(n));

end.

猪猪的反击Var n,m,i,j,s:longint;

a:array [1..100,1..100] of longint; begin

readln(n,m);

fillchar(a,sizeof(a),0);

for i:=1 to n do

for j:=1 to m do

read(a[i,j]);

i:=1;

j:=1;

s:=a[1,1];

while i

begin

if j=m then

inc(i)

else

if a[i+1,j]

inc(j)

else

inc(i);

inc(s,a[i,j]);

end;

writeln(s);

end.

植树

Var m,n,i,j,t:longint;

a:array[1..100,1..3] of longint;

begin

readln(m,n);

t:=0;

for i:=1 to n do

readln(a[i,1],a[i,2],a[i,3]);

for i:=0 to m do

if i mod 5=0 then

begin

for j:=1 to n+1 do

if j=n+1 then

inc(t,16)

else

if (i>=a[j,1]) and (i<=a[j,2]) then

begin

inc(t,a[j,3]);

break;

end

else

continue;

end

else

continue;

t:=t*2;

writeln(t);

end.

找孪生数

var x,cx,s,i,bx,n:longint;

begin

readln(n);

s:=0;

for x:=1 to n do

begin

cx:=0;

for i:=2 to trunc(sqrt(x)) do

if x mod i=0 then cx:=cx+i+x div i;

if i*i=x then cx:=cx-i;

cx:=cx+1;

bx:=0;

for i:=2 to trunc(sqrt(cx)) do

if cx mod i =0 then bx:=bx+i+cx div i;

if i*i=cx then bx:=bx-i;

bx:=bx+1;

if (bx=x) and (x

then begin s:=1;

writeln(x:10,cx:10);

end;

end;

if s=0

then writeln('nothing');

end.

辗转相除

var a,b,x:longint;

function f(a,b:longint):longint;

begin

if a mod b=0 then begin f:=b; end

else begin f:=f(b,a mod b); end;

end;

begin

read(a,b);

x:=a*b div f(a,b);

writeln(f(a,b),' ',x);

end.

约瑟夫1

var a:array[1..100] of 0..1;

n,m,left,count,wei,i:integer; begin

readln(n,m);

for i:=1 to 100 do a[i]:=1; left:=n;

count:=0;

wei:=0;

while left>1 do

begin

wei:=wei+1;

if wei>n then wei:=1;

count:=count+a[wei];

if count=m

then begin

count:=0;

a[wei]:=0;

left:=left-1;

end;

end;

for i:=1 to n do

if a[i]=1

then writeln(i);

end.

小鸟的阵地

var n:longint;

function f(a:longint):longint;

begin

if a=1 then

f:=1

else

if a=2 then

f:=2

else

f:=f(a-1)+f(a-2);

end;

begin

readln(n);

writeln(f(n));

end.

小黄的短信

var a:array [1..1000] of string;

b:array [1..10000] of string;

m,n,i,j,t:longint;

begin

readln(m,n);

t:=0;

for i:=1 to m do

readln(a[i]);

for j:=1 to n do

readln(b[j]);

for i:=1 to n do

for j:=1 to m do

if pos(b[i],a[j])>0 then

begin

inc(t);

break;

end;

writeln(t);

end.

仙人吃牛肉

var

n,i,j,k,m,s:longint;

a,b,c,d:int64;

t,r :string;

begin

readln(n);

s:=0;

for i:=3 to n-2 do

begin

a:=i;

for j:=i+1 to n-1 do

begin

b:=j;

c:=a*a+b*b;

d:=round(sqrt(c));

if (d*d=c) and (d<=n) then

inc(s);

end;

end;

writeln(s);

end.

矩阵杨辉三角形

var

a:array [0..100,0..100] of longint;

n,i,j:longint;

begin

readln(n);

fillchar(a,sizeof(a),0);

a[1,1]:=1;

for i:=2 to n do

for j:=1 to i do

a[i,j]:=a[i-1,j]+a[i-1,j-1];

for i:=1 to n do

begin

for j:=1 to i do

write(a[i,j]:4);

writeln;

end;

end.

哥德巴赫猜想2

var

n,i,k,s:longint;

a:array [1..3,1..100] of longint;

function ss(a:longint):boolean;

var

j:longint;

begin

ss:=true;

if a<2 then

begin

ss:=false;

exit;

end;

for j:=2 to round(sqrt(a)) do

if a mod j=0 then

begin

ss:=false;

exit;

end;

end;

begin

readln(n);

s:=0;

for i:=1 to n div 2 do

for k:=i to n div 2 do

if (ss(i)) and (ss(k)) and (ss(n-i-k)) then

if (i<=k) and (k<=n-i-k) then

begin

inc(s);

a[1,s]:=i;

a[2,s]:=k;

a[3,s]:=n-i-k;

end;

writeln(s);

for i:=1 to s do

writeln(n,'=',a[1,i],'+',a[2,i],'+',a[3,i]); end.

汉诺塔

var

n:longint;

procedure hanoi(n:longint;a,b,c:char);

begin

if n=1 then

writeln(a,' To ',c)

else

begin

hanoi(n-1,a,c,b);

writeln(a,' To ',c);

hanoi(n-1,b,a,c);

end;

end;

begin

readln(n);

hanoi(n,'A','B','C');

end.

看电影

var a:array[1..100]of longint;

n,t,i:longint;

begin

readln(n);

for i:=1 to n do read(a[i]);

for i:=1 to n div 2 do

begin

t:=a[i];a[i]:=a[n+1-i];a[n+1-i]:=t;

end;

for i:=1 to n-1 do

write(a[i],' ');

write(a[i+1]);

end.

打印成绩单

var a:array[1..100]of longint;

n,s,i:longint; begin

readln(n);

for i:=1 to n do read(a[i]);

for i:=1 to n do

s:=s+a[i];

writeln('total:',s);

for i:=1 to n do

writeln(a[i]);

end.

美丽的黄山

var

a,b,t,n,i:longint;

begin

readln(n);

read(a);

t:=1;

for i:=2 to n do

begin

read(b);

if b>a then

begin

inc(t);

a:=b;

end;

end;

writeln(t);

end.

奶牛的相似性

var

a,b:array [1..1000,1..1000] of shortint; m,n,i,j,t:longint;

begin

readln(m,n);

for i:=1 to m do

for j:=1 to n do

read(a[i,j]);

for i:=1 to m do

for j:=1 to n do

read(b[i,j]);

t:=0;

for i:=1 to m do

for j:=1 to n do

if a[i,j]=b[i,j] then

inc(t);

writeln(t);

end.

牛的速记

var a:array ['a'..'z'] of longint;

s:string; r,k:char; i,j,max:longint;

begin

readln(s); max:=0;

while length(s)<>0 do

begin

for i:=1 to length(s) do inc(a[s[i]]);

for r:='a' to 'z' do if a[r]>max then begin max:=a[r]; k:=r; end;

while pos(k,s)<>0 do delete(s,pos(k,s),1);

if length(s)>0 then writeln(s);

fillchar(a,sizeof(a),0); max:=0;

end;

end.

烤面包

var

n,k,t:longint;

begin

readln(n,k);

n:=n*2;

if n mod k=0 then

t:=n div k

else

t:=n div k+1;

if t=1 then

t:=2;

writeln(t);

end.

猪猪的反击

var

n,m,i,j,s:longint;

a:array [1..100,1..100] of longint;

begin

readln(n,m);

fillchar(a,sizeof(a),0);

for i:=1 to n do

for j:=1 to m do

read(a[i,j]);

i:=1;

j:=1;

s:=a[1,1];

while i

begin

if j=m then

inc(i)

else

if a[i+1,j]

inc(j)

else

inc(i);

inc(s,a[i,j]);

end;

writeln(s);

end.

计算N的阶乘

var

n:longint;

function jc(a:longint):longint;

begin

if a<=1 then

jc:=1

else

jc:=jc(a-1)*a;

end;

begin

readln(n);

writeln(jc(n));

end.

北郊初级中学七（5）班戚博程

Pascal语言编程基础程序

Pascal语言编程基础程序 （常州市） 十进制转二进制 var i,n,j:longint; a:array[1..100] of longint; begin readln(n); i:=1; while n<>0 do begin a[i]:=n mod 2; i:=i+1; n:=n div 2; end; write('Bin:'); for j:= i-1 downto 1 do write(a[j]) end. 数组元素删除 var a:array[1..10]of longint; i,t,x:longint; begin read(x); for i:=1 to 10 do a[i]:=2*i-1; t:=a[x]; for i:=x+1 to 10 do a[i-1]:=a[i]; for i:=1 to 9 do write(a[i]:4); end. 数组元素删除2 var a:array[1..11]of longint; i:longint; begin for i:=1 to 10 do a[i]:=i; a[11]:=a[1]; for i:= 1 to 10 do a[i]:=a[i+1]; for i:= 1 to 10 do write(a[i]:4); end. 数组元素的移动 var a:array[1..10] of longint; s,n,i,x,t:longint; begin readln(n); for i:=1 to n do read(a[i]); readln(x); s:=a[x]; for i:=x+1 to n do a[i-1]:=a[i]; for i:=1 to n-1 do write(a[i],' '); write(s); end. 排除所有异形基因 var a:array[1..100] of longint; n,g,j,i,wz:longint; begin readln(n); for i:=1 to n do read(a[i]); g:=0; for i:=1 to n do if sqr(a[i]) mod 7=1 then begin wz:=i; for j:=wz+1 to n do a[j-1]:=a[j]; g:=g+1 end; write(a[1]); for i:=2 to n-g do write(' ',a[i]); writeln; end. 排除第一个异形基因 var a:array[1..100] of longint; n,i,wz:longint; begin readln(n); for i:=1 to n do read(a[i]); for i:=1 to n do if sqr(a[i]) mod 7=1

汇编语言程序设计

汇编语言基础《汇编语言程序设计》第01章在线测试 A B C D 、微机中每个存储单元具有一个地址，其中存放一个＿＿＿＿量。 A B C D 、设段地址为5788H，该字节的物理地址＿＿＿＿＿。 A B C D 、汇编语言源程序中，每个语句由项组成，不影响语句功能的是＿＿＿＿＿。 A B C D 、下列标号不合法的是＿＿＿＿＿。 A B C D

B、生成的代码序列短小 C、运行速度快 D、编程容易 E、便于移植 2、8086段寄存器有＿＿＿＿＿＿＿。 A、IP B、DS C、CS D、ES E、SS 3、使用MASM 6.x版本的“ML /Fl eg101.asm”命令，如果源程序eg101.asm没有语法错误，则将生成＿＿＿＿＿＿＿＿＿文件。 A、目标代码文件 B、可执行文件 C、列表文件 D、调试文件 E、库文件 4、汇编语言中，＿＿＿＿＿＿可以作为有效的名字，如标号、变量名等。 A、0fffh B、var00 C、loop1 D、test E、add 5、汇编语言中，程序员不能将＿＿＿＿＿＿作为用户标识符。 A、DS

正确错误、有效地址是指存储器操作数的物理地址。 正确错误、采用汇编语言书写的一个源程序文件，需要使用汇编程序，例如MASM 正确错误 按逻辑段组织程序，需要执行的指令应该在代码段中。 正确错误、使用简化段定义源程序格式，必须具有语句，且位于所有简化段定义语句之前。 正确错误 《汇编语言程序设计》第02章在线测试 A B C D

2、伪指令DW定义的是＿＿＿＿＿＿量的变量。 A、字节 B、字 C、双字 D、4字 3、将变量var定义如下，“var db 26h, 4ah”，欲以字属性存取该变量值，应采用＿＿＿＿＿＿var。 A、offset B、byte ptr C、word ptr D、seg 4、语句“xyz db ˊABˊ, ˊCDˊ, ˊEˊ,ˊFˊ”汇编后占用的存储空间是＿＿＿＿＿＿个字节。 A、4 B、5 C、6 D、8 5、在伪指令语句“number dw 1234h”中的number 项称为＿＿＿＿＿＿。 A、标号 B、操作符 C、名字 D、操作数 第二题、多项选择题（每题2分，5道题共10分） 1、如下＿＿＿＿＿＿＿＿寻址方式的操作数来自主存储器。 A、立即数寻址 B、寄存器寻址 C、直接寻址 D、寄存器相对寻址 E、寄存器间接寻址 2、“mov [bx+10h],al”指令的两个操作数采用的寻址方式有＿＿＿＿＿＿＿。 A、寄存器间接 B、寄存器 C、寄存器相对 D、基址变址 E、立即数

【汇编语言程序设计】试题及答案合集

《汇编语言程序设计试题及答案》合集 汇编语言程序设计试题及答案 1．对于有符号的数来说，下列哪个值最大（D） A：0F8H B：11010011B C：82 D：123Q 2．下列有关汇编语言中标号的命名规则中，错误的是（D） A：通常由字母打头的字符、数字串组成 B：标号长度不能超过31个字符 C：？和$不能单独作为标号 D：．号不可位于标号首 3．8088/8086存储器分段，每个段不超过（D ） A.64K个字 B.32K个字节 C.1兆个字节 D.64K个字节 4．寻址指令MOV CX, [BX + DI + 20]使用的是哪一种寻址方式（B）A：寄存器寻址B：相对基址变址寻址 C：变址寻址D：基址变址寻址 5．若AX= - 15要得到AX=15应执行的指令是（A ） A.NEG AX B.NOT AX C.INC AX D.DEC AX 6．8086/8088系统执行传送指令MOV时（ A） A.不影响标志位 B.影响DF方向标志 C.影响SF符号标志 D.影响CF进位标志 7.若要求一个操作数中的若干位维持不变，若干位置?1?，可以使用（B）A：NOT B：OR C：AND D：XOR 8．下列指令中段默认为堆栈段的是（ C） A.MOV AX，[BX+SI+10] B.ADD AX，ES:[SI] C.SUB [BX]，[BP][DI] D. MOV DX，[1000H] 9．关于8086/8088微机系列，下列说法哪个是正确的（D） A：一个存储单元由16个二进制位组成，简称字。

B：当存储一个字数据时，低字节放高地址位，高字节放低地址位。 C：在内存空间中，可以无限分配段，且段的大小不受限制。 D：段与段之间可以邻接，也可以重叠。 10．下列关于堆栈的说法，错误的是（D） A：以?先入后出?为原则。 B：栈区最高地址单元的前一个单元为栈底。 C：运行中SP寄存器动态跟踪栈顶位置。 D：压栈和弹出都是以字节为单位。 11．表示过程定义结束的伪指令是（ A） A.ENDP B.ENDS C.END D.ENDM 12．BUF1 DB 3 DUP（0，2 DUP （1，2），3） COUNT EQU $－BUF1 符号COUNT等价的值是（ B） A.6 B.18 C.16 D.9 13．下列标志位中，可以用来判断计算结果正负的是（B） A：PF B：SF C：DF D：OF 14．下列指令正确的是（ CD） A. MOV [100H], [BX] B.MOV DS, ES C. ADD V[BX], CX D.MOV AX, 34H 15．下列哪个寄存器是属于指针寄存器（C） A：SI B：DX C：SP D：ES 二、填空题 (每小题4 分，共 20 分) 1．下列程序段求数组FLD的平均值，结果在AL中。请将程序填写完整（不考虑溢出） FLD DW 10, -20, 30, -60, -71, 80, 79, 56 _LEA SI,FLD______ MOV CX, 8 XOR AX, AX

PASCAL语言基础

第一章、什么是计算机语言 计算机语言是计算机软件中非常独特的一部份，它属于系统软件，但又和应用软件息息相关。它的作用是：使人类能够用某些命令、指令去让计算机为人类进行数值、逻辑运算。计算机语言中，只有一种语言是计算机能自己识别的，就是最底层、最难的机器语言，这是一般人类所无法接受的语言，所以在此基础上，人们发展出了许多高级的语言，这些语言的共同特点是：人类无需去掌握高深的机器语言，只要掌握这些更容易理解、更贴近人类的高级语言，用高级语言编出程序后，再由语言解释、编译系统去把程序解释、编译成机器语言让计算机去执行。目前最常用的高级语言大致有以下几种： BASIC语言：是一般计算机入门者的首选语言，命令少，容易掌握，从BASIC，BASICA，GWBASIC，TRUE BASIC，TURBO BASIC，QUICK BASIC等一直发展到目前的WINDOWS环境下的VB。 PASCAL语言：最适合科学计算、数据处理的语言，运行、编译速度最快，从TURBO PASCAL 5 .5, 6.0, 7.0一直到现在的WINDOWS环境下的DELPHI以及LAZARUS等面向对象的PASCAL，以及目前信息学竞赛使用的FREE PASCAL各个版本。 C语言：主要适用于应用软件的开发，是计算机人员的必修课，但在算法实现、建模方面不如PASCAL方便。从C，C++，一直到现在的WIONDOWS环境下的VC、C++等。 实际上，我们日常所用的各种软件，包括Windows，WORD、EXCEL、各种游戏等等，全部都是使用程序设计语言编写出来的软件，我们只有掌握了程序设计语言，才能进行计算机软件的开发。 在我们的信息学竞赛中，所有的题目都是非常复杂的数值与逻辑运算，所以世界上广泛采用PASCAL语言作编程工具，我们采用的是FREE PASCAL2.0版本或者相近版本。 我们学习信息学竞赛除了要掌握程序设计语言，能够使用程序设计语言编写程序外，还有一部分要掌握的更加重要的内容就是——算法设计，它能够使我们的程序运行速度更快、效率、精度更高，使我们的程序取得快人一步的优势，算法设计在本书中我们将接触一部分。 第二章、PASCAL语言入门 第一节、PASCAL语言的特点 以法国数学家命名的PASCAL语言是世界上使用最广泛，最有效的语言之一。其主要特点是：严格的结构化形式；丰富完备的数据类型；运行能力、效率高；查错能力强等等。与BASIC、C等语言相比，PASCAL语言更适合科学计算，运行速度最快，编译能力最强，编译成的可执行文件也最小。 PASCAL语言是编译执行的语言（BASIC语言是解释执行），因此在速度与效率上都比BASIC语言提高了一个档次。所谓解释执行，是在程序环境下编写好程序后，执行它时是一句一句地由语言解释器翻译成机器语言，由计算机去执行，计算机能在程序编辑时就发现程序中错误，但程序运行速度慢；而编译执行是在程序环境中编写好程序后，执行时先由编译器把整个程序编译成机器语言，然后再由计算机执行，计算机必须在编译程序时才能发现程序中的错误，但程序运行速度快。 第二节、FREE PASCAL的集成环境

汇编语言程序设计

汇编语言程序设计 一、选择题 (共72题) 1、 用于指针及变址寄存器的有（）。 A、 AX，BX，CX，DX B、 SP，BP，IP C、 CS，DS，SS D、 PSW 考生答案：B 2、 完成把汇编语言源程序模块转换为目标模块的程序是（）。 A、 编辑程序 B、 汇编程序 C、 连接程序 D、 调试程序 考生答案：B 3、 指令JMP FAR PTR DONE中的寻址方式属于（）。 A、 段内转移直接寻址 B、 段内转移间接寻址 C、 段间转移直接寻址 D、 段间转移间接寻址 考生答案：C 4、 对于下列程序段： AGAIN：MOV AL，[SI]

MOV ES：[DI]，AL INC SI INC DI LOOP AGAIN 也可用（）指令完成同样的功能。 A、 REP MOVSB B、 REP LODSB C、 REP STOSB D、 REPE SCASB 考生答案：A 5、 在程序执行过程中，IP寄存器中始终保存的是（）。 A、 上一条指令的首地址 B、 下一条指令的首地址 C、 正在执行指令的首地址 D、 需计算有效地址后才能确定地址 考生答案：B 6、 在汇编语言程序的开发过程中使用宏功能的顺序是()。 A、 宏定义，宏调用 B、 宏定义，宏展开 C、 宏定义，宏调用，宏展开 D、 宏定义，宏展开，宏调用 考生答案：C 7、 CPU要访问的某一存储单元的实际地址称（）。 A、 段地址

偏移地址 C、 物理地址 D、 逻辑地址 考生答案：C 8、 AND、OR、XOR、NOT为四条逻辑运算指令，下面解释正确的是（）。 A、 指令XOR AX，AX执行后，AX内容不变，但设置了标志位 B、 指令OR DX，1000H执行后，将DX最高位置1，其余各位置0 C、 指令AND AX，OFH执行后，分离出AL低四位 D、 NOT AX，执行后，将AX清0 考生答案：C 9、 完成对CL寄存器的内容乘以2的正确操作是（）。 A、 ROL CL，1 B、 MUL 2 C、 SHL CL，1 D、 SHR CL，1 考生答案：C 10、 检查两个无符号数的关系，若要实现AL≥BL时分支去LOP1处，那么在“CMP A L，BL”指令后应跟的分支指令是（）。 A、 JE LOP1 B、 JAE LOP1 C、 JC LOP1 D、 JGE LOP1 考生答案：B 11、 已知变量VAR为字型，则TYPEVAR=（）。

PASCAL语言程序设计

目录 第一部分 PASCAL语言程序设计 (1) 第一章 PASCAL语言基础 (1) 第一节程序的组成与上机调试运行 (2) 第二节常量、变量与数据类型 (3) 第三节表达式与标准函数 (6) 第四节赋值语句、输入与输出语句 (9) 习题 (12) 第二章程序的三种基本结构 (15) 第一节顺序结构 (15) 第二节选择结构 (15) 第三节循环结构 (17) 习题 (20) 第三章数组 (22) 第一节一维数组 (22) 第二节二维数组及应用 (25) 习题 (26) 第四章字符与字符串操作 (29) 第一节字符和字符数组 (29) 第二节字符串变量 (29) 第三节字符串应用举例 (31) 习题 (33) 第五章函数与过程 (35) 第一节自定义函数 (35) 第二节自定义过程 (38) 第四节递归 (42) 第五节递归与回溯 (45) 习题 (50) 第一部分 PASCAL语言程序设计 第一章 PASCAL语言基础 Pascal语言是瑞士苏黎士工科大学的Niklans Wirth（沃思）1971年发表的，是为了纪念17世纪法国著名哲学和数学研究者Blaisc Pascal而将它命名为Pascal程序设计语言。Pascal语言是信息学奥赛中普遍使用的程序设计语言。

第一节程序的组成与上机调试运行 一、程序的组成 我们先看一道例题。 例1-1 输入两个整数a和b，计算a和b的和（a+b）。 【参考程序】 program a1(input,output); //程序首部 var a,b,c:integer; //程序说明部分，a,b,c被说明为整型变量 begin //程序执行部分，下面是程序的内容 write('a='); //在屏幕上输出一个字符串“a=”，输出完后不换行 read(a); //从键盘输入一个数值赋给变量a write('b='); //在屏幕上输出一个字符串“b=”，输出完后不换行 read(b); //从键盘输入一个数值赋给变量b c:=a+b; //计算a+b的和，并将这个和赋值给变量c writeln(a,'+',b,'=',c); //输出a+b=c的等式，输出完后换行 end. //程序结束 【样例输入】 a=10 b=30 【样例输出】 10+30=40 由上可以看出，一个Pascal程序由以下三部分组成： （1）由Program 引导的一行是Pascal程序的首部。 程序首部指出了源程序的名称，是由用户自己给出的，该例子称为a1。程序名后用括号括住的两个参数input与output，通常表示程序运行中的标准输入和输出文件，程序首部以分号结束。 （2）Pascal程序的第二部分是说明部分。 说明部分要求列出程序中引用的全部常量、变量、转移标号、类型、过程和函数的有关说明。若变量c在说明部分没有说明，后边的语句c:=a+b在执行时；翻译软件便能指出其错误并提醒用户加以改正，程序中每个语句都以分号表示结束。 （3）程序的第三个部分是用BEGIN和END括住的一串语句，称为程序的执行部分。有的书中将说明部分和执行部分合称为程序体。 二、PASCAL语言编辑软件的基本操作 下面我们以Free Pascal 1.10系统为例来学习一下Pascal语言编辑软件的使用。 1.Free Pascal的启动 在运行程序目录下(一般是c:\pp\bin\go32v2)运行启动程序fp.exe，即可启动系统。屏幕上出现如图1-1所示的集成环境。 图1-1 2.Free Pascal系统集成开发环境(IDE)简介 最顶上一行为主菜单，中间蓝色框内为编辑窗口，在编辑窗口内可以进行程序的编辑，最底下一行为提示行，显示出系统中常用命令的快捷键，如将当前编辑窗口中文件存盘的命令快捷键为F2，打开磁盘文件命令F3，等等。

汇编语言程序设计(第四版)第3章【课后答案】

汇编语言程序设计第四版 【课后习题答案】--囮裑為檤 第3章汇编语言程序格式 〔习题3.1〕伪指令语句与硬指令语句的本质区别是什么？伪指令有什么主要作用？ 〔解答〕 伪指令语句与硬指令语句的本质区别是能不能产生CPU动作； 伪指令的作用是完成对如存储模式、主存变量、子程序、宏及段定义等很多不产生CPU动作的说明，并在程序执行前由汇编程序完成处理。 〔习题3.2〕什么是标识符，汇编程序中标识符怎样组成？ 〔解答〕 为了某种需要，每种程序语言都规定了在程序里如何描述名字，程序语言的名字通常被称为标识符； 汇编语言中的标识符一般最多由31个字母、数字及规定的特殊符号（如-，＄，？，@）组成，不能以数字开头。 〔习题3.3〕什么是保留字，汇编语言的保留字有哪些类型，并举例说明。 〔解答 保留字是在每种语言中规定了有特殊意义和功能的不允许再做其它用处的字符串；汇编语言的保留字主要有硬指令助记、伪指令助记符、运算符、寄存器名以及预定义符号等。汇编语言对大小写不敏感。如定义字节数和字符串的DB就是伪指令助记符。 〔习题3.4〕汇编语句有哪两种，每个语句由哪4个部分组成？ 〔解答〕 汇编语句有执行性语句和说明性语句； 执行性语句由标号、硬指令助记符、操作数和注释四部分组成； 说明性语句由名字、伪指令助记符、参数和注释四部分组成 〔习题3.5〕汇编语言程序的开发有哪4个步骤，分别利用什么程序完成、产生什么输出文件。 〔解答〕 ⒈编辑文本编辑程序汇编语言源程序.asm ⒉汇编汇编程序目标模块文件.obj ⒊连接连接程序可执行文件.exe或.com

⒋调试调试程序应用程序 〔习题3.6〕区分下列概念： （1）变量和标号 （2）数值表达式和地址表达式 （3）符号常量和字符串常量 〔解答〕 （1）变量是在程序运行过程中，其值可以被改变的量；标号是由用户自定义的标识符，指向存储单元，表示其存储内容的逻辑地址。 （2）数值表达式一般是由运算符连接的各种常数所构成的表达式，地址表达式是由名字、标号以及利用各种的操作符形成的表达式。 （3）在程序中，为了使常量更便于使用和阅读,经常将一些常量用常量定义语句定义为符号常量，被一对双引号括起来的若干个字符组成的字符序列被称为字符串常量。 〔习题3.7〕假设myword是一个字变量，mybyte1和mybyte2是两个字节变量，指出下列语句中的错误原因。 （1）mov byte ptr [bx],1000 （2）mov bx,offset myword[si] （3）cmp mybyte1,mybyte2 （4）mov al,mybyte1+mybyte2 （5）sub al,myword （6）jnz myword 〔解答〕 （1）1000超出了一个字节范围 （2）寄存器的值只有程序执行时才能确定，而offset是汇编过程计算的偏移地址，故无法确定，改为lea bx,myword[si] （3）两个都是存储单元，指令不允许 （4）变量值只有执行时才确定，汇编过程不能计算 （5）字节量AL与字量myword，类型不匹配 （6）Jcc指令只有相对寻址方式，不支持间接寻址方式 〔习题3.8〕OPR1是一个常量，问下列语句中两个AND操作有什么区别？ AND AL,OPR1 AND 0feh 〔解答〕

Win10使用pascal入门教程fpc

WIN10如何使用Free Pascal ——从安装、消除乱码、编写个简单的hello谈起{ ******* author: Josan ******* date:2016/10/27 ********************************************************************* } 闲来无事，突然想“学”一门新的语言Pascal，不要求精通，只要求能安装、运行一些简单程序就行。所以，抽出一个上午的时间来了解Pascal的历史，以及编译器以及它的IDE。再用一个下午的时间来整理一下上午的所获所得，希望可以帮到一些入门者，能让他们少走弯路。同时，我也要感谢那些给我帮助过的网友们。来，开始正题。 一、安装 1 What is Pascal? 首先，来看下什么是Pascal程序设计语言。 参考： (1)维基百科：Pascal https://https://www.sodocs.net/doc/0311192280.html,/wiki/Pascal_(programming_language)[1] (2)百度百科：Pascal https://www.sodocs.net/doc/0311192280.html,/link?url=VnmJnZwjlW8JuW5XTiHdUk3d34nQrznt_2BZbYj_X06Ye KEwt2fBqgchtlv-S5H6iO7b0vjbjEtzp0OyVSlFt4pahjeS3RtX4-p-QyGSWpsxXCZsSX16NZ hpBaxAX9bp7TUUVBGQ0fuY9xhVW3m51DyCRAkJ-cDEMLLMelc23lYn2NYNwvvItQ M749UCPj5gxndgACERXQG89ghqW1NV4h2SFuXCuWFJBz_ngeakKlC[2] 小结：Pascal由Niklaus Wirth（不认识这人?他说过：程序=算法+数据结构。有印象了吧-：））创建，纪念法国数学家Blaise Pascal。Pascal起初是一个面向过程的程序设计语言，之后发展出Object Pascal。Delphi是一个IDE，使用的核心就是Object Pascal。 2 Frequently used compilers or IDE 任何一个程序设计语言，都要有个编译器。接下来，来看看Pascal常用的compilers有哪些。 (1)Free Pascal(abbre. FPC or FP) https://www.sodocs.net/doc/0311192280.html,[3] (2)GNU Pascal http://www.gnu-pascal.de/gpc/h-index.html[4]

汇编语言程序设计

汇编语言程序设计 实验报告 实验名称上机过程及顺序结构与分支结构程序设计实验班级 学号 姓名 日期2017年10月26号 成绩 评阅人 软件学院

一、实验目的与意义 理解并熟练掌握汇编语言程序设计过程中的编辑、汇编、链接和调试等各个步骤，提高对汇编课程内容的理解和汇编语言的掌握，通过上机练习加深对课程内容的理解和掌握。通过汇编语言编制的程序上机调试、运行检验程序设计是否正确。熟悉和掌握编辑、汇编、连接和调试四个实用程序的使用方法，掌握调试程序中的几个常用命令的使用方法。熟悉其基本的指令操作，debug调试操作命令以及分支结构、顺序结构和循环结构的程序设计。 二、实验环境 操作系统：Microsoft Windows8 集成环境：Masm for Windows 上机地点：信息楼B405教室 三、实验的预习内容 预习的主要内容： 1. 使用DEBUG命令的方法； 2. 熟悉掌握从理论上定义数据的类型（即DB,DW,DD,）； 3. 分支结构和顺序结构的步骤以及相关的指令； 4. 常用的标志位状态及相应的作用； 实验思路： 在对题目进行分析后，分析出解题方法，并做出与实验思路相对应的程序框图。依照程序框图的内容输入相对应的代码，最终在调试代码后，发现并解决一系列的汇编语言错误。进一步优化算法。实验之前必须了解十进制、十六进制和ASCII码之间的转换。预习查表法相关命令，掌握顺序程序的结构，从键盘输入数据的命令及显示到屏幕上的命令。 实验一： 题目1：将程序编辑、汇编、连接并通过集成环境中的debug调试，观察运行结果；用E命令修改指定地址的数据，再用G命令执行程序查看变化，用A 命令将加法指令修改成减法指令，再将其编译运行，查看寄存器值变化的异同。 题目2：分别用DB、DW和DD数据段9H，0FAH，41H，27H，编译链接之后生成exe文件，再用debug的r命令找到数据段地址，用d命令指定数据段地址，观察汇编后在机器内部对应的存储情况。 实验二： 先设置数据段地址和堆栈段地址；设置堆栈段指针；读取一个字符然后存储在AL中；用BX来存储AL中字符对应的数值；将BX中的值作为偏移地址；并在数据段中查找对应字符串；最终输出结果结束程序。 实验三： 先初始化数据段地址与堆栈段地址；设置堆栈段指针；然后将数据段中的data1放入AL中；读取数据段中的data2并判断data2是否大于0；然后读取数

Pascal基本教程

Pascal基本教程 Pascal基本教程第一章 第一章 Pascal语言概述与预备知识 1 关于Turbo Pascal Pascal是一种计算机通用的高级程序设计语言。它由瑞士Niklaus Wirth 教授于六十年代末设计并创立。 以法国数学家命名的Pascal语言现已成为使用最广泛的基于DOS的语言之一，其主要特点有：严格的结构化形式；丰富完备的数据类型；运行效率高；查错能力强。 正因为上述特点，Pascal语言可以被方便地用于描述各种算法与数据结构。尤其是对于程序设计的初学者，Pascal语言有益于培养良好的程序设计风格和习惯。IOI(国际奥林匹克信息学竞赛)把Pascal语言作为三种程序设计语言之一， NOI(全国奥林匹克信息学竞赛)把Pascal语言定为唯一提倡的程序设计语言，在大学中Pascal语言也常常被用作学习数据结构与算法的教学语言。 在Pascal问世以来的三十余年间，先后产生了适合于不同机型的各种各样版本。其中影响最大的莫过于Turbo Pascal系列软件。它是由美国Borland公司设计、研制的一种适用于微机的Pascal编译系统。该编译系统由1983年推出1.0版本发展到1992年推出的7.0版本，其版本不断更新，而功能更趋完善。 下面列出Turbo Pascal编年史 出版年代 版本名称 主要特色 1983 Turbo Pascal 1.0 Turbo Pascal 2.0 Turbo-87 Pascal 提高实数运算速度并扩大值域

1985 Turbo Pascal 3.0 增加图形功能 Turbo BCD Pascal 特别适合应用于商业 1987 Turbo Pascal 4.0 提供集成开发环境(IDE)，引入单元概念 1988 Turbo Pascal 5.0 增加调试功能 1989 Turbo Pascal 5.5 支持面向对象的程序设计(OPP) 1990 Turbo Pascal 6.0 提供面向对象的应用框架和库(Turbo Vision) 1992 Turbo Pascal 7.0 面向对象的应用系统、更完善的IDE Turbo Vision 2.0 1993 Borland Pascal 7.0 开发 Object Windows库、 (For Windows) 提供对OLE多媒体应用开发的支持 1995 Delphi Visual Pascal Turbo Pascal语言是编译型程序语言，它提供了一个集成环境的工作系统，集编辑、编译、运行、调试等多功能于一体。 1.2 Turbo Pascal 或 Borland Pascal 的启动

pascal语言基础知识

2.1 Pascal程序基本组成 例1.1计算半径为R的圆面积S program Area; {程序首部} {已知半径求圆的面积} const pi=3.14159; {说明部分——数据描述} var s,r:real; begin{执行部分} readln(r); s:=pi*sqr(r); writeln('s=',s); end. 上述程序第一行称为程序首部。其中用花括号(注释可以用{ }或（* *）来表示）括起来的内容是注释，程序第二行就是一个注释，注释除了给人看，增加程序的可读性外，对程序编译和运行不起作用。一个程序可以包含多个出现在不同处注释，亦可无注释。程序第三行是常量说明，程序第四行是变量说明。程序从begin到end都是执行（语句）部分 (1)程序首部 例1.1的第一行称为程序首部。program是保留字，接着是程序名（由你依据“标示符”规则自行定义），最后以分号表示程序首部结束，下面是程序主体的开始。程序首部在一个Turbo Pascal（仅在Turbo Pascal中有效）程序中并非必须出现，它是可选的。写上它仅起了文档作用。因此，在时间有限的情况下，如果用Turbo Pascal编程完全可以省略程序首部。 (2)程序体 a.说明部分 说明部分用于定义和说明程序中用到的数据，由单元说明、标号说明、常量说明、类型说明、变量说明、函数或过程说明组成，并且这些数据的说明次序必须按照以上次序。但是一个简单的Turbo Pascal程序也可以不包含说明部分，也就是说说明部分是可选的。 b.执行部分

执行部分描述了程序要执行的操作。它必须以一个Turbo Pascal保留字begin开始，以保留字end后跟句点结束，其间是一些执行具体操作的语句，并且以分号作为语句之间的分隔符。begin 和end必须成对出现，这是一个Turbo Pascal程序所必须有的。紧跟end之后的句号表示执行部分的结束，也表示整个程序的结束。此后的任何语句都无效。Turbo Pascal规定紧随end之前出现的分号允许省略。 (3)一个完全的Pascal程序结构 program 程序名； uses 已知单元说明； label 标号说明； const 常量说明； type 类型说明； var 变量说明； function 函数说明； procedure 过程说明； begin 语句； 语句；

新版汇编语言程序设计习题答案(钱晓捷主编)

新版汇编语言程序设计习题答案(钱晓捷主编) 第一章汇编语言基础知识 1.1、简述计算机系统的硬件组成及各部分作用 1.2、明确下列概念或符号： 主存和辅存，RAM和ROM，存储器地址和I/O端口，KB、MB、GB和TB 1.3、什么是汇编语言源程序、汇编程序、目标程序？ 1.4、汇编语言与高级语言相比有什么优缺点？ 1.5、将下列十六进制数转换为二进制和十进制表示 （1）FFH （2）0H （3）5EH （4）EFH （5）2EH （6）10H （7）1FH （8）ABH 1.6、将下列十进制数转换为BCD码表示 （1）12 （2）24 （3）68 （4）127 （5）128 （6）255 （7）1234 （8）2458 1.7、将下列BCD码转换为十进制数 （1）10010001 （2）10001001 （3）00110110 （4）10010000 （5）00001000 （6）10010111 （7）10000001 （8）00000010 1.8、将下列十进制数分别用8位二进制数的原码、反码和补码表示 （1）0 （2）-127 （3）127 （4）-57 （5）126 （6）-126 （7）-128 （8）68 1.9、完成下列二进制数的运算 （1）1011＋1001 （2）1011－1001 （3）1011×1001 （4）10111000÷1001 （5）1011 ∧～1011 （8）1011 ⊕1001 1001（6）1011 ∨1001（7） 1.10 数码0~9、大写字母A~Z、小写字母a~z对应的ASCII码分别是多少？ASCII码为0dh、0ah对应的是什么字符？ 1.11、计算机中有一个“01100001”编码，如果把它认为是无符号数，它是10进制什么数？如果认为它是BCD码，则表示什么数？又如果它是某个ASCII码，则代表哪个字符？ 1.12、简述Intel 80x86系列微处理器在指令集方面的发展。 1.13、什么是DOS和ROM-BIOS？ 1.14、简述PC机最低1MB主存空间的使用情况。 1.15、罗列8086CPU的8个8位和16位通用寄存器，并说明各自的作用。 1.16、什么是标志，它有什么用途？状态标志和控制标志有什么区别？画出标志寄存器FLAGS，说明各个标志的位置和含义。

PASCAL程序设计

第一章PASCAL程序设计基础 我们日常工作、学习和生活中，要做某件事，如果事先没有计划，只是想一步做一步，是达不到理想效果的。要很好地、高效率地完成某件事，必须事先有一个计划，第一步做什么，下一步做什么，最后一步做什么。即先考虑好做这件事的所有步骤，然后按部就班地完成它。在计算机系统中，能完成某项任务的一系列指令或语句就是程序。程序设计是设计、书写和调试程序的过程。 第一节程序设计语言及算法 一、程序设计语言 人们使用计算机，可以通过某种计算机语言与其交谈，用计算机语言描述所要完成的工作。为了完成某项特定任务用计算机语言编写的一组指令序列就称之为程序。编写程序和执行程序是利用计算机解决问题的主要方法和手段。程序设计语言是用来书写计算机程序的语言。程序设计语言经历了机器语言、汇编语言、高级语言到面向对象的程序设计语言等多个阶段。 1.机器语言 机器语言是用二进制代码表示的计算机能直接识别和执行的一种机器指令的集合。它是计算机的设计者通过计算机的硬件结构赋予计算机的操作功能。机器语言具有灵活、直接执行和速度快等特点。 用机器语言编写程序,编程人员要首先熟记所用计算机的全部指令代码和代码的涵义。手编程序时,程序员得自己处理每条指令和每一数据的存储分配和输入输出,还得记住编程过程中每步所使用的工作单元处在何种状态。这是一件十分繁琐的工作,编写程序花费的时间往往是实际运行时间的几十倍或几百倍。而且编出的程序全是些0和1的指令代码,直观性差,还容易出错。现在,除了计算机生产厂家的专业人员外,绝大多数程序员已经不再去学习机器语言了。 2.汇编语言 为了克服机器语言难读、难编、难记和易出错的缺点,人们就用与代码指令实际含义相近的英文缩写词、字母和数字等符号来取代指令代码(如用ADD表示运算符号“＋”的机器代码),于是就产生了汇编语言。汇编语言是一种用助记符表示的仍然面向机器的计算机语言。汇编语言像机器指令一样,是硬件操作的控制信息,因而仍然是面向机器的语言,使用起来还是比较繁琐费时,通用性也差。汇编语言是低级语言。 3.高级语言 20世纪50年代后期，在对低级语言的改进过程中，又研制出一种既接近于自然语言，又接近数学语言的程序设计语言。使用这种语言编写程序快捷方便，便于修改和高度，大大提高了编程的效率，同时这种语言编写的程序不依赖具体的机器，能用性好，我们称之为高级语言。用高级语言，不必考虑机器的结构和特点，可以集中精力考虑解决问题的算法，因此，高级语言也称为算法语言。 4.面向对象的程序设计语言

1-语言基础习题

《Delphi 语言基础》习题 一、填空 1. Delphi 应用程序中项目文件的扩展名是 。 2. Delphi 中与窗体文件对应的文件是单元文件，其最常用的文件扩展名是 *. 。 3. 在Delphi 集成开发环境中，如果想要直接设置或者修改对象的属性，可以通过对象查 看器（Object Inspector ）中的 窗口直接进行设置。属性 或 Properties 4. 在Delphi 中新建一个工程后，用户需要保存.pas 文件和 文件。 5. 对象查看器由对象列表、属性选项卡和 三部分组成。 6. 与数学表达式 ab y b a -++2 3)sin(对应的Object Pascal 表达式是 。 7. 与数学表达式 a xy a b a +++22)(cos 对应的Object Pascal 表达式是 。 8. 结构化程序设计的基本原则是取消goto 语句，程序中仅采用顺序、 和循环三 种控制结构。 9. 与数学表达式 ) sin()(sin 222y x y x ++对应的Object Pascal 表达式是 。 10. 结构化程序设计要求程序中仅采用顺序、分支和循环三种控制结构，其中每种结构只能 有 个入口和一个出口。 11. 与数学表达式 a x a by a ++22)(sin 对应的Object Pascal 表达式是 。 12. 与数学表达式 53)(cos 2++x b a 对应的Object Pascal 表达式是 。 13. 对于下面的条件表达式： （（3 <= x ）AND （x < 0）） OR （x in [1..10]） 当x = 3 时， 该表达式的值为 。True 14. 与数学表达式 ab y b a ++3)(sin 2对应的Object Pascal 表达式是 。 15. 表达式Trunc （12345.6789*100+0.5）/100的值为 。 12345.68

新版汇编语言程序设计钱晓捷第1章习题答案

第1章汇编语言基础知识（全） 2010-10-18 19:32:40| 分类：答案集锦| 标签：|字号大中小订阅 第1章汇编语言基础知识 〔习题1.1〕简述计算机系统的硬件组成及各部分作用。 〔解答〕 CPU：包括运算器、控制器和寄存器组。运算器执行所有的算术和逻辑运算；控制器负责把指指令逐条从存储器中取出，经译码分析后向机器发出各种控制命令，并正确完成程序所要求的功能；寄存器组为 处理单元提供所需要的数据。 存储器：是计算机的记忆部件，它用来存放程序以及程序中所涉及的数据。 外部设备：实现人机交换和机间的通信。 〔习题1.2〕明确下列概念或符号： 主存和辅存，RAM和ROM，存储器地址和I/O端口，KB、MB、GB和TB 〔解答〕 主存又称内存是主存储器的简称，主存储器存放当前正在执行的程序和使用的数据，CPU可以直接存取，它由半导体存储器芯片构成其成本高、容量小、但速度快。辅存是辅助存储器的简称，辅存可用来长期保存大量程序和数据，CPU需要通过I/O接口访问，它由磁盘或光盘构成，其成本低、容量大，但速 度慢。 RAM是随机存取存储器的英语简写，由于CPU可以从RAM读信息，也可以向RAM写入信息，所以RAM也被称为读写存储器，RAM型半导体存储器可以按地址随机读写，但这类存储器在断电后不能保存信息；而ROM中的信息只能被读出，不能被修改，ROM型半导体通常只能被读出，但这类存储器断电 后能保存信息。 存储器由大量存储单元组成。为了区别每个单元，我们将它们编号，于是，每个存储单元就有了一个存储地址，I/O接口是由一组寄存器组成，为了区别它们，各个寄存器进行了编号，形成I/O地址，通常 称做I/O端口。 KB是千字节、MB是兆字节、GB是吉字节和TB是太字节，它们都是表示存储器存储单元的单位。 〔习题1.3〕什么是汇编语言源程序、汇编程序、目标程序？ 〔解答〕 用汇编语言书写的程序就称为汇编语言源程序；完成汇编工作的程序就是汇编程序；由汇编程序编 译通过的程序就是目标程序。

Pascal程序基本组成与符号

Pascal程序基本组成与符号 hb007 发表于 2006-3-22 8:55:50 一、Pascal程序基本组成 例1计算半径为r的圆的周长C和面积S。 上述程序第一行称为程序首部。用花括号(注释可以用{ }或（* *）来表示)括起来的内容是注释，注释除了给人看，增加程序的可读性外，对程序编译和运行不起作用。一个程序可以包含多个出现在不同处注释，亦可无注释。程序第二行是变量说明。程序从begin到end都是执行（语句）部分。 (1)程序首部 例1的第一行称为程序首部。program是保留字，接着是程序名（由你依据“标示符”规则自行定义），最后以分号表示程序首部结束，下面是程序主体的开始。程序首部在一个Turbo Pascal（仅在Turbo Pasca l中有效）程序中并非必须出现，它是可选的。写上它仅起了文档作用。因此，时间有限的情况下，如果用Turbo Pascal编程完全可以省略程序首部。 (2)程序体 ①说明部分 说明部分用于定义和说明程序中用到的数据，由单元说明、标号说明、常量说明、类型说明、变量说明、函数或过程说明组成，并且这些数据的说明次序必须按照以上次序。但是一个简单的Turbo Pascal程序也可以不包含说明部分，也就是说说明部分是可选的。 ②执行部分 执行部分描述了程序要执行的操作。它必须以一个Turbo Pascal保留字begin开始，以保留字end后跟句点结束，其间是一些执行具体操作的语句，并且以分号作为语句之间的分隔符。begin和end必须成对出现，这是一个Turbo Pascal程序所必须有的。紧跟end之后的句号表示执行

部分的结束，也表示整个程序的结束。此后的任何语句都无效。Turbo Pascal规定紧随end之前出现的分号允许省略。 (3)一个完全的Pascal程序结构 program 程序名； uses 已知单元说明； label 标号说明； const 常量说明； type 类型说明； var 变量说明； function 函数说明； procedure 过程说明； begin 语句； 语句； …… 语句 end. 二、Pascal字符与符号 1、保留字(关键字) 所谓保留字是指在Pascal语言中具有特定的含义，你必须了解它的含义，以便于正确的使用，否则会造成错误。Turbo Pascal语言一共有5 0多个。下面是Pascal语言的保留字：

汇编语言程序设计

实验四程序设计 一、实验目的 学习数据传送指令和算术运算指令的用法；掌握数据定义伪指令的格式，会用DEBUG 中的D命令观察DB、DW、DD存储数据的格式；熟悉汇编语言的基本框架，掌握编写汇编语言程序的基本方法。 二、实验题 1、已知当前数据段中DADT1和DADT2开始分别存放若干字节数据，数据个数相同，编制程序检查两数据块中数据是否相同，若相同，则在屏幕上显示1，否则显示0。 【参考程序如下】 DSEG SEGMENT DATA1 DB 'ABCDEFG3' DATA2 DB 'ABCDEF3G' CNT DW 8 DSEG ENDS CSEG SEGMENT ASSUME CS:CSEG,DS:DSEG START:MOV AX,DSEG MOV DS,AX MOV DL,31H LEA SI,DATA1 LEA DI,DATA2 MOV CX,CNT DEC SI DEC DI AGAIN:INC SI INC DI MOV AL,[SI] CMP AL,[DI] LOOPZ AGAIN JZ DISP DEC DL DISP: MOV AH,2

INT 21H MOV AH,4CH INT 21H CSEG ENDS END START 阅读程序，理解循环程序结构及执行过程，并改成串指令实现。 2 编写程序，将00H~0FH共16个数写入内存3000H开始的连续16个存储单元中。 三、实验报告 写出程序清单，记录运行结果。 改写串指令实现: DSEG SEGMENT DATA1 DB'ABCDEFG3' DATA2 DB'ABCDEF3G' CNT DW8 DSEG ENDS CSEG SEGMENT ASSUME CS:CSEG,DS:DSEG START:MOV AX,DSEG MOV DS,AX MOV ES,AX MOV DL,31H LEA SI,DATA1 LEA DI,DATA2 MOV CX,CNT CLD