Barcha i uchun pij va indan j uchun amallarni to'g'ri bajarish ehtimoli
Talabalar S vazifani bajaradilar
1 -dasturdan foydalaniladi . Ekranda qaramlik grafigi chiziladi, lekin
kov. Bunday holda, f [S] o'zgaruvchisiga 1, hisoblagich mustaqil ravishda tayinlanadi
SR[i] vazifalari mashg'ulotlar natijasida 1 ga oshadi ,
grafik rejimini yoqish va writeln(...) iboralarini izohdan chiqarish, siz
keyingi (S +1) -chi masalaga ham o'ting .
ularning yechimiga sarflangan vaqt (o'zgaruvchilar TR[i], SR[i]). dan talab qilinadi
Doskada yechim topilsa, rahbar (S +1) --chi muammoni echishga kirishadi. Dam olish
talabalar mustaqil yechilgan masalalarning umumiy sonini va jami hisoblaydilar
1- dastur (erkin Paskal).
muhim natijalar, bir qator Kisp = 200 sinovlari amalga oshiriladi va har biri uchun
Kisp TR i /][
Kisp SR i /][
bajarilgan operatsiya o'lchovi O t)(i va hal qilingan masala soni Z t)(i har biri uchun
,
Va
.
/20/Td; f[x]:=1; oxiri; BEGIN
Randomize; Gd:= Aniqlash; InitGraph(Gd,Gm,'c:\bp\bgi'); for isp:=1 to kisp do
begin For i:=1 to 20 do begin O[i]:=0; Z[i]:=0; f[i]:=0; t:=0; oxiri; i uchun:=1 to N
uchun j uchun:=0 M uchun p[i,j]:=0,01; i uchun:=1 to N do uchun j:=0 to M uchun
p[i,j]:=p[i,j]+a[i]*(1-p[i,j])/10;
{$N+} crt, grafikdan foydalanadi; constN=8; M=150; Td=10; raqam_z=10;
Kisp=200; a:massiv[1..N] bitta=(0.16,0.15,0.14,0.12,0.11,
0.10,0.09,0.08);d:massiv[1..N] tamsayÿ=(9,9,10,10 ,11,11,12,12); var
i,j,k,isp,S,L,pp,Gd,Gm: integer; t: Longint; RND: bitta; p: massiv [1..20,0..M] yagona;
O,SR,Z: butun sonli massiv[1..20]; tt,TR: massiv[1..20] yagona; f: butun sonli
Do'stlaringiz bilan baham: |
