به قول ايليا : هر دم از اين باغ بري مي رسد....
سلام بازم به گرمي جهنم
يه تشكر گنده گنده واسه استاد 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: ) ....
صدرا جون مرسي از كمكت ... ولي اين يكي ايراد زياد داره جيگر .... ( فكر نكني جازدم ها ...)