برنامه ضرب اعداد بزرگ به زبان پاسكال

[serojjamali]

در اين برنامه اعداد به صورت رشته وارد برنامه مي شوند برنامه اين اعداد را در يك رشته كپي كرده و بعد از آن اعداد متناظر در رشته را با هم جمع مي كند براي عمليات ضرب اين عمل به تعداد مورد نظر (عددي كه رشته اول در آن ضرب مي شود) تكرار مي شود.

براي راهنمايي بيشتر مي توانيد با ما تماس بگيرين


uses
crt;
const
maxofnumber:byte=70; { bozorgtarin meghdar vorodi }

function n2a(n:integer):string; { tabdile adad be carecter ASCII }
var
s:string;
begin
str(n,s); {Converts a numeric value to a string.}
n2a:=s;
end;

function a2n(s:string):byte; { tabdile ASCII be adad }
var
n,m:integer;
begin
val(s,n,m); {Converts a string value to its numeric}
a2n:=n;
end;

function sumnum(s1:string ; s2:string):string;
var
i,n,m:integer;
sum,mul, adade_sariz : integer;
num3,num4 : string; { Khoroji }
begin
num3:=”;
sumnum:=”;
adade_sariz:=0;
{ jam kardane do adad }
for i:=length(s1) downto 1 do
begin
sum:=(a2n(s1[i])+a2n(s2[i]))+adade_sariz;
adade_sariz:=sum div 10;
sum:=sum mod 10;
num3:=n2a(sum)+num3;
end;
sumnum:=num3;
end;

[serojjamali]

function mult(s1:string ; s2:string):string;

var
j,k,i,n,m:integer;
sum,mul, adade_sariz,dahgan : integer;
num3,num4 : string; { Khoroji }
begin
num3:=”;
mult:=”;
adade_sariz:=0;
num4:=”;
dahgan:=0;

{hazfe 0 az javab va rast chin karane javab }
{while num3[1]=’0′ do
delete(num3,1,1);}
for i:=length(num3) to maxofnumber-1 do
num3:=’ ‘+num3;
for i:=length(num4) to maxofnumber-1 do
num4:=’ ‘+num4;

for k:=length(s2) downto 1 do
begin
for j:=1 to (a2n(s2[k])) do
begin
num3:=sumnum(s1,num3);
{writeln(num3)}
end;
for i:=1 to maxofnumber do
num3[i]:=num3[i+dahgan];
for i:= maxofnumber downto (maxofnumber-dahgan)+1 do
num3[i]:=’0′;
num4:=sumnum(num4,num3);
{writeln(‘num3 =’,num3);
writeln(‘num4 =’,num4);}
num3:=”;
for i:=length(num3) to maxofnumber-1 do
num3:=’ ‘+num3;
dahgan:=dahgan+1;
end;
mult:=num4;
{writeln(num4);}
end;

[ASI20]

میشه بیشتر در موردش توضیح بدید؟