تبليغات
تبلیغات در دانشجو کلوب محک :: موسسه خيريه حمايت از کودکان مبتلا به سرطان ::
جستجوگر انجمن.براي جستجوي مطالب دانشجو کلوپ مي توانيد استفاده کنيد 
برای بروز رسانی تاپیک کلیک کنید
 
امتیاز موضوع:
  • 1 رأی - میانگین امتیازات: 5
  • 1
  • 2
  • 3
  • 4
  • 5

جمع دو عدد به صورت بازگشتی - پاسکال

نویسنده پیام
  • navid
    آفلاین
  • مدیر بازنشسته
    **
  • ارسال‌ها: 1,344
  • تاریخ عضویت: مرداد ۱۳۹۰
  • اعتبار: 85
  • تحصیلات:لیسانس
  • علایق:برنامه نویسی
  • محل سکونت:Istanbul, Turkey
  • سپاس ها 1152
    سپاس شده 3031 بار در 1139 ارسال
  • امتیاز کاربر: 27,279$
  • حالت من:حالت من
ارسال: #1
جمع دو عدد به صورت بازگشتی - پاسکال
program pascal;
uses crt;
var s,temp,j,i:integer; x,y:longint; r,t:byte;
n:array [1..20] of byte;
{**********************}
function sum(n,m:byte):byte;
begin
if m=1 then
sum:=n+1
else
sum:=sum(n,m-1)+1;
end;
{*********************}
begin
clrscr;
write('enter 2 number:');
readln(x,y);
r:=1; j:=1; temp:=0;
while (r>0) or (t>0) or (temp>0) do
begin
r:=x mod 10;
t:=y mod 10;
s:=sum(r,t)+temp;
if s<10 then
begin
n[j]:=s; temp:=0;
end
else
begin
n[j]:=s mod 10; temp:=s div 10;
end;
j:=j+1; x:=x div 10; y:=y div 10;
end;
for i:=j downto 1 do
write(n[i]);
readln;
end.

نویسنده: navid

مطالب مشابه ...











۱۷-۶-۱۳۹۰ ۱۲:۳۰ صبح
جستجو یافتن همه ارسال های کاربر اهدا امتیازاهدای امتیاز به کاربر پاسخ پاسخ با نقل قول
 سپاس شده توسط ♔ αϻἰг κнаη ♔

برای بروز رسانی تاپیک کلیک کنید


مطالب مشابه ...
موضوع: نویسنده پاسخ: بازدید: آخرین ارسال
  بازی جنگ فضایی-پاسکال Macsi - space fighting game. ♔ αϻἰг κнаη ♔ 0 421 ۲-۳-۱۳۹۱ ۱۱:۴۳ عصر
آخرین ارسال: ♔ αϻἰг κнаη ♔
  استخر شنا و تعداد افراد ان-پاسکال ♔ αϻἰг κнаη ♔ 0 259 ۲-۳-۱۳۹۱ ۱۱:۴۰ عصر
آخرین ارسال: ♔ αϻἰг κнаη ♔
  برنامه تقویم -پاسکال ♔ αϻἰг κнаη ♔ 0 442 ۲-۳-۱۳۹۱ ۱۱:۳۲ عصر
آخرین ارسال: ♔ αϻἰг κнаη ♔
  سورس کد گرفتن یک عدد و نمایش عامل های اول آن به زبان پاسکال navid 2 859 ۲۶-۸-۱۳۹۰ ۰۸:۵۸ عصر
آخرین ارسال: navid
  ضرب دو ماتریس - پاسکال navid 0 1,864 ۴-۷-۱۳۹۰ ۱۰:۴۱ عصر
آخرین ارسال: navid
  ترانهاده یک ماتریس - پاسکال navid 0 1,382 ۴-۷-۱۳۹۰ ۱۰:۴۰ عصر
آخرین ارسال: navid
  تعویض قطر اصلی و فرعی در یک ماتریس - پاسکال navid 0 792 ۴-۷-۱۳۹۰ ۱۰:۳۸ عصر
آخرین ارسال: navid
  جمع ردیف های یک ماتریس - پاسکال navid 0 356 ۴-۷-۱۳۹۰ ۱۰:۳۴ عصر
آخرین ارسال: navid
  جمع دو ماتریس - پاسکال navid 0 770 ۴-۷-۱۳۹۰ ۱۰:۳۰ عصر
آخرین ارسال: navid
  مرتب کردن دو آرایه غیر مرتب در یک آرایه - پاسکال navid 0 520 ۴-۷-۱۳۹۰ ۱۰:۲۷ عصر
آخرین ارسال: navid

پرش به انجمن:

کاربرانِ درحال بازدید از این موضوع: 1 مهمان