PROBLEMA:


Fie o baza de date CINEMA.dbf cu urmatoarele câmpuri: codfilm, numefilm, productie, regie, anul, gen, scenariu, premii, cu principalele productii cinematografice de la 1950 pâna în 2001 si o baza ACTORI.dbf, cu urmatoarele câmpuri: nume, datan, sex, codfilm, natio, cu informatii despre stelele filmului. Se cer:
Sa se faca o procedura de înregistrare a unui film care se includa si o metoda de codificare;
Afisarea primului film cronologic al fiecarui gen;
Afisarea tarilor ale caror productii au fost înregistrate în baza de date;
Afisarea filmelor produse în ITALIA în anul 1994;
Lista filmelor pe genuri;
Regizorii cu productii cinematografice din România dupa revolutie;
Premiile pe care le-a obtinut un film citit de la tastatura;
Afisarea scenaristilor pe genuri cinematografice dupa 1990;
Vârsta lui Tom Cruise;
Actorii care au jucat în filmul: „Pe aripile vântului”;
Lista actritelor care n-au depasit 30 de ani pe nationalitati;
Primii 5 veterani ai filmului românesc.





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