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
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
`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.
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: