Fox
This document was uploaded by user and they confirmed that they have the permission to share it. If you are author or own the copyright of this book, please report to us by using this DMCA report form. Report DMCA
Overview
Download & View Fox as PDF for free.
More details
- Words: 1,280
- Pages: 8
Bilet 1 (nume, varsta, clasa) clear use elevi.dbf index on varsta tag e descending browse average media to m for upper(clasa)="XC" ?'media generala', m wait'' use *delete file elevi.dbf Bilet 2( nume, pret, firma) clear use material.dbf calculate max(pret) to x browse fields nume, pret for pret=x sum pret*0.18 to s ?'tva total',s wait'' delete for upper(firma)='sc mecanica sa' *pack browse Bilet 3(medicament, pret, compensat L, data_exp Date) clear set century on use medic.dbf calculate max(pret) to p browse fields medicament, pret for pret=p delete for data_exp
Bilet 6(nume, p1,p2,p3,p4,p5 N(5,2), medg clear close all use bac.dbf replace all medg with 0 replace medg with (p1+p2+p3+p4+p5)/5 for (p1>=5)and... browse sort to promovati.dbf on medg/d, nume/a for medg<>0 fields nume, medg sort to respinsi.dbf on nume for medg=0 fields nume, medg use promovati.dbf browse use respinsi.dbf browse use promovati.dbf browse for recno()<=3 Bilet 7(nume, n1,n2,n3, practic, proiect,medg, tema) clear use atestat.dbf replace all practic with (n1+n2+n3)/3 replace all medg with (practic+proiect)/2 browse index on nume tag e ascending browse fields nume,medg for medg=10 browse fields nume,n1,n2,n3 for nume='Popescu' copy to teme.dbf for proiect>9 fields nume,tema use teme browse Bilet 8(nume, colectie, an, salariu) clear use moda.dbf browse for upper(colectie)='TOAMNA' and an=year(date()) calculate max(salariu) for an=year(date()) to x browse fields nume,salariu for salaraiu=x delete all for an
browse fields nume,lro,mat title'Elevii in ordinea descrescatoare a mediei generale' for(lro>5) and (mat>5) index on nume tag e2 browse fields nume,lro,mat title'Elevii respinsi' for(lro<5)or(mat<5) Bilet 11(nume, suma, localitate) clear use sponsori.dbf ?'nr total sponsori', reccount() wait'' calculate max(suma) to x browse fields nume,suma for suma=x index on nume tag e browse fields nume,localitate for localitate='Targoviste' Bilet 12(nume, populatie, suprafata, continent) clear use tari.dbf browse for populatie>200 title"tari cu populatie>200" browse fields nume,populatie,continent for continent="Europa" title "Populatie tari Europa" dimension v[6] v[1]="Asia" v[2]="Africa" v[3]="America de Nord" v[4]="America de Sud" v[5]="Europa" v[6]="Australia" for i=1 to 6 calculate max(populatie) to x for continent=v[i] if(x<>0) browse fields nume,suprafata,continent for populatie=x and continent=v[i] title"Tari cu suprafata maxima" endif endfor Bilet 13(nume,localitate,navetist L) clear close all use clasa.dbf copy to naveta.dbf for navetist=.t. copy to loco.dbf for navetist=.f. use naveta.dbf ?'numar elevi navetisti',reccount() use loco ?'numnar elevi localnici',reccount() use naveta.dbf index on localitate tag e do while not eof() l=localitate x=0 ?'localitatea',localitate do while l=localitate ?' ',nume x=x+1 skip enddo ?'nr elevi din localitatea',l,x
esnddo Bilet 14(nume,salariu,categorie) clear use salar.dbf replace salariu with salariu+salariu*0.30 for (categorie='muncitor') and (salariu<500) replace salariu with salariu=salariu*0.25 for (categorie='muncitor') and (salariu>=500)and(salariu<700) replace salariu with salariu+salariu*0.20 for (categorie='muncitor')and(salariu>=700) browse calculate min(salariu) to x for categorie='muncitor' browse for (salariu=x)and(categorie='muncitor') title"Muncitorul cu cel mai mic salariu" calculate max(salariu) to x for categorie='muncitor' ?'Salariul cel mai mare al muncitorilor este',x Bilet 15 elevi(nr_matr,nume,clasa) note(nr_matr,nrom,nmat,med) clear use elevi in 1 use elevi in 2 sele 2 replace all med with (nrom+nmat)/2 browse title "mediile elevilor" sele 2 index on nr_matr to nm sele 1 set relation to nr_matr into 2 browse fields nume,clasa,b.med title"nume,clasa si media" delete for b.med<=5.99 in 1 delete for b.med<=5.99 in 2 sele 1 browse sele 2 browse close all Bilet 16(titlu, autor pret) clear use carti.dbf ?'nr de carti este:',reccount() wait'' browse fields titlu,pret for autor="m. sadoveanu" calculate sum(pret) to x ?'pretul total al cartilor este:',x Bilet 17(marca, pret) clear use masini.dbf index on marca tag e browse fields marca, pret title "lista alfabetica" calculate cnt() to x for marca='Dacia' ?"nr de masini cu marca dacia",x wait'' clear append blank @2,3 say "Marca" get marca
@3,3 say "Pret" get pret read browse Bilet 18(nume, salariu, sectie, categorie) clear use salar.dbf sum salariu to x ?'impozit total',x*0.25 wait'' clear s=space(20) @2,3 say "dati numele sectiei:" get s read index on nume tag e browse fields nume,sectie for (sectie=s)and(categorie='muncitor') clear count to x for categorie='muncitor' ?'nr de muncitori',x Bilet 19(tara, populatie, suprafata, continent) clear use tari.dbf calculate max(populatie) to x browse fields tara,populatie for populatie=x index on suprafata tag e descending browse fields tara,suprafata calculate sum(populatie) to x for continent='Europa' ?'nr de loc din europa',x Bilet 20(judet, oras, populatie, supr_oras) clear use judet.dbf browse fields oras, popultie for upper(oras)='TARGOVISTE' or upper(oras)='PUCIOASA' calculate cnt() for upper(judet)='ARGES' to x ?'Sunt',x,'localitati in judetul Arges' wait'' clear select judet, sum(supr_oras) as suprafata; from judet.dbf; group by judet; into table t20 use t20 calculate max(suprafata) to y browse fields judet,suprafata for suprafata=y close all Bilet 21(nume, salariu, sectie) clear use bani.dbf replace salariu with salariu*0.05 for upper(sectie)='FORJA' browse browse fields nume,salariu for upper(nume)='POPESCU ION' calculate sum(salariu) to x ?'Impozitul total platit de firma',x*0.22 Bilet 22(nume,clasa,nrmatricol)
clear use elevi.dbf locate for nume='Popescu' @2,30 say 'datele elevului popescu' @3,2 say replicate('-',65) @4,2 say 'nume elev' @4,30 say 'clasa elev' @4,50 say 'numar matricol' @5,2 say replicate('-',65) @6,2 say nume @6,30 say clasa @6,50 say nrmatricol wait'' calculate cnt() for upper(clasa)="XB" to x ?'nr de elevi in clasa XB',x use *delete file elevi.dbf Bilet 23(nume, adresa, telefon, data_ang Date, sanctionat Date) clear set century on use bilet23 browse fields nume,adresa,telefon,data_ang for data_ang>=gomonth(date(),-12) copy to sanctiuni.dbf for sanctionat>=gomonth(date(),-6) use sanctiuni.dbf browse if reccount()<5 ?"Sunt mai putin de 5 articole" else go to reccount()-4 delete rest endif Bilet 24(nume,an,salariu) clear use prfesori.dbf browse for an>=2002 and an<=2006 title "profesori incadrati intre 2002-2006" browse for year(date())-an>10 title"vechime mai mare de 10 ani" delete for salariu<523 *pack browse Bilet 25 clear use premiu.dbf index on nume tag e browse fields nume,liceu,an for premiu="I" and an=2006 select liceu,count(premiu) as nr_premiu from premiu.dbf where an>2004 and premiu=="I"; group by liceu; into dbf t1.dbf use t1 calculate max(nr_premiu) to x browse for nr_premiu=x select an,count(premiu) as nr_premiu from premiu.dbf where premiu=="I" group by an into dbf t2.dbf use t2 calculate max(nr_premiu) to x
browse for nr_premiu=x close all Bilet 26(titlul, autor, an_ap, editura, pret, nr_inv) clear use carti.dbf browse count to x for nr_inv>=14 and nr_inv<=23 ?'nr carti cu nr inventar intre 14 si 23',x browse fields titlu,autor,editura for editura="LS-Informat" Bilet 27(nume,editie,localitate) clear use dans.dbf index on nume tag e browse count to x for editie=1 ?'nr concurenti la prima editie',x wait'' browse fields nume,localitate for localitate='Targoviste' Bilet 28(cod_c, nume_f, autor_p,tip, regizor) clear use film.dbf browse fields nume_f, actor_p for actor_p="richard gere" count to x for regizor="Sergiu Nicolaescu" ?'nr filme regizate de sergiu nicolaescu',x wait'' delete for tip="horror" *pack browse Bilet 29 clear use aeroport.dbf select an,count(an) as nr_zbor from aeroport.dbf group by an into dbf t29.dbf use t29.dbf calculate max(nr_zbor) to x browse for nr_zbor=x close all use aeroport.dbf calculate max(distanta) for an=year(date()) to x browse for distanta=x calculate sum(nrpasag) for proper(destinatie)='Timisoara' and proper(firma)='tarom' and an=year(date())-1 to c ?c,'pasageri au fost transportati de la bucurestyi la timisoara, de catre tarom, in anul trecut' Bilet 30(marca,pret) clear use masini.dbf index on marca tag e browse fields marca,pret title"Lista alfabetica" calculate cnt() to x for marca='Dacia' ?"nr de masini de marca dacia',x wait'' clear append blank
@2,3 say "Marca" get marca @3,3 say "pret" get pret read browse
Bilet 6(nume, p1,p2,p3,p4,p5 N(5,2), medg clear close all use bac.dbf replace all medg with 0 replace medg with (p1+p2+p3+p4+p5)/5 for (p1>=5)and... browse sort to promovati.dbf on medg/d, nume/a for medg<>0 fields nume, medg sort to respinsi.dbf on nume for medg=0 fields nume, medg use promovati.dbf browse use respinsi.dbf browse use promovati.dbf browse for recno()<=3 Bilet 7(nume, n1,n2,n3, practic, proiect,medg, tema) clear use atestat.dbf replace all practic with (n1+n2+n3)/3 replace all medg with (practic+proiect)/2 browse index on nume tag e ascending browse fields nume,medg for medg=10 browse fields nume,n1,n2,n3 for nume='Popescu' copy to teme.dbf for proiect>9 fields nume,tema use teme browse Bilet 8(nume, colectie, an, salariu) clear use moda.dbf browse for upper(colectie)='TOAMNA' and an=year(date()) calculate max(salariu) for an=year(date()) to x browse fields nume,salariu for salaraiu=x delete all for an
browse fields nume,lro,mat title'Elevii in ordinea descrescatoare a mediei generale' for(lro>5) and (mat>5) index on nume tag e2 browse fields nume,lro,mat title'Elevii respinsi' for(lro<5)or(mat<5) Bilet 11(nume, suma, localitate) clear use sponsori.dbf ?'nr total sponsori', reccount() wait'' calculate max(suma) to x browse fields nume,suma for suma=x index on nume tag e browse fields nume,localitate for localitate='Targoviste' Bilet 12(nume, populatie, suprafata, continent) clear use tari.dbf browse for populatie>200 title"tari cu populatie>200" browse fields nume,populatie,continent for continent="Europa" title "Populatie tari Europa" dimension v[6] v[1]="Asia" v[2]="Africa" v[3]="America de Nord" v[4]="America de Sud" v[5]="Europa" v[6]="Australia" for i=1 to 6 calculate max(populatie) to x for continent=v[i] if(x<>0) browse fields nume,suprafata,continent for populatie=x and continent=v[i] title"Tari cu suprafata maxima" endif endfor Bilet 13(nume,localitate,navetist L) clear close all use clasa.dbf copy to naveta.dbf for navetist=.t. copy to loco.dbf for navetist=.f. use naveta.dbf ?'numar elevi navetisti',reccount() use loco ?'numnar elevi localnici',reccount() use naveta.dbf index on localitate tag e do while not eof() l=localitate x=0 ?'localitatea',localitate do while l=localitate ?' ',nume x=x+1 skip enddo ?'nr elevi din localitatea',l,x
esnddo Bilet 14(nume,salariu,categorie) clear use salar.dbf replace salariu with salariu+salariu*0.30 for (categorie='muncitor') and (salariu<500) replace salariu with salariu=salariu*0.25 for (categorie='muncitor') and (salariu>=500)and(salariu<700) replace salariu with salariu+salariu*0.20 for (categorie='muncitor')and(salariu>=700) browse calculate min(salariu) to x for categorie='muncitor' browse for (salariu=x)and(categorie='muncitor') title"Muncitorul cu cel mai mic salariu" calculate max(salariu) to x for categorie='muncitor' ?'Salariul cel mai mare al muncitorilor este',x Bilet 15 elevi(nr_matr,nume,clasa) note(nr_matr,nrom,nmat,med) clear use elevi in 1 use elevi in 2 sele 2 replace all med with (nrom+nmat)/2 browse title "mediile elevilor" sele 2 index on nr_matr to nm sele 1 set relation to nr_matr into 2 browse fields nume,clasa,b.med title"nume,clasa si media" delete for b.med<=5.99 in 1 delete for b.med<=5.99 in 2 sele 1 browse sele 2 browse close all Bilet 16(titlu, autor pret) clear use carti.dbf ?'nr de carti este:',reccount() wait'' browse fields titlu,pret for autor="m. sadoveanu" calculate sum(pret) to x ?'pretul total al cartilor este:',x Bilet 17(marca, pret) clear use masini.dbf index on marca tag e browse fields marca, pret title "lista alfabetica" calculate cnt() to x for marca='Dacia' ?"nr de masini cu marca dacia",x wait'' clear append blank @2,3 say "Marca" get marca
@3,3 say "Pret" get pret read browse Bilet 18(nume, salariu, sectie, categorie) clear use salar.dbf sum salariu to x ?'impozit total',x*0.25 wait'' clear s=space(20) @2,3 say "dati numele sectiei:" get s read index on nume tag e browse fields nume,sectie for (sectie=s)and(categorie='muncitor') clear count to x for categorie='muncitor' ?'nr de muncitori',x Bilet 19(tara, populatie, suprafata, continent) clear use tari.dbf calculate max(populatie) to x browse fields tara,populatie for populatie=x index on suprafata tag e descending browse fields tara,suprafata calculate sum(populatie) to x for continent='Europa' ?'nr de loc din europa',x Bilet 20(judet, oras, populatie, supr_oras) clear use judet.dbf browse fields oras, popultie for upper(oras)='TARGOVISTE' or upper(oras)='PUCIOASA' calculate cnt() for upper(judet)='ARGES' to x ?'Sunt',x,'localitati in judetul Arges' wait'' clear select judet, sum(supr_oras) as suprafata; from judet.dbf; group by judet; into table t20 use t20 calculate max(suprafata) to y browse fields judet,suprafata for suprafata=y close all Bilet 21(nume, salariu, sectie) clear use bani.dbf replace salariu with salariu*0.05 for upper(sectie)='FORJA' browse browse fields nume,salariu for upper(nume)='POPESCU ION' calculate sum(salariu) to x ?'Impozitul total platit de firma',x*0.22 Bilet 22(nume,clasa,nrmatricol)
clear use elevi.dbf locate for nume='Popescu' @2,30 say 'datele elevului popescu' @3,2 say replicate('-',65) @4,2 say 'nume elev' @4,30 say 'clasa elev' @4,50 say 'numar matricol' @5,2 say replicate('-',65) @6,2 say nume @6,30 say clasa @6,50 say nrmatricol wait'' calculate cnt() for upper(clasa)="XB" to x ?'nr de elevi in clasa XB',x use *delete file elevi.dbf Bilet 23(nume, adresa, telefon, data_ang Date, sanctionat Date) clear set century on use bilet23 browse fields nume,adresa,telefon,data_ang for data_ang>=gomonth(date(),-12) copy to sanctiuni.dbf for sanctionat>=gomonth(date(),-6) use sanctiuni.dbf browse if reccount()<5 ?"Sunt mai putin de 5 articole" else go to reccount()-4 delete rest endif Bilet 24(nume,an,salariu) clear use prfesori.dbf browse for an>=2002 and an<=2006 title "profesori incadrati intre 2002-2006" browse for year(date())-an>10 title"vechime mai mare de 10 ani" delete for salariu<523 *pack browse Bilet 25 clear use premiu.dbf index on nume tag e browse fields nume,liceu,an for premiu="I" and an=2006 select liceu,count(premiu) as nr_premiu from premiu.dbf where an>2004 and premiu=="I"; group by liceu; into dbf t1.dbf use t1 calculate max(nr_premiu) to x browse for nr_premiu=x select an,count(premiu) as nr_premiu from premiu.dbf where premiu=="I" group by an into dbf t2.dbf use t2 calculate max(nr_premiu) to x
browse for nr_premiu=x close all Bilet 26(titlul, autor, an_ap, editura, pret, nr_inv) clear use carti.dbf browse count to x for nr_inv>=14 and nr_inv<=23 ?'nr carti cu nr inventar intre 14 si 23',x browse fields titlu,autor,editura for editura="LS-Informat" Bilet 27(nume,editie,localitate) clear use dans.dbf index on nume tag e browse count to x for editie=1 ?'nr concurenti la prima editie',x wait'' browse fields nume,localitate for localitate='Targoviste' Bilet 28(cod_c, nume_f, autor_p,tip, regizor) clear use film.dbf browse fields nume_f, actor_p for actor_p="richard gere" count to x for regizor="Sergiu Nicolaescu" ?'nr filme regizate de sergiu nicolaescu',x wait'' delete for tip="horror" *pack browse Bilet 29 clear use aeroport.dbf select an,count(an) as nr_zbor from aeroport.dbf group by an into dbf t29.dbf use t29.dbf calculate max(nr_zbor) to x browse for nr_zbor=x close all use aeroport.dbf calculate max(distanta) for an=year(date()) to x browse for distanta=x calculate sum(nrpasag) for proper(destinatie)='Timisoara' and proper(firma)='tarom' and an=year(date())-1 to c ?c,'pasageri au fost transportati de la bucurestyi la timisoara, de catre tarom, in anul trecut' Bilet 30(marca,pret) clear use masini.dbf index on marca tag e browse fields marca,pret title"Lista alfabetica" calculate cnt() to x for marca='Dacia' ?"nr de masini de marca dacia',x wait'' clear append blank
@2,3 say "Marca" get marca @3,3 say "pret" get pret read browse
