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.
Confidentialitatea ta este importanta pentru noi

E-referate.ro utilizeaza fisiere de tip cookie pentru a personaliza si imbunatati experienta ta pe Website-ul nostru. Te informam ca ne-am actualizat termenii si conditiile de utilizare 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