FOX_programverseny.prg

USE verseny
v=0
DO WHILE v<>9
	CLEAR
	?"1 Új versenyzô."
 	?"2) Továbbjutottak Írj ki minden versenyzôt, aki továbbjut a következô fordulóra (akiknek a továbbjut mezoje .T. )"
	?" 3) Adott ország versenyzôi és pontszámaBeolvasol egy országot, és kiírod az illetô országból levô versenyzôk összpontszámát."
 	?"4) Adott versenyzôt kizárnakEgy adott versenyzôt kizárnak a versenybôl, nem mehet a következô fordulóra. A versenyzô nevét a billentyûzetrôl olvasod be."
 	?"5) Tegyél egy *-ot minden versenyzô neve elé az adattáblában,  aki 100 pontot ért el."
 	?"6) Legjobb versenyzô Melyik az a versenyzô, akinek a legnagyobb pontszáma van?"
 	?"7) Hány olyan versenyzô van, akinek a pontszáma kisebb mint 20?"
 	?"8) Továbbjutott versenyzôk leggyengébbje"
 	?"9) Kilépés"
 	input "Valassz" to v
 	DO case
 		CASE V=1
 			accept "Nev:" to n
 			accept "Orszag" to o
 			input "Pontszam" to p
 			IF p>70
 				cs=1
 			ELSE
 				cs=2
 			ENDIF
 			IF p>=50
 				t=.T.
 			ELSE
 				t=.F.
 			ENDIF
 			APPEND BLANK
 			REPLACE nev WITH n orszag WITH o pontszam WITH p
 			replace csapat WITH cs tovabbjut WITH t
 			BROWSE
 		CASE v=2
 		BROWSE FOR tovabbjut=.T.
 		CASE v=3
 		accept "Orszag" to or
 		BROWSE FIELDS nev,orszag,pontszam FOR orszag=or
 		CASE v=5
 			replace nev WITH "*"+nev FOR pontszam=100
 			BROWSE
 		CASE v=6
 			CALCULATE MAX(pontszam) TO x
 			BROWSE FOR pontszam=x
 		CASE v=7
 			 CALCULATE CNT() TO x FOR pontszam<20
 			 ?x," versenyzonek kisebb a pontszama 20-nal"\
 		CASE v=8
 			 CALCULATE MIN(pontszam) TO x FOR tovabbjut=.T.
 			 BROWSE FOR pontszam=x AND tovabbjut=.T.
 		ENDCASE
 		WAIT "Ushh le barmit"
ENDDO