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 ==

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
————-
369
246
123
————
15129

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:

    5-3-viet-chuong-trinh-nhap-hai-so-nguyen-co-dung-3-chu-so-va-in-ra-ket-qua-phep-tinh-nhan-theo-d

    Bình luận

Viết một bình luận