Fox Pro

Fie o baza de date Cinema. dbf cu urmatoarele campuri: codfilm, numefilm, productie, regie, anul, gen, scenariu, premii, cu principalele productii cinematografice de la 1950 pana in 2001 si o baza Actori. dbf, cu urmatoarele campuri: nume, datan, sex, codfilm, natio, cu informatii despre stelele filmului. Se cer: Varsta lui Tom Cruise; Actorii care au jucat in filmul: Pe aripile vantului; Lista actritelor care n-au depasit 30 de ani pe nationalitati; Primii 5 veterani ai filmului romanesc.

Rezolvare: (modi comm filme) clear set talk off set exact off w=1 do while w=1 @ 2, 10 say Optiunile. @ 4, 4 say (Apasati CAPS LOCK-ul ca sa mearga programul. Mi-a fost lene sa-l mai modific) @ 7, 2 say 1. Introducerea unui nou film. @ 8, 2 say 2. Afisarea primului film cronologic al fiecarui gen.

@ 9, 2 say 3. Tarile care fac parte din baza. @ 10, 2 say 4. Afisarea filmelor produse in Italia in 1994. @ 11, 2 say 5. Lista filmelor pe genuri.

@ 12, 2 say 6. Regizorii din Romania de la 1990 pana in prezent. @ 13, 2 say 7. Premiile pe care le-a luat un film cautat. @ 14, 2 say 8. Scenaristii pe genuri cinematrografice dupa 1990. @ 15, 2 say 9. Ce varsta are Tom Cruise.

@ 16, 2 say 10. Ce actori au jucat in filmul Pe aripile vantului.

@ 17, 2 say 11. Lista actritelor care n-au depasit 30 de ani pe nationalitati.

@ 18, 2 say 12. Primii 5 veterani ai filmului romanesc.

input Ce optiune doriti.? to x do case case x=1 do nou case x=2 clear do crono wait case x=3 clear do tari wait case x=4 clear do italy wait case x=5 clear do genuri wait case x=6 clear do regrom wait case x=7 clear do filmales wait case x=8 clear do listascenaristi wait case x=9 clear do tom wait case x=10 clear do pearipi wait case x=11 clear do actrite wait case x=12 clear do veterani wait endcase clear @ 2, 2 say Continuam cu optiunile? . (D=1 / N=0) get w read clear enddo return Procedure nou r=1 do while r=1 clear use cinema s = reccount () +1 go bottom insert blank replace codfilm with s @ 2, 2 say Dati numele filmului. get numefilm @ 3, 2 say Productie. get productie @ 4, 2 say Regia. get regia @ 5, 2 say Anul. get anul @ 6, 2 say Genul filmului. get gen @ 7, 2 say Scenaristul filmului. get scenariu @ 8, 2 say Premiile primite. get premii n=0 @ 9, 2 say Cati actori au jucat? get n read clear use actori for i=1 to n go bottom insert blank replace codfilm with s ? Actorul, i @ 3, 2 say Numele. get nume @ 4, 2 say Sexul (m/f). get sex @ 5, 2 say Data nasterii. get datan @ 6, 2 say Nationalitatea. get natio read clear endfor @ 10, 4 say Continuam cu introducerea ...