|
Fie o baz? de date CINEMA.dbf cu urm?toarele câmpuri: codfilm, numefilm, productie, regie, anul, gen, scenariu, premii, cu principalele produc?ii cinematografice de la 1950 pân? în 2001 ?i o baz? ACTORI.dbf, cu urm?toarele câmpuri: nume, datan, sex, codfilm, natio, cu informa?ii despre stelele filmului. Se cer:
a. Sa se fac? o procedur? de înregistrare a unui film care se includ? ?i o metod? de codificare;
b. Afi?area primului film cronologic al fiec?rui gen;
c. Afi?area ??rilor ale c?ror produc?ii au fost înregistrate în baza de date;
d. Afi?area filmelor produse în ITALIA în anul 1994;
e. Lista filmelor pe genuri;
f. Regizorii cu produc?ii cinematografice din România dup? revolu?ie;
g. Premiile pe care le-a ob?inut un film citit de la tastatur?;
h. Afi?area scenari?tilor pe genuri cinematografice dup? 1990;
i. Vârsta lui Tom Cruise;
j. Actorii care au jucat în filmul: „Pe aripile vântului”;
k. Lista actri?elor care n-au dep??it 30 de ani pe na?ionalit??i;
l. 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
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
|