منو
لينکهاي سريع
صفحه اول
آرشيو
ايميل

  موضوعات

  آرشيو

  معرفي وب به دوستان
« ارسال براي دوستان »
نام شما :
ايميل شما :
نام دوست شما:
ايميل دوست شما:

Powered by ParsTools


  مترجم زبان سايت / Translator Language

 

  ضرب عدد یک رقمی در عدد n رقمی

program zarbb07;
{$APPTYPE CONSOLE}
var
x,y,t1:string;
i,j,n,m,e,h,q:integer;
a,b:array[1..255]of integer;
z,p:array[0..255]of integer;
t:array[1..255,0..255]of integer;
begin
writeln('please enter first number');
readln(x);
writeln('please enter second number');
readln(y);
n:=length(x);
m:=length(y);
if n>m then
 begin
  t1:=x;
  x:=y;
  y:=t1;
  n:=length(x);
  m:=length(y);
 end
else if m>n then
 begin
  n:=length(x);
  m:=length(y);
 end;
for i:=n downto 1 do
 val(x[i],a[i],e);
for i:=m downto 1 do
 val(y[i],b[i],e);
 z[m]:=0;
for i:=n downto 1 do
  begin
   for j:=m downto 1 do
    begin
     z[j]:=z[j]+a[i]*b[j];
     case z[j] of
     0..9:begin z[j]:=z[j];end;
     10..19:begin z[j]:=z[j]-10; z[j-1]:=1;end;
     20..29:begin z[j]:=z[j]-20; z[j-1]:=2;end;
     30..39:begin z[j]:=z[j]-30; z[j-1]:=3;end;
     40..49:begin z[j]:=z[j]-40; z[j-1]:=4;end;
     50..59:begin z[j]:=z[j]-50; z[j-1]:=5;end;
     60..69:begin z[j]:=z[j]-60; z[j-1]:=6;end;
     70..79:begin z[j]:=z[j]-70; z[j-1]:=7;end;
     80..81:begin z[j]:=z[j]-80; z[j-1]:=8;end;
     end;
    p[j]:=z[j];
    p[0]:=z[j-1];
   if j=1 then
    begin
     for h:=n downto 1 do
      begin
       for q:=m downto 0 do
       t[h,q]:=p[q];
      end;
    end;
   end;
 end;
writeln;
write('x*y:=');
if t[1,1]=0 then
begin
 for h:=1 to n do
 for q:=1 to m do
 write(t[h,q]);
end
else
begin
 for h:=1 to n do
 for q:=1 to m do
 write(t[h,q]);
end;
readln;
end.

نظرات ()
lamei یکشنبه ۸ دی ۱۳۸٧

  درباره




  آمار

»تعداد بازديدها:
»کاربر: Admin

لينك Rss

  مديران / وضعيت در ياهو


  لينک ها
سایت استاد ارش میرزائی
بهترین نرم افزارهای موبایل
یه وبلاگ بسیار خوب برای دانلود برنامه های مختلف
اموزش برنامه نویسی پاسکال
pascalprograms.mihanblog.com
smt2.persianblog.ir
سایت دانشکده فناوری اطلاعات
وبلاگ تخصصی برنامه نویسی c++
پرقدرت ترین و با امکانات ترین سایت جذاب و علمی مخصوص دانش آموزان ایرانی
بهترین وبلاگ دانلود سوالات پیام نور
تبلیغات وبلاگی
برنامه نویسی شی گرا در سی شارپ
دانلود نرم افزار

 

 

Designed Template By: PersiaStyle.Com
Coryright© PersiaStyle. All Rights Reserved