1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148:
149:
150:
151:
152:
153:
154:
155:
156:
157:
158:
159:
160:
161:
162:
163:
164:
165:
166:
167:
168:
169:
170:
171:
172:
173:
174:
175:
176:
177:
178:
179:
180:
181:
182:
183:
184:
185:
186:
187:
188:
189:
190:
191:
192:
193:
194:
195:
196:
197:
198:
199:
200:
201:
202:
203:
204:
205:
206:
207:
208:
209:
210:
211:
212:
213:
214:
215:
216:
217:
218:
219:
220:
221:
222:
223:
224:
225:
226:
227:
228:
229:
230:
231:
232:
233:
234:
235:
236:
237:
238:
239:
240:
241:
242:
243:
244:
245:
246:
247:
248:
249:
250:
251:
252:
253:
254:
255:
256:
257:
258:
259:
260:
261:
262:
263:
264:
265:
266:
267:
268:
269:
270:
271:
272:
273:
274:
275:
276:
277:
278:
279:
280:
281:
282:
283:
284:
285:
286:
287:
288:
289:
290:
291:
292:
293:
294:
295:
296:
297:
298:
299:
300:
301:
302:
303:
304:
305:
306:
307:
308:
309:
310:
311:
312:
313:
314:
315:
316:
317:
318:
319:
320:
321:
322:
323:
324:
325:
326:
327:
328:
329:
330:
331:
332:
333:
334:
335:
336:
337:
338:
339:
340:
341:
342:
343:
344:
345:
346:
347:
348:
349:
350:
351:
352:
353:
354:
355:
356:
357:
358:
359:
360:
361:
362:
363:
364:
365:
366:
367:
368:
369:
370:
371:
372:
373:
374:
375:
376:
377:
378:
379:
380:
381:
382:
383:
384:
385:
386:
387:
388:
389:
390:
391:
392:
393:
394:
395:
396:
397:
398:
399:
400:
401:
402:
403:
404:
405:
406:
407:
408:
409:
410:
411:
412:
413:
414:
415:
416:
417:
418:
419:
420:
421:
422:
423:
424:
425:
426:
427:
428:
429:
430:
431:
432:
433:
434:
435:
436:
437:
438:
439:
440:
441:
442:
443:
444:
445:
446:
447:
448:
449:
450:
451:
452:
453:
454:
455:
456:
457:
458:
459:
460:
461:
462:
463:
464:
465:
466:
467:
468:
469:
470:
471:
472:
473:
474:
475:
476:
477:
478:
479:
480:
481:
482:
483:
484:
485:
486:
487:
488:
489:
490:
491:
492:
493:
494:
495:
496:
497:
498:
499:
500:
501:
502:
503:
504:
505:
506:
507:
508:
509:
510:
511:
512:
513:
514:
515:
516:
517:
518:
519:
520:
521:
522:
523:
524:
525:
526:
527:
528:
529:
530:
531:
532:
533:
534:
535:
536:
537:
538:
539:
540:
541:
542:
543:
544:
545:
546:
547:
548:
549:
550:
551:
552:
553:
554:
555:
556:
557:
558:
559:
560:
561:
562:
563:
564:
565:
566:
567:
568:
569:
570:
571:
572:
573:
574:
575:
576:
577:
578:
579:
580:
581:
582:
583:
584:
585:
586:
587:
588:
589:
590:
591:
592:
593:
594:
595:
596:
597:
598:
599:
600:
601:
602:
603:
604:
605:
606:
607:
608:
609:
610:
611:
612:
613:
614:
615:
616:
617:
618:
619:
620:
621:
622:
623:
624:
625:
626:
627:
628:
629:
630:
631:
632:
633:
634:
635:
636:
637:
638:
639:
640:
641:
642:
643:
644:
645:
646:
647:
648:
649:
650:
651:
652:
653:
654:
655:
656:
657:
658:
659:
660:
661:
662:
663:
664:
665:
666:
667:
668:
669:
670:
671:
672:
673:
674:
675:
676:
677:
678:
679:
680:
681:
682:
683:
684:
685:
686:
687:
688:
689:
690:
691:
692:
693:
694:
695:
696:
697:
698:
699:
700:
701:
702:
703:
704:
705:
706:
707:
708:
709:
710:
711:
712:
713:
714:
715:
716:
717:
718:
719:
720:
721:
722:
723:
724:
725:
726:
727:
728:
729:
730:
731:
732:
733:
734:
735:
736:
737:
738:
739:
740:
741:
742:
743:
744:
745:
746:
747:
748:
749:
750:
751:
752:
753:
754:
755:
756:
757:
758:
759:
760:
761:
762:
763:
764:
765:
|
'assegno percentuale ai numeri caso1 maggiori cas2 minori
'1
if cento1 <= 4 then
caso1n1="1"
caso2n1="1,1,1,1,1,1"
end if
if cento1 > 4 and cento1 <= "4,50" then
caso1n1="1,1"
caso2n1="1,1,1,1,1"
end if
if cento1 > "4,50" and cento1 <= 5 then
caso1n1="1,1,1"
caso2n1="1,1,1,1"
end if
if cento1 > 5 and cento1 <= "5,50" then
caso1n1="1,1,1,1"
caso2n1="1,1,1"
end if
if cento1 > "5,50" and cento1<= 6 then
caso1n1="1,1,1,1,1"
caso2n1="1,1"
end if
if cento1 > 6 then
caso1n1="1,1,1,1,1,1"
caso2n1="1"
end if
'response.write "<br>Casa1 numero1<br>" & caso1n1 & "<br><br>"
'2
if cento2 <= 4 then
caso1n2="2"
caso2n2="2,2,2,2,2,2"
end if
if cento2 > 4 and cento2 <= "4,50" then
caso1n2="2,2"
caso2n2="2,2,2,2,2"
end if
if cento2 > "4,50" and cento2 <= 5 then
caso1n2="2,2,2"
caso2n2="2,2,2,2"
end if
if cento2 > 5 and cento2 <= "5,50" then
caso1n2="2,2,2,2"
caso2n2="2,2,2"
end if
if cento2 > "5,50" and cento2<= 6 then
caso1n2="2,2,2,2,2"
caso2n2="2,2"
end if
if cento2 > 6 then
caso1n2="2,2,2,2,2,2"
caso2n2="2"
end if
'3
if cento3 <= 4 then
caso1n3="3"
caso2n3="3,3,3,3,3,3"
end if
if cento3 > 4 and cento3 <= "4,50" then
caso1n3="3,3"
caso2n3="3,3,3,3,3"
end if
if cento3 > "4,50" and cento3 <= 5 then
caso1n3="3,3,3"
caso2n3="3,3,3,3"
end if
if cento3 > 5 and cento3 <= "5,50" then
caso1n3="3,3,3,3"
caso2n3="3,3,3"
end if
if cento3 > "5,50" and cento3<= 6 then
caso1n3="3,3,3,3,3"
caso2n3="3,3"
end if
if cento3 > 6 then
caso1n3="3,3,3,3,3,3"
caso2n3="3"
end if
'4
if cento4 <= 4 then
caso1n4="4"
caso2n4="4,4,4,4,4,4"
end if
if cento4 > 4 and cento4 <= "4,50" then
caso1n4="4,4"
caso2n4="4,4,4,4,4"
end if
if cento4 > "4,50" and cento4 <= 5 then
caso1n4="4,4,4"
caso2n4="4,4,4,4"
end if
if cento4 > 5 and cento4 <= "5,50" then
caso1n4="4,4,4,4"
caso2n4="4,4,4"
end if
if cento4 > "5,50" and cento4<= 6 then
caso1n4="4,4,4,4,4"
caso2n4="4,4"
end if
if cento4 > 6 then
caso1n4="4,4,4,4,4,4"
caso2n4="4"
end if
'5
if cento5 <= 4 then
caso1n5="5"
caso2n5="5,5,5,5,5,5"
end if
if cento5 > 4 and cento5 <= "4,50" then
caso1n5="5,5,"
caso2n5="5,5,5,5,5"
end if
if cento5 > "4,50" and cento5 <= 5 then
caso1n5="5,5,5"
caso2n5="5,5,5,5"
end if
if cento5 > 5 and cento5 <= "5,50" then
caso1n5="5,5,5,5"
caso2n5="5,5,5"
end if
if cento5 > "5,50" and cento5<= 6 then
caso1n5="5,5,5,5,5"
caso2n5="5,5"
end if
if cento5 > 6 then
caso1n5="5,5,5,5,5,5"
caso2n5="5"
end if
'6
if cento6 <= 4 then
caso1n6="6"
caso2n6="6,6,6,6,6,6"
end if
if cento6 > 4 and cento6 <= "4,50" then
caso1n6="6,6"
caso2n6="6,6,6,6,6"
end if
if cento6 > "4,50" and cento6 <= 5 then
caso1n6="6,6,6"
caso2n6="6,6,6,6,"
end if
if cento6 > 5 and cento6 <= "5,50" then
caso1n6="6,6,6,6"
caso2n6="6,6,6"
end if
if cento6 > "5,50" and cento6<= 6 then
caso1n6="6,6,6,6,6"
caso2n6="6,6"
end if
if cento6 > 6 then
caso1n6="6,6,6,6,6,6"
caso2n6="6"
end if
'7
if cento7 <= 4 then
caso1n7="7"
caso2n7="7,7,7,7,7,7"
end if
if cento7 > 4 and cento7 <= "4,50" then
caso1n7="7,7"
caso2n7="7,7,7,7,7"
end if
if cento7 > "4,50" and cento7 <= 5 then
caso1n7="7,7,7"
caso2n7="7,7,7,7"
end if
if cento7 > 5 and cento7 <= "5,50" then
caso1n7="7,7,7,7"
caso2n7="7,7,7"
end if
if cento7 > "5,50" and cento7<= 6 then
caso1n7="7,7,7,7,7"
caso2n7="7,7"
end if
if cento7 > 6 then
caso1n7="7,7,7,7,7,7"
caso2n7="7"
end if
'8
if cento8 <= 4 then
caso1n8="8"
caso2n8="8,8,8,8,8,8"
end if
if cento8 > 4 and cento8 <= "4,50" then
caso1n8="8,8"
caso2n8="8,8,8,8,8"
end if
if cento8 > "4,50" and cento8 <= 5 then
caso1n8="8,8,8"
caso2n8="8,8,8,8"
end if
if cento8 > 5 and cento8 <= "5,50" then
caso1n8="8,8,8,8"
caso2n8="8,8,8"
end if
if cento8 > "5,50" and cento8<= 6 then
caso1n8="8,8,8,8,8"
caso2n8="8,8"
end if
if cento8 > 6 then
caso1n8="8,8,8,8,8,8"
caso2n8="8"
end if
'9
if cento9 <= 4 then
caso1n9="9"
caso2n9="9,9,9,9,9,9"
end if
if cento9 > 4 and cento9 <= "4,50" then
caso1n9="9,9"
caso2n9="9,9,9,9,9"
end if
if cento9 > "4,50" and cento9 <= 5 then
caso1n9="9,9,9"
caso2n9="9,9,9,9"
end if
if cento9 > 5 and cento9 <= "5,50" then
caso1n9="9,9,9,9"
caso2n9="9,9,9"
end if
if cento9 > "5,50" and cento9<= 6 then
caso1n9="9,9,9,9,9"
caso2n9="9,9"
end if
if cento9 > 6 then
caso1n9="9,9,9,9,9,9"
caso2n9="9"
end if
'10
if cento10 <= 4 then
caso1n10="1'"
caso2n10="10,10,10,10,10,10"
end if
if cento10 > 4 and cento10 <= "4,50" then
caso1n10="10,10"
caso2n10="10,10,10,10,10"
end if
if cento10 > "4,50" and cento10 <= 5 then
caso1n10="10,10,10,"
caso2n10="10,10,10,10"
end if
if cento10 > 5 and cento10 <= "5,50" then
caso1n10="10,10,10,10,"
caso2n10="10,10,10,'"
end if
if cento10 > "5,50" and cento10<= 6 then
caso1n10="10,10,10,10,10"
caso2n10="10,10"
end if
if cento10 > 6 then
caso1n10="10,10,10,10,10,10"
caso2n10="10"
end if
'11
if cento11 <= 4 then
caso1n11="11"
caso2n11="11,11,11,11,11,11"
end if
if cento11 > 4 and cento11 <= "4,50" then
caso1n11="11,11"
caso2n11="11,11,11,11,11"
end if
if cento11 > "4,50" and cento11 <= 5 then
caso1n11="11,11,11"
caso2n11="11,11,11,11"
end if
if cento11 > 5 and cento11 <= "5,50" then
caso1n11="11,11,11,11"
caso2n11="11,11,11"
end if
if cento11 > "5,50" and cento11<= 6 then
caso1n11="11,11,11,11,11"
caso2n11="11,11"
end if
if cento11 > 6 then
caso1n11="11,11,11,11,11,11"
caso2n11="11"
end if
'12
if cento12 <= 4 then
caso1n12="12"
caso2n12="12,12,12,12,12,12"
end if
if cento12 > 4 and cento12 <= "4,50" then
caso1n12="12,12"
caso2n12="12,12,12,12,12"
end if
if cento12 > "4,50" and cento12 <= 5 then
caso1n12="12,12,12"
caso2n12="12,12,12,12"
end if
if cento12 > 5 and cento12 <= "5,50" then
caso1n12="12,12,12,12"
caso2n12="12,12,12"
end if
if cento12 > "5,50" and cento12<= 6 then
caso1n12="12,12,12,12,12"
caso2n12="12,12"
end if
if cento12 > 6 then
caso1n12="12,12,12,12,12,12"
caso2n12="12"
end if
'13
if cento13 <= 4 then
caso1n13="13"
caso2n13="13,13,13,13,13,13"
end if
if cento13 > 4 and cento13 <= "4,50" then
caso1n13="1313"
caso2n13="13,13,13,13,13"
end if
if cento13 > "4,50" and cento13 <= 5 then
caso1n13="13,13,13"
caso2n13="13,13,13,13"
end if
if cento13 > 5 and cento13 <= "5,50" then
caso1n13="13,13,13,13"
caso2n13="13,13,13"
end if
if cento13 > "5,50" and cento13<= 6 then
caso1n13="13,13,13,13,13"
caso2n13="13,13"
end if
if cento13 > 6 then
caso1n13="13,13,13,13,13,13"
caso2n13="13"
end if
'14
if cento14 <= 4 then
caso1n14="14"
caso2n14="14,14,14,14,14,14"
end if
if cento14 > 4 and cento14 <= "4,50" then
caso1n14="14,14"
caso2n14="14,14,14,14,14"
end if
if cento14 > "4,50" and cento14 <= 5 then
caso1n14="14,14,14"
caso2n14="14,14,14,14"
end if
if cento14 > 5 and cento14 <= "5,50" then
caso1n14="14,14,14,14"
caso2n14="14,14,14"
end if
if cento14 > "5,50" and cento14<= 6 then
caso1n14="14,14,14,14,14"
caso2n14="14,14"
end if
if cento14 > 6 then
caso1n14="14,14,14,14,14,14"
caso2n14="14"
end if
'15
if cento15 <= 4 then
caso1n15="15"
caso2n15="15,15,15,15,15,15"
end if
if cento15 > 4 and cento15 <= "4,50" then
caso1n15="15,15"
caso2n15="15,15,15,15,15"
end if
if cento15 > "4,50" and cento15 <= 5 then
caso1n15="15,15,15"
caso2n15="15,15,15,15"
end if
if cento15 > 5 and cento15 <= "5,50" then
caso1n15="15,15,15,15"
caso2n15="15,15,15"
end if
if cento15 > "5,50" and cento15<= 6 then
caso1n15="15,15,15,15,15"
caso2n15="15,15"
end if
if cento15 > 6 then
caso1n15="15,15,15,15,15,15"
caso2n15="15"
end if
'
if cento16 <= 4 then
caso1n16="16"
caso2n16="16,16,16,16,16,16"
end if
if cento16 > 4 and cento16 <= "4,50" then
caso1n16="16,16"
caso2n16="16,16,16,16,16"
end if
if cento16 > "4,50" and cento16 <= 5 then
caso1n16="16,16,16"
caso2n16="16,16,16,16"
end if
if cento16 > 5 and cento16 <= "5,50" then
caso1n16="16,16,16,16"
caso2n16="16,16,16"
end if
if cento16 > "5,50" and cento16<= 6 then
caso1n16="16,16,16,16,16"
caso2n16="16,16"
end if
if cento16 > 6 then
caso1n16="16,16,16,16,16,16"
caso2n16="16"
end if
'17
if cento17 <= 4 then
caso1n17="17"
caso2n17="17,17,17,17,17,17"
end if
if cento17 > 4 and cento17 <= "4,50" then
caso1n17="17,17"
caso2n17="17,17,17,17,17"
end if
if cento17 > "4,50" and cento17 <= 5 then
caso1n17="17,17,17"
caso2n17="17,17,17,17"
end if
if cento17 > 5 and cento17 <= "5,50" then
caso1n17="17,17,17,17"
caso2n17="17,17,17"
end if
if cento17 > "5,50" and cento17<= 6 then
caso1n17="17,17,17,17,17"
caso2n17="17,17"
end if
if cento17 > 6 then
caso1n17="17,17,17,17,17,17"
caso2n17="17"
end if
'18
if cento18 <= 4 then
caso1n18="18"
caso2n18="18,18,18,18,18,18"
end if
if cento18 > 4 and cento18 <= "4,50" then
caso1n18="18,18"
caso2n18="18,18,18,18,18"
end if
if cento18 > "4,50" and cento18 <= 5 then
caso1n18="18,18,18"
caso2n18="18,18,18,18"
end if
if cento18 > 5 and cento18 <= "5,50" then
caso1n18="18,18,18,18"
caso2n18="18,18,18"
end if
if cento18 > "5,50" and cento18<= 6 then
caso1n18="18,18,18,18,18"
caso2n18="18,18"
end if
if cento18 > 6 then
caso1n18="18,18,18,18,18,18"
caso2n18="18"
end if
'19
if cento19 <= 4 then
caso1n19="19"
caso2n19="19,19,19,19,19,19"
end if
if cento19 > 4 and cento19 <= "4,50" then
caso1n19="19,19"
caso2n19="19,19,19,19,19"
end if
if cento19 > "4,50" and cento19 <= 5 then
caso1n19="19,19,19"
caso2n19="19,19,19,19"
end if
if cento19 > 5 and cento19 <= "5,50" then
caso1n19="19,19,19,19"
caso2n19="19,19,19"
end if
if cento19 > "5,50" and cento19<= 6 then
caso1n19="19,19,19,19,19"
caso2n19="19,19"
end if
if cento19 > 6 then
caso1n19="19,19,19,19,19,19"
caso2n19="19"
end if
'20
if cento20 <= 4 then
caso1n20="20"
caso2n20="20,20,20,20,20,20"
end if
if cento20 > 4 and cento20 <= "4,50" then
caso1n20="20,20"
caso2n20="20,20,20,20,20"
end if
if cento20 > "4,50" and cento20 <= 5 then
caso1n20="20,20,20"
caso2n20="20,20,20,20"
end if
if cento20 > 5 and cento20 <= "5,50" then
caso1n20="20,20,20,20"
caso2n20="20,20,20"
end if
if cento20 > "5,50" and cento20<= 6 then
caso1n20="20,20,20,20,20"
caso2n20="20,20"
end if
if cento20 > 6 then
caso1n20="20,20,20,20,20,20"
caso2n20="20"
end if
' funzione 10 numeri random
dim arrnumeri(10)
'funzione per controllo numeri presenti
function presente(numero)
dim rit
rit=false
for i=0 to ubound(arrnumeri)
if arrnumeri(i)=numero then rit=true
next
presente=rit
end function
'sub per inserire numero in array
sub inserisci(numero)
dim s,i
s=0
i=0
while (not s>0) or i=ubound(arrnumeri)
if arrnumeri(i)="" or isNull(arrnumeri(i)) then
arrnumeri(i)=numero
s=s+1
end if
i=i+1
wend
end sub
'caso1n1=array(1,2,3,4,5,6,7,8,9,10)
'caso1n2=array(11,12,13,14,15,16,17,18,19,20)
'box1 = Array(0, 1, 2, 9, 10, 11, 18, 19, 20)
'box2 = Array(3, 4, 5, 12, 13, 14, 21, 22, 23)
'function per estrarre i numeri
function estraiNumero()
dim numero
'MyArry=array (1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20)
MyArry=array (caso1n1,caso1n2,caso1n3,caso1n4,caso1n5,caso1n6,caso1n7,caso1n8,caso1n9,caso1n10,caso1n11,caso1n12,caso1n13,caso1n14,caso1n15,caso1n16,caso1n17,caso1n18,caso1n19,caso1n20)
'dim MyArry(18)
'MyArry=array(box1,box2)
'MyArry=array (prova)
'response.write "<br>"& MyArry &"<br>"
conto=ubound(MyArry)
conto=conto+1
randomize
numero=int((rnd * conto))
'response.write numero
estraiNumero=Myarry(numero)
end function
sub caricaArray()
dim numero
numero=estraiNumero()
if presente(numero) then
caricaArray
else
inserisci(numero)
end if
end sub
for estrazioni=1 to 10
caricaArray
next
'recupero i numeri per ordinamento
for i=0 to 9
If i=0 then
d1=arrnumeri(i)
end if
if i=1 then
d2=arrnumeri(i)
end if
if i=2 then
d3=arrnumeri(i)
end if
if i=3 then
d4=arrnumeri(i)
end if
if i=4 then
d5=arrnumeri(i)
end if
if i=5 then
d6=arrnumeri(i)
end if
if i=6 then
d7=arrnumeri(i)
end if
if i=7 then
d8=arrnumeri(i)
end if
if i=8 then
d9=arrnumeri(i)
end if
if i=9 then
d10=arrnumeri(i)
end if
next
'Insertion Sort
sub ordina(byref A)
n=ubound(A)
for j=1 to n
x=A(j)
i=j-1
go=1
while (i>=0)and(go=1)
if (A(i)>x) then
A(i+1)=A(i)
i=i-1
else
go=0
end if
wend
A(i+1)=x
next
end sub
'Il nostro array iniziale
a=array(d1,d2,d3,d4,d5,d6,d7,d8,d9,d10)
'Ordiniamo l'array
call ordina(a)
for i=0 to ubound(a)
response.write a(i) & " "
next
|
