Fox - problema rezolvata

Trimis la data: 0000-00-00 Materia: Informatica Nivel: Gimnaziu Pagini: 6 Nota: / 10 Downloads: 12967
Autor: Sorina Petre Dimensiune: 9kb Voturi: Tipul fisierelor: doc Acorda si tu o nota acestui referat: 1 2 3 4 5 6 7 8 9 10
vezi mai multe detalii vezi mai putine detalii
Raporteaza o eroare
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.

PROBLEMA:


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:
Sa se facă o procedură de înregistrare a unui film care se includă şi o metodă de codificare;
Afişarea primului film cronologic al fiecărui gen;
Afişarea ţărilor ale căror producţii au fost înregistrate în baza de date;
Afişarea filmelor produse în ITALIA în anul 1994;
Lista filmelor pe genuri;
Regizorii cu producţii cinematografice din România după revoluţie;
Premiile pe care le-a obţinut un film citit de la tastatură;
Afişarea scenariştilor pe genuri cinematografice după 1990;
Vârsta lui Tom Cruise;
Actorii care au jucat în filmul: „Pe aripile vântului”;
Lista actriţelor care n-au depăşit 30 de ani pe naţionalităţi;
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
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 filmelor?...(D=1 / N=0)...' get r
read
clear
enddo
return


PROCEDURE CRONO
use cinema
sort to cine2 on gen, anul
use cine2
g=gen
do while not eof()
? 'Primul film al genului ',g,' a fost ',numefilm
do while g=gen
skip
enddo
g=gen
enddo
use
return
PROCEDURE TARI
use cinema
sort to cine1 on productie
use cine1
? 'Tarile sunt urmatoarele:'
p=productie
do while not eof()
? ' ',p
do while p=productie
skip
enddo
p=productie
enddo
return


PROCEDURE ITALY
use cinema
? ' Filmele produse in Iatlia in anul 1994 sunt:...'
for i=1 to reccount()
go i
if (productie = 'ITALIA') .and. (anul=1994)
? ' ', numefilm
endif
endfor
return


PROCEDURE GENURI
use cinema
sort to cine3 on gen, numefilm
use cine3
ge=gen
do while not eof()
? ' Genul ',ge
do while ge=gen
?' ', numefilm
skip
enddo
WAIT
ge=gen
enddo
return


PROCEDURE REGROM
use cinema
? ' Regizorii filmelor produse in Romania dupa 1989 sunt:...'
for i=1 to reccount()
go i
if (productie = 'ROMANIA') .and. (anul>1989)
? ' ',regia
endif
endfor
return


PROCEDURE FILMALES
nf=' '
@ 2,2 say 'Numele filmului dorit...' get nf
READ
@ 4,2 SAY 'Premiile filmului cerut sunt urmatoarele:'
use cinema
for i=1 to reccount()
go i
if numefilm = nf
? ' ',premii
endif
endfor
return


PROCEDURE LISTASCENARISTI
use cinema
sort to cine4 on gen, scenariu
use cine4
ge=gen
do while not eof()
? ' Genul ',ge
do while ge=gen
?' ', scenariu
skip
enddo
WAIT
ge=gen
enddo
return


PROCEDURE TOM
use actori
for i=1 to reccount()
go i
if nume = 'TOM CRUISE'
? ' TOM CRUISE are varsta de... ',year( date() ) - year(datan), ' de ani.'
endif
endfor
return





PROCEDURE PEARIPI
use cinema
for i=1 to reccount()
go i
if numefilm = 'PE ARIPILE VANTULUI'
cod=codfilm
endif
endfor
use actori
? ' In filmul PE ARPILE VANTULUI au jucat urmatorii actori: '
for i=1 to reccount()
go i
if codfilm=cod
? ' ',nume
endif
endfor
return


PROCEDURE ACTRITE
use actori
sort to act1 on natio
use act1
? ' Lista actritelor care n-au 30 de ani pe nationalitati: '
for i=1 to reccount()
go i
if (year(datan)>1971) .and. (sex= 'F')
? ' ',nume, ' in varsta de ',year(date())-year(datan),' ani.'
endif
endfor
return





PROCEDURE VETERANI
use actori
sort to acti on datan/D, nume for natio = 'ROMANA'
use acti
? ' Actorii veterani romani sunt: '
if reccount()>5
for i=1 to 5
go i
? nume
endfor
else
list nume
endif
return
Powered by www.referat.ro

Nota explicativa
Referatele si lucrarile oferite de Referate.ro au scop educativ si orientativ pentru cercetare academica.

Iti recomandam ca referatele pe care le downloadezi de pe site sa le utilizezi doar ca sursa de inspiratie sau ca resurse educationale pentru conceperea unui referat nou, propriu si original.

Referat.ro te invata cum sa faci o lucrare de nota 10!
Filmele zilei
Linkuri utile
Programeaza-te online la salonul favorit Descarca gratuit aplicatiile pentru iOS si Android Filmulete haioase Filme, poante si cele mai tari faze Jocuri Cele mai tari jocuri de pe net Referate scoala Resurse, lucrari, referate materiale pentru lucrari de nota 10 Bacalaureat 2019 Vezi subiectele examenului de Bacalaureat din 2019 Evaluare Nationala 2019 Ultimele informatii despre evaluare nationala
Toate imaginile, textele sau alte materiale prezentate pe site sunt proprietatea referat.ro fiind interzisa reproducerea integrala sau partiala a continutului acestui site pe alte siteuri sau in orice alta forma fara acordul scris al referat.ro. Va rugam sa consultati Termenii si conditiile de utilizare a site-ului. Informati-va despre Politica de confidentialitate. Daca aveti intrebari sau sugestii care pot ajuta la dezvoltarea site-ului va rugam sa ne scrieti la adresa webmaster@referat.ro.
Confidentialitatea ta este importanta pentru noi

Referat.ro utilizeaza fisiere de tip cookie pentru a personaliza si imbunatati experienta ta pe Website-ul nostru. Te informam ca ne-am actualizat politica de confidentialitate pentru a integra cele mai recente modificari privind protectia persoanelor fizice in ceea ce priveste prelucrarea datelor cu caracter personal. Inainte de a continua navigarea pe Website-ul nostru te rugam sa aloci timpul necesar pentru a citi si intelege continutul Politicii de Cookie. Prin continuarea navigarii pe Website-ul nostru confirmi acceptarea utilizarii fisierelor de tip cookie conform Politicii de Cookie. Nu uita totusi ca poti modifica in orice moment setarile acestor fisiere cookie urmarind instructiunile din Politica de Cookie.


Politica de Cookie
Am inteles