جوجه مهندسان كامپيوتر(نياز به كمك بزرگان دارند...پاسكال)

به نام خدائي كه دوستش دارم.....
سلام به همه بچه هاي گل ايران زمين.........
من صدرا يه جوجه مهندس كامپوتر هستم و قصد دارم در اين تاپيك و تاپيك هايي با اين نام(جوجه ....البته وقتي بزرگ بشم عوضش مي كنم ولي الان همين جوجه مناسب تره...) متناسب با تغيير ترم ها مشكلات خودم و ساير جوجه ها (..به كسي بر نخوره...) رو با كمك بزرگان و همفكري هم قطاران(ساير جوجه ها ) حل كنم.
توي اين تاپيك كد برنامه هايي كه حل مي شوند رو قرار ميدم(البته بنا بر استناد به گفته مدير انجمنsa3er عزيز جوجه هاي عزيز اول سعي در حل مسئله ها كنند بعد رجوع كنند...لطفا...) و از هم قطاران عزيز در خواست دارم اگه مسئله جديدي رو حل كردند يا جائي ديدند توي تاپيك قرار بدند يا اگه مسئله اي رو نتونستند حل كنند توي تاپيك سوال كنند تا با همفكري يا كمك بزرگان حلش كنيم.....
در ضمن مسئله هاي پيش پا افتاده هم قرار بدين تا يه آرشيو كامل بوجود بياد

البته جوجه هاي عزيز اول سعي در حل مسئله كنند...خواهشا....لطفا....جون مادرتون

کد:

---

CONST
    MAXARY=10;
VAR
  ARYX:ARRAY [1..MAXARY] OF INTEGER;
  I,J,TEMP ,MOD1,MOD2,CountMod1,CountMod2,CountMod3:INTEGER;
   
 
begin
    WRITELN('>> Enter ',MAXARY,' number <<');
    WRITELN;
    FOR I:=1 TO MAXARY DO
        READLN(ARYX[I]);

                      (*------------- SORT -----------*)
    FOR I:=1 TO MAXARY-1 DO
        FOR J:=I+1 TO MAXARY DO
            IF ARYX[I]>ARYX[J] THEN BEGIN
                TEMP:=ARYX[J];
                ARYX[J]:=ARYX[I];
                ARYX[I]:=TEMP;
            END;
                 
                        (*------------- SHOW -----------*)
        WRITELN;
    WRITELN;WRITE(' The sort array is :');
    FOR I:=1 TO MAXARY DO WRITE(' ' ,ARYX[I]);

---

اگه کسی راه حل دیگه ای پیدا کرد مارو فراموش نکنه

اقا صدرا سلام
فكر بسيار خوبي است و اگه ديگران همكاري كنند بسيار عالي مي شود
اما......
اما شو بي خيال .....
منم يه جوجم مثل خودت(...از اصطلاح جوجت خوشم اومده :angry: )و چشم به كمك بزرگان و ساير هم قطاران :blush: دارم
راستي در به در دنبال برنامه sort میگشتم که شما گذاشتید (لازم به ذکر است که خودم خیلی فکر کردم ;) )
انشاالله تو این راه بتونم کمک خوبی واستون باشم

صدرا جان دمت گرم كه خيلي بهم حال دادي.....
روز اولي كه من تواين سايت عضو شدم خوردم به پست جوجه ها و.... ادامش رو كه ميدوني ...
لطفا كد هاي گنده گنده بزار..... :puke: (البته من خودم اول روي اون كدها فكرو فعاليت مي كنم ;) :rolleye: :blush: )

سلام بچه ها اگه ميشه يکي از اين دو برنامه ي پاسکال را برايم بنويسيد خيلي فوري اگه ميشه؟ چون 3 روز بيشتر وقت ندارم
برنامه اي بنويسيد که عددي را از ورودي دريافت کرد سپس ان را به عامل هاي اول تجزيه کرده و بصورت زير چاپ کند
21=(3^1)*(7^1)
برنامه اي بنويسيد که يک عدد را از ورودي دريافت کرده سپس در صورت وجود صفرهاي ان را حذف کرده نتيجه را در خروجي چاپ نمايد مانند زير
134<-------------100340
باز هم تشکر ميکنم

saegheh67 عزيز
من اين برنامه رو برات نوشتم ولي از اونجايي كه قرار بود خودمون هم فكر كنيم يه كم دستكاري شده ولي منطق برنامه درسته درسته.... براي درست كردنش يه كم بايد وقت بذاري كاري نداره با جابه جا كردن خطوط و يه كم تغيير در حلقه ها درست ميشه ... ;) ولي اگه باز هم نتونستي حلش كني بگو برنامه اصلاح شدش رو بهت ميدم .......
برنامه اي بنويسيد که عددي را از ورودي دريافت کرد سپس ان را به عامل هاي اول تجزيه کرده....

