جوجه مهندسان كامپيوتر(نياز به كمك بزرگان دارند...پاسكال)
به نام خدائي كه دوستش دارم.....
سلام به همه بچه هاي گل ايران زمين.........
من صدرا يه جوجه مهندس كامپوتر هستم و قصد دارم در اين تاپيك و تاپيك هايي با اين نام(جوجه ....البته وقتي بزرگ بشم عوضش مي كنم ولي الان همين جوجه مناسب تره...) متناسب با تغيير ترم ها مشكلات خودم و ساير جوجه ها (..به كسي بر نخوره...) رو با كمك بزرگان و همفكري هم قطاران(ساير جوجه ها ) حل كنم.
توي اين تاپيك كد برنامه هايي كه حل مي شوند رو قرار ميدم(البته بنا بر استناد به گفته مدير انجمن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]);
اگه کسی راه حل دیگه ای پیدا کرد مارو فراموش نکنه
بابا دمت گرم.... سلطان جوجه هايي تو
صدرا جان دمت گرم كه خيلي بهم حال دادي.....
روز اولي كه من تواين سايت عضو شدم خوردم به پست جوجه ها و.... ادامش رو كه ميدوني ...
لطفا كد هاي گنده گنده بزار..... :puke: (البته من خودم اول روي اون كدها فكرو فعاليت مي كنم ;) :rolleye: :blush: )
دستم به دامنت صدرا جان(...چيه ؟ دامنش پسرونس ايرادي نداره كه ...)
سلام خدمت دوستان مخصوصا اقا صدراي گل
صدرا جان ميبينم خيلي فعال بودي... خوب بگذريم صدرا جان دستم به دامنت (... توي عنوان توضيح دادم...) استادمون گفته برنامه مد رو بنويسيم ( من كلي فكر كردم ... ولي خوب به جائي قدنميده...) يه فكري واسمون بكن
البته به قول اقا صدرا از همه مي خوام كمك بكنن (.. دمتون گرم يه حالي بدين...)
اقا صدرا حال مي كني سبك نوشتم (..انشائيم) عين خودته اصلا دارم ازت تقليد مي كنم ولي خيلي تاپيك با حالي زدي ....
صدرا خان سلطان جوجه هايي تو ;) :cool:
برنامه در خواستي ealiya پاچه خوار......
سلام خدمت همه ......
ealiya جون برنامه ي مدي كه خواسته بودي واست گذاشتم اما زحمت درست كردنش با خودت (...اگه قد داد (عقلتو ميگم) ... اگه هم نداد خودم درستشو مي ذارم (... البته بعدا....)
البته اقا ealiya من نمي دونستم مدي كه مي خواستي مد آماري بوده يا نه ولي اين يه مد معمولي (...البته آماريش رو بلد نبودم ;) ...)
مد
کد:
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[i];
ARYX[i]:=ARYX[j];
ARYX[j]:=TEMP;
END;
(*------------- SHOW -----------*)
WRITELN;
WRITELN;WRITE(' The sort array is :');
FOR I:=1 TO MAXARY DO WRITE(' ' ,ARYX[I]);
(*------------- MOD -----------*)
TEMP:=ARYX[1];
FOR I:=1 TO MAXARY DO Begin
J:=0;
WHILE (ARYX[I]=TEMP) AND (I<>MAXARY) DO BEGIN
I:=I+1;
J:=J+1;
END; { WHILE }
IF J>COUNTMOD1 THEN BEGIN
COUNTMOD1:=J;
MOD1:=TEMP;
END;
TEMP:=ARYX[I];
END; { FOR }
WRITELN(' MOD = ',MOD1,', The number of apear : ',COUNTMOD1) ;
Readln;
end
قربونتون صدرا
هر دم از اين باغ بري ميرسد....
يه سلام خشك و خالي....
به به نمرديم و ديديم كه اقا صدرا هم به مشكل برخوردن ، صدرا جون از شما بعيد بود داداش ;)
خوب حالا اينو بي خيال ...
صدرا جون ازت ممنونم ...( واسه چي ؟ خب يه لحظه صبر كن ميگم ... :puke: ) واسه اينكه برنامه هات رو ناقص ميذاري تا خودمون بريم اصلاحش كنيم حالا به حرفت رسيدم ... اينجوري خيلي بهتره ... خودم مد رو حلش كردم ... لذتش رو هم بردم ... هر موقع اجازه بدين اصلاح شدش رو ميذارم بالا...
صدرا جون هر موقع فهميدي مختصات قطبي چيه ما رو هم بي خبر نذار ... مي خوام واست برنامت رو بنويسم :laughing: (... چيه ؟ واسه چي ميخندين... بهم نمي ياد :
admiral عزيز يه صحبتي هم با شما بود... شما از همه چيز گفتين غير از مشكل صدراي گل ... لطفا واسه حل مشكل سلطان ( اق صدرا رو ميگم ;) ) اقدامي بنماييد .... از همين حالا دستتون رو مي بوسم ... البته همه بچه ها بايد كنن ولي خب از بزرگان انتظار ديگه اي مي رود ;)
triton عزيز سعي كن كه خودت حلش كني من سعي كردم يه حالي داد.. :happy:
راستي صدرا جون اطلاعات عموميت هم بدك نيستا.... من خودم راجب اين اسم نمي دونستم :blush:
چيه مگه .... من چيم از ديگرون كمتر ه....
سلامي به گرمي جهنم ( يعني گرماش زياده ;) )
ايليا جون ، عزيز دل برادر من كه ادعائي نكردم ... من در ابتداي كار هم گفتم كه يك تازه كارم... خب بگذريم...
ايليا جون خيلي خوشحالم كه به حرفم رسيدي ، حالا اينجوري خيلي بهتره ( مگه نه ؟) در ضمن اجازه ما هم دست شماست ولي من فكر كنم اگه از هر برنامه يك نمونه باشه بهتره ... چون زياد شلوغ نباشه ...
امروز مي خوام برنامه ضرب دو ماتريس 3*3 رو بذارم اگه يكي بتونه فرمول كلي ضرب ماتريس هارو بذاره ممنون ميشم
admiral عزيز چشم اميد ما به شماست ....
کد:
Var
a,b,c:array [1..3,1..3] of integer;
i,j,k:integer;
Begin
writeln ('enter data of matrix a(3*3) ');
for i:=1 to 3 do
for j:=1 to 3 do
begin
writeln ('enter ',i,j,' : ');
readln(a[i,j]);
end;
writeln ('enter data of matrix b(3*3) ');
for i:=1 to 3 do
for j:=1 to 3 do
begin
writeln ('enter ',i,j,' : ');
Readln(b[i,j]);
end;
for i := 1 to 3 do
begin
for j := 1 to 3 do
begin
for j := 1 to 3 do
c[i,j]:= a[i,j]*b[j,j]+c[i,j];
write (c[i,j]);
end;
end;
Readln;
End.
البته يادتون نرفته كه برنامه فوق هم ناقص هست ....ولي حلش خيلي سادس...
قربون همتون صدرا
ياعلي
به قول ايليا : هر دم از اين باغ بري مي رسد....
سلام بازم به گرمي جهنم
يه تشكر گنده گنده واسه استاد admiral كه امروز خيلي بهم حال داد ... ولي استاد يه حرفي بزنم ناراحت نشي... من فرمولي هم كه گذاشتي نفهميدم.... ولي سعي خودم رو ميكنم
و بابت ضرب ماتريس ها...
admiral عزيز سعي مي كنم شاگرد خوبي واست باشم هر جور شده تا فردا خودم جوابم رو پيدا ميكنم ...
حالا ميريم سراغ هردم از اين بام بري ميرسد... نيما جان مقدم سبز اما گل اينجوري كه وارد نميشن يه ياالله مي گن بعد ميان تو ... ولي ما كه نمي ذاريم دست خالي بموني اگه كارت ضربتي نباشه تا اخر هفته برنامت رو بهت مي رسون...( ميرسونيم :happy: ... البته ناقص ... تا خودت كاملش كني ;) ) وعزيز يه نكته كه مي خواسم بهت بگم اينه كه سعي كن ديگه دوتا پست پشت سر هم نذاري ...( البته مي بخشيد...) ولي ميتونستي مطلب دوم رو توي همون اولي ويرايش كني انجوري تاپيك الكي شلوغ نمي شه (... البته اين نظر منه ... ميتوني بگي اصلا به تو چه ؟ ...)
قربانت صدرا
triton عزيز من توضيح استاد admiral رو كامل مي كنم ، شرط تقسي بر صفر رو بايد در Case of قرار بدي .... حالا ميخوام ببينم چيكار ميكني ؟ اميدوارم به جواب برسي :rolleye:
بچه ها امروز برنامه مد آماري رو ميذارم با مد قبلي فرق داره.....
کد:
(*Program: Finding The Statistics Mod of Some Array
Programmer : SADRA
*)
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[i];
ARYX[i]:=ARYX[j];
ARYX[j]:=TEMP;
END;
(*------------- SHOW -----------*)
WRITELN;
WRITELN;WRITE(' The sort array is :');
FOR I:=1 TO MAXARY DO
WRITE(' ' ,ARYX[I]);
(*------------- MOD -----------*)
TEMP:=ARYX[1];
FOR I:=1 TO MAXARY DO
Begin
J:=0;
WHILE (ARYX[I]=TEMP) AND (I<>MAXARY) DO
BEGIN
I:=I+1;
J:=J+1;
END; (* WHILE *)
IF J>COUNTMOD1 THEN
BEGIN
COUNTMOD1:=J;
MOD1:=TEMP;
END; (* if *)
TEMP:=ARYX[I];
END; (*for*)
TEMP:=ARYX[1];
FOR I:=1 TO MAXARY DO
Begin
J:=0;
WHILE (ARYX[I]=TEMP) AND (I<>MAXARY) AND (ARYX[I]<>MOD1) DO
BEGIN
I:=I+1;
J:=J+1;
END; (* WHILE *)
IF J>COUNTMOD2 THEN
BEGIN
COUNTMOD2:=J;
MOD2:=TEMP;
END; (*IF*)
TEMP:=ARYX[I];
END; (* FOR *)
TEMP:=ARYX[1];
FOR I:=1 TO MAXARY DO
Begin
J:=0;
WHILE (ARYX[I]=TEMP) AND (I<>MAXARY)
AND (ARYX[I]<>MOD1) AND (ARYX[I]<>MOD2)DO
BEGIN
I:=I+1;
J:=J+1;
IF J>COUNTMOD3 THEN
COUNTMOD3:=J;
END; (* WHILE *)
TEMP:=ARYX[I];
END; (* FOR*)
IF (COUNTMOD1=COUNTMOD2)AND(COUNTMOD2=COUNTMOD3)THEN
WRITELN(' MOD = ',MOD1,', The number of apear : ',COUNTMOD1+1)
ELSE
IF (COUNTMOD3<>COUNTMOD2) THEN
WRITELN(' MOD = ',(MOD1+MOD2) / 2:0:4)
ELSE
WRITELN(' This array haven''t any MOD');
END.
.........دوستان يادتون كه نرفته ... اين برنامه هم ناقصه ;) ......
قربون همتون صدرا
ياعلي
بيا خودم يه دونه تيوپلس واست بذارم....
صدرا جون بعد از سلام ...
خودم جند سال تو پنچر گيري كار كردم....
راستي برنامه اي رو مي خواستم كه نقاط زين اسبي ماتريس را چاپ كند...
تو كه لالايي بلدي چرا خوابت نمي بره...
سلام به همه
اقا titan ملت رو مسخره كردي ...؟!!! اگه صدرا كنارت نشسته پس واسه چي ديگه گرد و خاك كردي و تاپيك رو شلوغ كردي خوب همون جا ميدادي سلطان مي نوشت واست... ( ... خوب شايد سلطان هم بلد نبوده :laughing: :puke: )
صدرا جون سلام .... از يزد چه خبر ..؟! ( ... البته با استناد به حرف titan و امضاي اقا هيكلي ( تيتان رو ميگم بابا... ;) .. اگه راست باشه... :biggrin: ) ....
صدرا جون مرسي از كمكت ... ولي اين يكي ايراد زياد داره جيگر .... ( فكر نكني جازدم ها ...)
