Programe in Foxpro

1x punct

categorie: Informatica

nota: 9.67

nivel: Liceu

Acesta este un referat la informatica si contine 28 de programe in Foxpro. O secventa de cod arata in felul urmator:
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 = 'premi[...]
DOWNLOAD REFERAT

Preview referat: Programe in Foxpro

Acesta este un referat la informatica si contine 28 de programe in Foxpro. O secventa de cod arata in felul urmator:
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 8

a)close datab
clear
delete file pret.dbf
close databases
use carti
clear
@3,8 to 20,60 double
@4,10 say 'titlu='
@4,20 get m.titlu size 1,30 default ' '
@6,10 say 'autor='
@6,20 get m.autor size 1,30 default ' '
@8,10 say 'editura='
@8,20 get m.editura size 1,30 default ' '
@10,10 say 'an='
@10,20 get m.an size 1,4 default 0
@12,10 say 'numar='
@12,20 get m.nr size 1,5 default 0
@14,10 say 'gen='
@14,20 get m.gen size 1,15 default ' '
@16,10 say 'pret='
@16,20 get m.pret size 1,7 default 0
@18,10 get m.b1 function '*N OK' size 1,6 default 1 valid vb1()
@18,19 get m.b2 function '*N Nou' size 1,6 default 1 valid vb2()
@18,25 get m.b3 function '*N Cancel' size 1,6 default 1 valid vb3()
read cycle
function vb1
append blank
gather memvar
show get m.titlu disable
show get m.autor disable
show get m.editura disable
show get m.an disable
show get m.nr disable
show get m.gen disable
show get m.pret disable
function vb2
m.titlu=' '
m.autor=' '
m.editura=' '
m.an=0
m.nr=' '
m.gen=' '
m.pret=0
show get m.b1 enable
show get m.titlu enable
show get m.autor enable
show get m.editura enable
show get m.an enable
show get m.nr enable
show get m.gen enable
show get m.pret enable
show get m.b3 disable
function vb3
clear read
clear
brow
close datab

b)use carti
sum (pret*nr) to sum1
?'Suma tuturor cartilor este:',sum1
go top
input 'genul dorit este:' to x
sum (pret*nr) for gen = x to sum2
? 'suma cartilor din genul dorit este:',sum2

c)use carti
input 'Titlul cartii este:' to t
locate for titlu=t
if found()
display autor,editura,an,pret,nr,gen
else
?' Nu exista!'
endif
DOWNLOAD REFERAT
« mai multe referate din Informatica

CAUTA REFERAT


TRIMITE REFERAT CERE REFERAT
Referatele si lucrarile oferite de E-referate.ro au scop educativ si orientativ pentru cercetare academica.