منتديات العلوم الإحصائية

منتديات تهتم بعلوم الإحصاء و الرياضيات التطبيقية و علوم الحاسوب
 
الرئيسيةس .و .جبحـثالتسجيلدخول
شركة الجزيرة للاستشارات و نظم المعلومات - شركة متخصصة في مجال الاستشارات الاحصائية و تكنولوجيا المعلومات - لتنفيذ الدراسات عن بعد التواصل عبر 963999786402-alaasyri@gmail.com
   

شاطر | 
 

 برنامج لحساب مقاييس النزعة المركزية لعينة مدخلة

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل 
كاتب الموضوعرسالة
علاء
Admin
Admin


ذكر عدد الرسائل : 293
العمر : 31
المدينة : اللاذقية
القسم : الاحصاء
شعارك بالحياة : نحن قوم أعزنا الله بالإسلام فمهما ابتغينا العزة بغيره أذلنا الله
نقاط : 3554
تاريخ التسجيل : 30/12/2007

مُساهمةموضوع: برنامج لحساب مقاييس النزعة المركزية لعينة مدخلة   الخميس فبراير 12, 2009 6:27 am

اكتب برنامج لحساب مقاييس النزعة المركزية لعينة مدخلة من النوع الحقيقي علما بأن حجم العينة لا يزيد عن 100

(أي أوجد المتوسط الحسابي و الوسط و المنوال)



program central;

uses wincrt;

var x:array[1..100]of real;

y:array[1..100]of integer;

xn,med,min,max:real;

n,i,j,k:integer;

begin

write('inputn=');

readln(n);

for i:=1 to n do

begin

write('x[',i,']=');

readln(x[i]);

end;

xn:=0;

for i:=1 to n do

xn:=xn+x[i];

xn:=xn/n;

writeln('mean=',xn);

if n mod 2=0 then

med:=(x[n div 2]+x[1+n div 2])/2

else

med:=x[(n+1) div 2];

writeln('median=',med);

for i:=1 to n do

begin

y[i]:=0;

for j:=1 to n do

if x[i]=x[j] then y[i]:=y[i+1];

end;

min:=y[1];

max:=y[1];

k:=1;

for i:=2 to n do

if y[i]
else

if y[i]>max then max:=y[i];

begin

max:=y[i];

k:=i;

end;

if min=max then

writeln('no mode')

else

writeln('mode=',x[k]);

end.

_________________
اذا أردت شيئا بشدة فأطلق سراحه فإن عاد إليك فهو ملكك للأبد وإن لم يعد فهو لم يكن لك من البداية
لا تشكو للناس جرحاً انت صاحبه ... لا يـألم الجرح الا من به ألم
إذا كان الناس يعملون ثمان ساعات في اليوم فلنعمل تسع ساعات : ثمان ساعات لأنفسنا و الساعة التاسعة فلتكن من أجل بلدنا
" ان علما دون دين هو علم أعرج وان دينا دون علم هو دين أعمى " (آينشتاين)
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]
الرجوع الى أعلى الصفحة اذهب الى الأسفل
 
برنامج لحساب مقاييس النزعة المركزية لعينة مدخلة
استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
منتديات العلوم الإحصائية :: قسم الإحصاء :: السنة الثالثة-
انتقل الى: