当前位置: 代码迷 >> 综合 >> [pascal]第二次pascal试验课上机时写的小程序
  详细解决方案

[pascal]第二次pascal试验课上机时写的小程序

热度:77   发布时间:2024-01-09 20:52:55.0

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.

 

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.

 

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 , '  
  相关解决方案