ضرب دو عدد 50 رقمی در پاسکال

[aghaey2]

سلام به همه ی دوستان . لطفا کمک کنید من فقط 3روز وقت دارم . هیشکی رو پیدا نکردم که بتونه کمکم کنه خواهشا اگه شما میتونید دریغ نکنید من 3روز دیگه امتحان دارم و نیاز دارم به این پروژه. تو محیط پاسکاله ها . فکر نمیکنم زیاد سخت باشه ولی من ... :ناراحت:

2 عدد 50 رقمی رو از ورودی بخونه و در هم ضرب کنه و حاصل رو چاپ کنه.
کسی میتونه کمکم کنه ؟ تاکید میکنم تو محیط پاسکال میخوامش.

http://up.iranblog.com/images/ee697bwcg11lc00trzo0.doc

[Felony]

اینجا کسی برات کد نمینویسه ، 2 تا آرایه عددی 50 خونه ای در نظر بگیر ، عدد رو از ورودی بگیر و با یک حلقه هر عدد رو وارد خونه ی مربوطه در آرایه بکن ؛ حالا 2 تا آرایه رو زیر هم فرض کن ، دقیقا مثل ریاضی که روی کاغذ 2 تا عدد زیر هم مینویسی و با هم ضرب میکنی تک تک خونه های آرایه رو در هم ضرب کن ( از آخر به اول ) تا جوابت به دست بیاد ( حواست به رقم نقلی هم باشه ) .

موفق باشید .

[aghaey2]

لطفا به مثالها توجه کنید . چون استاد خیلی گیر میده به این چیزا .

do adad 50 raghami o az voroodi bekhone dar ham zarb kone va hasel o chap kone, ,ba estefade az zir barnameha,araye va reshteha banevisid. Ma az ketabe barname nevic pascal algoritm,reshteha,zirbarnameha,rekordha o khondim.pas in barname bayad ba estefade az ina neveshte beshe,hala har kodom ke lazem shod.faghat jori ke kheyli pishrafte nabashe ke moshakhas she khodam naneveshtam.shoma mesle mesalaye paeen faghat matne barnamaro vasam befrestid man khodam too pascal minevisam.faghat zodtar. MERC
mesal1 :
matrisi o az voroodi bekhone va taranahade oon o dar matrise AT gharar bede.
var
A:array[1..5,1..6] of real;
begin
for i:=1 to 5 do
for j:=1 to 6 do read (A[i,j]);
At(j,i):=A[i,j];
for j:=1 to 6 do
begin
write(' | ');
for i:=1 to 5 do write At([i,j]);
writln('|');
end;
end.
mesal 2 :
barnamee ke 2 arraye yek bodi be toole 5 ra az voroodi khande va dar ham edgham konad va natije ra chap konad
program meng (input,output)
const m=5 n=10;
tyep
X:array[100m] of real;
Y:array [100n] of real;
var A,B:X C:Y I.J.K:integer;
begin
for i:=1 to m do read (A[i]);
for j:=1 to m do read (B[j]);
i:=1;
j:=1;
k:=1;
repeat
if A[i]<B[j] then bagin
C[k]:=A[i];
i:=i+1;
end;
else bagin
C[k]:=B[j];
j:=j+1;
end;
k:=k+1;
until (i<m) or (j<m);
if j<m then for l:=i to m do
C[m+l]:=A[l];
else l:=j then for k:=j to m do C[m+l]:=B[l];
write (c);
.
.
.
.
.
.
.
end.

[aghaey2]

بابا دمت گرم .. اگه بلد بودم که مینوشتم.... اصلا بلد نیستم...
میدونم آخرش نمرش رو نمیارم .. ولی در نا امیدی بسی امید است !!!:لبخند:

[mehdi_mohamadi]

در جزوه طراحي الگوريتم كدش وجود دارد(ضرب اعداد n رقمي). جستجو كن پيداش ميكني

[Mahmood_M]

برای تاپیکی که ایجاد می کنید عنوان مناسب انتخاب کنید
درخواست پروژه های دانشجویی آماده نکنید ، اینجا کسی به شما کد آماده تحویل نمی ده ( طبق قوانین سایت اجازه همچین کاری رو نداره )
هر پروژه ای داشتید ، خودتون شروع به نوشتن کنید و سئوالاتتون رو در اینجا مطرح کنید ( به صورت جزئی )

در صورت رعایت نکردن موارد فوق مجبوریم تاپیک رو حذف کنیم

موفق باشید ...