کد:

---

const size = 25;
 Type
  ary = array[1..size] of integer;
Function Prime (t:integer):boolean;
    var
prime1:boolean;
cnt,n,r:integer;

brgin
  prime1:= false;
  cnt :=2;
      while (cnt<n) and (not prime1) do
            begin
            r:= n mod cnt;
            cnt:=cnt+1;
      if r=0 then
          prime1 := true;
          end;
  Prime:=prime1;
end;
var
t,temp1,i,j,n,cnt,r,temp2:integer;
ary1,ary2:ary;

Begin
writeln('Please enter a Nu:');
readlen (n);
t:=2;
temp1:=n;
cnt:=0;
for i:=1 to temp1 do
    for j:=1 to temp2 do
        if i=j then
            begin
                if Prime(t) then
                  brgin
                      r:= temp1 mod t;
                      cnt:=0;
                        if r=0 then
                          begin
                            temp1:= temp1 div t;
                            cnt:=cnt+1;
                            ary1[i]:=t;
                            ary2[j]:=cnt;
                            t:=t+1;
                          end
                        else
                          t:=t+1;
                    end
                else
                    t:=t+1;

temp2:=n;
for i:=1 to temp2 do
    for j:=1 to temp2 do
        if i=j then
            begin
              write('(',ary1[i],'^'.ary2[j],')','*');
            end;

write(' = ',n);
readln;
end.

---

راستي واسه برنامه دومت هم فردا اگه رسيدم بعد از دانشگاه واست اپ ميكنم...
قربانت صدرا

سلام صدرا جون
منو كه مي شناسي؟
خوب برا خودت تايپيك زديا!!!!
اين امضات هم خيلي با حال بود

به دليل مسايل خصوصي اين پست سانسور مي شود

saeghe عزيز اينم برنامه دوم ...
ولي يه مشكلي اينكه من اينجا كامپايلر نداشتم اگه ديدي ايراد گرفت خودت زحمت اصلاحش رو بكش ....
بعدا خودم كامپايلش ميكنم ولي فعلا اين اسكلت برنامه كه خواسته بودي....

حذف صفرهاي موجود در عدد ورودي

کد:

---

const size = 50
type
 ary:array[1..size];
var
x,n,temp:integer;
ary1:ary;

begin
writeln('Please Enter a Nu:');
readln(x);
temp:=x;
writeln('adad chand raghamist:');
readln(n);

while (temp <> 0 ) do
for i:=1 to n  do
begin
r:=temp mode 10;
ary1[i]:=r;
temp:=temp div 10;
end;

writeln ('Adad bedone 0 is := ');
for n downto  i:=1  do
  if ary1[i]<> 0 then
      write(ary1[i]);
readln;
end.

---

قربانت صدرا
saeghe67 عزیز در صفحه بعد می توانی نمونه دیگری از حل این مسئله رو که توسط Admiral نوشته شده پیدا کنی!

دوستان عزيز توجه داشته باشن كه منم يه جوجه تازه كارم ممكن برنامه هايي كه مي نويسم پر از اشكال باشه ولي به نظرم همين كه دست به كار مي شم خيلي خوبه..( البته اين نظر منه ... زياد اهميت نداره ;) ) از ساير دوستان نيز درخواست دارم اگه ايرادي توي برنامه هاي نوشته شده مي بينن برنامه نويس رو مطلع كنن (... ممنون...) و بقيه دوستان هم دست به كار بشين اگه برنامه اشتباه هم باشه خوبه با هم درستش مي كنيم ( گفتم باهم... :cool: )

سلام خدمت دوستان مخصوصا اقا صدراي گل
صدرا جان ميبينم خيلي فعال بودي... خوب بگذريم صدرا جان دستم به دامنت (... توي عنوان توضيح دادم...) استادمون گفته برنامه مد رو بنويسيم ( من كلي فكر كردم ... ولي خوب به جائي قدنميده...) يه فكري واسمون بكن
البته به قول اقا صدرا از همه مي خوام كمك بكنن (.. دمتون گرم يه حالي بدين...)
اقا صدرا حال مي كني سبك نوشتم (..انشائيم) عين خودته اصلا دارم ازت تقليد مي كنم ولي خيلي تاپيك با حالي زدي ....
صدرا خان سلطان جوجه هايي تو ;) :cool: