Mike
Admin
Nombre de messages : 724
Age : 32
Localisation : Canada, Québec Montréal
language de prog : LB, GM, C++, XHTML, CSS, PHP
expérience en prog : 1 ans d'expérience
Date d'inscription : 21/07/2005
 |  Sujet: petit prog pour compter Sam 11 Fév - 2:50 | |
| Voilà, je l'ai fait pour mon ami et moi, pour voir la différence de vitesse entre nos ordi. Le prog ne fonctionne qu'avec lb... - Code:
-
dim a(3000)
début = time$("ms")
for x = 1 to 1000
next x
fin = time$("ms")
print fin - début; " millièmes de secondes, qu'a mit votre ordinateur pour compter jusqu'à 1000"
open "puissance ordi.dat" for append as #1
[suite]
print #1, fin - début; " millièmes de secondes, qu'a mit votre ordinateur pour compter jusqu'à 1000"
close #1
open "puissance ordi.dat" for input as #1
while eof(#1) = 0
line input #1, a(abcd)
abcd = abcd + 1
wend
print "voici tous vos temps, en ordre croissant"
sort a(), 0, 3000
for abc = 0 to 2999
bcd = a(abc) + bcd
if a(abc) <> 0 then print a(abc)
next abc
[end]
moy = bcd / abcd
print "voici la moyenne-->"; moy
close #1
end voici un version plus simple, pour JB - Code:
-
dim a(3000)
début = time$("ms")
for x = 1 to 1000
next x
fin = time$("ms")
print fin - début; " millièmes de secondes, qu'a mit votre ordinateur pour compter jusqu'à 1000"
open "puissance ordi.dat" for append as #1
print #1, fin - début; " millièmes de secondes, qu'a mit votre ordinateur pour compter jusqu'à 1000"
close #1
open "puissance ordi.dat" for input as #1
while eof(#1) = 0
line input #1, a(abcd)
abcd = abcd + 1
wend
print "voici tous vos temps"
for abc = 0 to 2999
bcd = a(abc) + bcd
if a(abc) <> 0 then print a(abc)
next abc
moy = bcd / abcd
print "voici la moyenne-->"; moy
close #1
end
Si vous avez des question, n'hésiter pas. En passant, chapeau a Black Templar  Merci beaucoup pour tes progs 
Dernière édition par le Sam 11 Fév - 10:16, édité 1 fois | |
|
Mc-Kurt
Newbie
Nombre de messages : 1
Localisation : Pessac (33)
language de prog : Liberty BASIC/Just BASIC
expérience en prog : 1 an
Date d'inscription : 13/01/2006
| | Sujet: Re: petit prog pour compter Sam 11 Fév - 10:13 | |
| - Mike a écrit:
-
- Code:
-
dim a(3000)
début = time$("ms")
for x = 1 to 1000
next x
fin = time$("ms")
print fin - début; " millièmes de secondes, qu'a mit votre ordinateur pour compter jusqu'à 100 000 000" Ta boucle ne va que jusqu'à 1 000 alors que tu dis qu'elle a fait 100 000 000 a+ | |
|
Mike
Admin
Nombre de messages : 724
Age : 32
Localisation : Canada, Québec Montréal
language de prog : LB, GM, C++, XHTML, CSS, PHP
expérience en prog : 1 ans d'expérience
Date d'inscription : 21/07/2005
| | Sujet: Re: petit prog pour compter Sam 11 Fév - 10:16 | |
| ah je l'ai pas modifier. Je l'ai mis jusqu'à mille, et je vous laisse libre de le changer, mais je l'ai mis comme sa, pour pas que vous runniez le prog, et que sa prenne (pour moi tk) 10 minutes.
je vais changer le message. | |
|
Contenu sponsorisé
| | Sujet: Re: petit prog pour compter | |
| |
|
