循序渐进编程作业1(2008.10.23) 答案

第一题

program jhsz;
var
a,b,t:integer;
begin
writeln('input a and b ');
readln(a,b);

writeln(a,'  ',b);
begin
t:=a;
a:=b;
b:=t;
writeln(a,'  ',b);
end;
end.     

 

   第二题

   program lx12;                                                            
     const                                                                       
      a=1;                                                                        
      b=12;                                                                       
      c=123;                                                                      

      begin                                                                       
      writeln(a);                                                                 
      writeln(b);                                                                 
      writeln(c);                                                                 
      writeln(a:5);                                                               
      writeln(b:5);                                                               
       writeln(c:5);                                                               
       end.                                                                        
 

                                                                            

 第三题

  ║program jiu;                                                                  ▲
║var                                                                           ■
║m,a,b,c,d:integer;                                                            ▒
║begin                                                                         ▒
║readln(m);                                                                    ▒
║a:=m div 1000;                                                                ▒
║b:=(m-a*1000)div 100;                                                         ▒
║c:=(m-a*1000-b*100)div 10;                                                    ▒
║d:=m mod 10;                                                                  ▒
║write(d:3,c:3,b:3,a:3);                                                       ▒
║end.                                                                          ▒
║                                                                              ▒
║                                                                              ▒
第四题

 ║program lx4;                                                                  ▲
║var a:string;                                                                 ■
║n,m,i:integer;                                                                ▒
║begin                                                                         ▒
║writeln('please input:');                                                     ▒
║readln(a);                                                                    ▒
║m:=ord(a);                                                                    ▒
║m:=m-32;                                                                      ▒
║a:=chr(m);                                                                    ▒
║write(a);                                                                     ▒
║end.                                                                          ▒
║                                                                              ▒
第五题

  ║program gfgf;                                                                 ▲
║var                                                                           ■
║a,d:real;                                                                     ▒
║b,c:integer;                                                                  ▒
║begin                                                                         ▒
║writeln('input a=');                                                          ▒
║readln(a);                                                                    ▒
║begin                                                                         ▒
║b:=round(a);                                                                  ▒
║c:=trunc(a);                                                                  ▒
║d:=a-trunc(a);                                                                ▒
║end;                                                                          ▒
║writeln(a);                                                                   ▒
║writeln(c,'      ',d);                                                        ▒
║writeln(b);                                                                   ▒
║end.                                                                          ▒

第六题

║program fff;                                                                  ▲
║var                                                                           ■
║a,b,s,l:integer;                                                              ▒
║begin                                                                         ▒
║read(a,b);                                                                    ▒
║s:=a*b;                                                                       ▒
║l:=(a+b)*2;                                                                   ▒
║writeln(s,'  ',l);                                                            ▒
║end.                                                                          ▒

第 七题

 ║program bnm;                                                                  ▲
║var                                                                           ■
║a,b,c,m:integer;                                                              ▒
║begin                                                                         ▒
║writeln(a,b,c);                                                               ▒
║readln(a,b,c);                                                                ▒
║begin                                                                         ▒
║m:=a*3600+b*60+c;                                                             ▒
║end;                                                                          ▒
║writeln(m);                                                                   ▒
║end.                                                                          ▒
║                                                                              ▒
║                                                                              ▒

仅作参考