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

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

شاطر | 
 

 برنامج لتوليد أعداد شبه عشوائية

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


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

مُساهمةموضوع: برنامج لتوليد أعداد شبه عشوائية   الثلاثاء يونيو 23, 2009 10:47 pm

برنامج لسحب عينة عشوائية حجمها m=40 من مجتمع مؤلف من N=5000 عنصرا
بالاعتماد على مولد عشوائي حاسوبي يحاكي طريقة الجداول العشوائية أو طريقة السحب
بالدواليب ( توليد أعداد شبه عشوائية )



Program randoooo;


Uses wincrt;


Var x:array[1..5000]of
integer;


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


a:array[1..4]of 0..9;


n,m,l,I,j, num:integer;


function
p(a,n:integer):integer;


begin


if n=0 then
p:=1


else
p:=a*p(a,n-1)


end;


Begin
readln(n);


Readln(m);


Readln(l);


For i:=1 to n
do x[i]:=i;


Randomize;


For i:=1 to m
do


Begin


Repeat for
j:=1 to l do


A[i]:=random(10);


Num:=0;


For j:=1 to l
do


Num:=num +
a[j]*p(10,j-1);


Until (
num<=x[n]) and (num>0);


Y[i]:=num;


End;


Writeln('the random');


For i:=1 to m
do


Write ('y[',I,']',y[i]);

End.

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



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

مُساهمةموضوع: رد: برنامج لتوليد أعداد شبه عشوائية   الأربعاء يونيو 24, 2009 3:23 pm

يسلمو زميل علاء
الرجوع الى أعلى الصفحة اذهب الى الأسفل
 
برنامج لتوليد أعداد شبه عشوائية
استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

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