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:
a. Sa se faca o procedura de inregistrare a unui film care se includa si o metoda de codificare;
b. Afisarea primului film cronologic al fiecarui gen;
c. Afisarea tarilor ale caror productii au fost inregistrate in baza de date;
d. Afisarea filmelor produse in ITALIA in anul 1994;
e. Lista filmelor pe genuri;
f. Regizorii cu productii cinematografice din Romania dupa revolutie;
g. Premiile pe care le-a obtinut un film citit de la tastatura;
h. Afisarea scenaristilor pe genuri cinematografice dupa 1990;
i. Varsta lui Tom Cruise;
j. Actorii care au jucat in filmul: "Pe aripile vantului";
k. Lista actritelor care n-au depasit 30 de ani pe nationalitati;
l. 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
