5.3 Viết chương trình nhập hai số nguyên có đúng 3 chữ số, và in ra kết quả phép tính nhân theo dạng: 123 x 123 ==

0 bình luận về “5.3 Viết chương trình nhập hai số nguyên có đúng 3 chữ số, và in ra kết quả phép tính nhân theo dạng: 123 x 123 ==”

1. `5.3`Chương trình thập số: 

   uses crt;
   var a,b,S,ts:string; I,c,d,hang,tam,e:longint;
   begin
   clrscr;
      write(‘a=’);readln(a);
      write(‘b=’);readln(b);
      val(a,c); val(b,d); str(c*d,s);
      hang:=3;
      gotoxy(length(s)-2,hang); writeln(a); inc(hang,2);
      writeln(‘x’);
      gotoxy(length(s)-2,hang); writeln(b); inc(hang,2);
      For i:=1 to length(s) do write(‘-‘);writeln;
      for i:=3 downto 1 do
         begin
            val(b[i],tam,e);
            str(tam*c,ts);
            gotoxy(length(s)-length(ts)+i-2,hang); write(ts);
            inc(hang);
         end;
      writeln;
      For i:=1 to length(s) do write(‘-‘);writeln;
      writeln(s);
   readln
   end.

   Bình luận

2. uses crt;
   var a,b,S,ts:string; I,c,d,hang,tam,e:longint;
   begin
   clrscr;
      write(‘a=’);readln(a);
      write(‘b=’);readln(b);
      val(a,c); val(b,d); str(c*d,s);
      hang:=3;
      gotoxy(length(s)-2,hang); writeln(a); inc(hang,2);
      writeln(‘x’);
      gotoxy(length(s)-2,hang); writeln(b); inc(hang,2);
      For i:=1 to length(s) do write(‘-‘);writeln;
      for i:=3 downto 1 do
         begin
            val(b[i],tam,e);
            str(tam*c,ts);
            gotoxy(length(s)-length(ts)+i-2,hang); write(ts);
            inc(hang);
         end;
      writeln;
      For i:=1 to length(s) do write(‘-‘);writeln;
      writeln(s);
   readln
   end.

   /////////////////////////

   Test:

   

   Bình luận