Page 125 - C:\Users\Admin\Desktop\Sach mem upweb\

100 Problems & Solutions Trang 125

(Lời giải của bạn Nguyễn Cao Thắng - Lớp 12A2 chuyên Vĩnh Phúc - tỉnh Vĩnh Phúc)

Bài 71/2001 - Thực hiện phép nhân
Program Thuc_hien_phep_nhan;
Uses Crt;
Type so = 0..9;
Var a,b,c,d: string;
can,i: byte;
Procedure Nhap;
Begin
Clrscr;
Write('Nhap so a : '); Readln(a);
Write('Nhap so b : '); Readln(b);
Writeln('Phep nhan a va b : ');
can:=length(a)+length(b)+1;
Writeln(a:can);
Writeln('X');
Writeln(b:can);
For i:=1 to can do Write('-');
Writeln;
End;
Procedure Nhan(a: string; k: so);
Var nho: so;
x,i: byte;
Begin
nho:=0;
c:='';
For i:=length(a) downto 1 do
Begin
x:=(ord(a[i])-48)*k+nho;
nho:=x div 10;
c:=chr((x mod 10)+48)+c;
End;
If nho>0 then c:=chr(nho+48)+c;
Writeln(c:can);
can:=can-1;
End;
Procedure Cong(var c,d: string; z:byte);
Var nho: so;
x,i: byte;
Begin
for i:=1 to length(b)-z do c:=c+'0';
If length(c) > length(d) then
For i:=1 to length(c)-length(d) do d:='0'+d
Else
For i:=1 to length(d)-length(c) do c:='0'+c;
nho:=0;
For i:=length(d) downto 1 do
Begin
x:=ord(d[i])+ord(c[i])-96+nho;

Tin học & Nhà trường 100 Đề Toán - Tin học