Ugrás a tartalomhoz Lépj a menübe
 


Lottó tippelő program számológépre

Casio basic nyelven írt lottószám tippelő program grafikus számológépekre

Casio CFX-9850GB Plus számológépre és további modellekre

 

A program specifikációja

A program 1 és 90 között generál 5 véletlenszámot, ügyelve arra, hogy ne legyen közöttük egyforma, majd "emelkedő számsorrendbe" rendezi az 5 tippet.

 

Prog "LOTTO"

 

Lbl 0;
5 -> Dim List1;
For 1 -> A To 5;
1+Int(90*Ran# -> List1[A;
Next;
For 1 -> A To 5;
For 1 -> B To 5;
If List1[B] > List1[B+1;
Then List1[B] -> C;
List1[B+1] -> List1[B;
C -> List1[B+1;
IfEnd;
Next;
Next;
List1[1]=List1[2 => Goto 0;
List1[2]=List1[3 => Goto 0;
List1[3]=List1[4 => Goto 0;
List1[4]=List1[5 => Goto 0;
ClrText;
For 1 -> A To 5;
Locate 1,A,List1[A;
Next;
 

 

 


További cikkek: Tartalomjegyzék

 

Linkajánló

Számológép Blog
Hasznos programok, alkalmazások programozató számológépekre és további érdekességek a kalkulátorok világából.

Online számológép
Az első programozható online tudományos számológép. Saját, assembly szerű nyelvén (Calprola) programozható.