2007年3月23日 第二次pascal试验课 上机内容是顺序和选择结构程序设计
以下是我课上写的几段代码,文件名就是课本上题目的位置,例如P14_1_2.PAS即为第14页的习题1.2。
P37_2_8.PAS
PROGRAM chars(input,output);
{输入三个字符,然后以不同次序输出并依次打印它们的序号}
VAR
ch1,ch2,ch3:char;
BEGIN
{读入这三个字符}
writeln( ' Please input three letters ... ' );
readln(ch1,ch2,ch3);
{顺序输出它们}
writeln(ch1,ch2,ch3);
{依次输出它们的序号}
writeln(ord(ch1),ord(ch2),ord(ch3));
{逆序输出它们}
writeln(ch3,ch2,ch1)
END.
{输入三个字符,然后以不同次序输出并依次打印它们的序号}
VAR
ch1,ch2,ch3:char;
BEGIN
{读入这三个字符}
writeln( ' Please input three letters ... ' );
readln(ch1,ch2,ch3);
{顺序输出它们}
writeln(ch1,ch2,ch3);
{依次输出它们的序号}
writeln(ord(ch1),ord(ch2),ord(ch3));
{逆序输出它们}
writeln(ch3,ch2,ch1)
END.
P37_2_10.PAS
PROGRAM chars(input,output);
{输入一个三位数,并以相反次序输出}
VAR
ch1,ch2,ch3:char;
BEGIN
{读入一个三位数,把每一位当作一个字符}
writeln( ' Please input a three-figure number ... ' );
readln(ch1,ch2,ch3);
{以相反次序输出这三个字符}
writeln(ch3,ch2,ch1)
END.
{输入一个三位数,并以相反次序输出}
VAR
ch1,ch2,ch3:char;
BEGIN
{读入一个三位数,把每一位当作一个字符}
writeln( ' Please input a three-figure number ... ' );
readln(ch1,ch2,ch3);
{以相反次序输出这三个字符}
writeln(ch3,ch2,ch1)
END.
P52_3_1.PAS
PROGRAM account(input,output);
{根据x的值计算y和z并输出}
CONST
pi = 3.14159 ;
VAR
x,y,z:real;
BEGIN
{读入x和y的值并进行回打}
writeln( ' Please input two numbers x and y... ' );
readln(x,y);
writeln( ' The numbers you input is x= ' ,x: 4 : 2 , '
{根据x的值计算y和z并输出}
CONST
pi = 3.14159 ;
VAR
x,y,z:real;
BEGIN
{读入x和y的值并进行回打}
writeln( ' Please input two numbers x and y... ' );
readln(x,y);
writeln( ' The numbers you input is x= ' ,x: 4 : 2 , '