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

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

شاطر | 
 

 برنامج لاختبارالخطرات العليا الدنيا من أجل القيمة المعيارية

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



انثى عدد الرسائل : 5
العمر : 29
المدينة : طرطوس
القسم : احصاء
شعارك بالحياة : الوحدة صديق أصم يرمم الأغصان اليابسة في شجرة حياتنا ...
نقاط : 2737
تاريخ التسجيل : 22/06/2009

مُساهمةموضوع: برنامج لاختبارالخطرات العليا الدنيا من أجل القيمة المعيارية   الأربعاء يونيو 24, 2009 3:16 pm


program highlow;
uses wincrt;
var r:array[1..300]of real;
y:array[1..290]of -1..1;
n,a,i:longint;
mew,z0,segma,zalfa:real;


begin { main }
zalfa:=1.96;
readln(n);
for i:=1 to n do
readln(r[i]);
for i:=1 to n-1 do
if r[i+1]>=r[i] then
begin
writeln('+');y[i]:=1;
end
else
begin
writeln('-');
y[i]:=-1;
end;
a:=1;
for i:=1 to n-1 do
if (y[i]*y[i+1]<0) then a:=a+1;
writeln('a=',a);
mew:=(2*n-1)/3;
segma:=(a-mew)/sqrt(segma);
writeln('z0',z0);
if abs(z0)<=zalfa then
writeln('yes') else writeln('no');
end.


الرجوع الى أعلى الصفحة اذهب الى الأسفل
أمل



انثى عدد الرسائل : 5
العمر : 29
المدينة : طرطوس
القسم : احصاء
شعارك بالحياة : الوحدة صديق أصم يرمم الأغصان اليابسة في شجرة حياتنا ...
نقاط : 2737
تاريخ التسجيل : 22/06/2009

مُساهمةموضوع: برنامج طريقة كولما غورف لاختبار الأعداد العشوائية   الأربعاء يونيو 24, 2009 4:42 pm

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
الرجوع الى أعلى الصفحة اذهب الى الأسفل
 
برنامج لاختبارالخطرات العليا الدنيا من أجل القيمة المعيارية
استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

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