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

مرتب کردن دو آرایه غیر مرتب در یک آرایه - پاسکال

نویسنده پیام
  • navid
    آفلاین
  • مدیر بازنشسته
    **
  • ارسال‌ها: 1,344
  • تاریخ عضویت: مرداد ۱۳۹۰
  • اعتبار: 85
  • تحصیلات:لیسانس
  • علایق:برنامه نویسی
  • محل سکونت:Istanbul, Turkey
  • سپاس ها 1152
    سپاس شده 3031 بار در 1139 ارسال
  • امتیاز کاربر: 27,279$
  • حالت من:حالت من
ارسال: #1
مرتب کردن دو آرایه غیر مرتب در یک آرایه - پاسکال

کد:
program pascal
 uses crt; 
 type
  a= array [1..100] of integer;
  b= array [1..200] of integer;
 var
  x,y:a;
  z:b;
  k,j,i,n,m,s:integer;
begin
 clrscr;
 k:=0;
 write('enter number of first and second array:');
 readln(n,m);
 write('enter first sorted array:');
 for i:=1 to n do
  readln(x[i]);
 write('enter second sorted array:');
 for j:=1 to m do
  readln(y[j]);
 i:=1; j:=1;
 while ( i<=n ) and (j<=m ) do
   begin
    if x[i]=y[j] then
     begin
      k:=k+1; z[k]:=x[i];
      k:=k+1; z[k]:=y[j];
      i:=i+1; j:=j+1;
     end
    else if x[i]>y[j] then
     begin
      k:=k+1; z[k]:=y[j]; j:=j+1;
     end
    else
     begin
      k:=k+1; z[k]:=x[i]; i:=i+1;
     end;
   end;
 for s:=i to n do
  begin
   k:=k+1; z[k]:=x[s];
  end;
 for s:=j to m do
  begin
   k:=k+1; z[k]:=y[s];
  end;
 for i:=1 to k do
  write(z[i]:5);
 readln;
end.

نویسنده: navid
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52



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










تن آدمی شریف است به جیب آدمیت و همین لباس زیباست نشان آدمیت !

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

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


مطالب مشابه ...
موضوع: نویسنده پاسخ: بازدید: آخرین ارسال
  بازی جنگ فضایی-پاسکال 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 381 ۴-۷-۱۳۹۰ ۱۰:۱۹ عصر
آخرین ارسال: navid

پرش به انجمن:

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