Programe in Foxpro
PRG 1
clear
set talk off
close all database
use elevi1
index on nume tag nume
use olimp in 1
use elevi1 in 2 order nume
sele 1
set relation to nume into b
list a-> nume, b-> clasa for (rez_obt = 'premiul I') or (rez_obt = 'premiul II') or (rez_obt = 'premiul III')
close all database
use elevi1 in 1
use olimp in 2
sele 1
join with b to rezultate for a-> nume=b -> nume fields a.nume, a.prenume, a.clasa, a.medie, b.disciplina, b.rez_obt
use rezultate
brow
use
PRG 3
clear
set talk off
use biblio.dbf
list
input 'editura' to ed
sort to edit on autor/ac fields titlu, autor, pret for editura=ed
use edit
brow
input 'editura' to ed1
input 'pret' to p
use biblio
replace pret with pret+(pret*p)/100 for editura=ed1
brow
PRG 4
clear
close databases
use elevi
replace med with (n1+n2+n3)/3 for (n1>=5) and (n2>=5) and (n3>=5)
list
close datab
select nume, max(med) as medie;
from elevi;
group by clasa;
into table medie
close datab
use elevi
close datab
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!