QReferate - referate pentru educatia ta.
Referatele noastre - sursa ta de inspiratie! Referate oferite gratuit, lucrari si proiecte cu imagini si grafice. Fiecare referat, proiect sau comentariu il poti downloada rapid si il poti folosi pentru temele tale de acasa.



AdministratieAlimentatieArta culturaAsistenta socialaAstronomie
BiologieChimieComunicareConstructiiCosmetica
DesenDiverseDreptEconomieEngleza
FilozofieFizicaFrancezaGeografieGermana
InformaticaIstorieLatinaManagementMarketing
MatematicaMecanicaMedicinaPedagogiePsihologie
RomanaStiinte politiceTransporturiTurism
Esti aici: Qreferat » Referate informatica

Lista vinuri prg





Nume
@3,3 say "An_recolta:" get M.An_recolta
@5,3 say "Tip:" get M.Tip
@7,3 say "Culoare:" get M.Culoare
@9,3 say "Origine:" get M.Origine
@11,3 say "Recomandat:" get M.Recomandat
@13,3 say "Servire_gr:" get M.Servire_gr
@15,3 say "Pret_unit:" get M.Pret_unit
@17,3 say "Cant_com:" get M.Cant_com
@19,3 say "Total:" get M.Total
@21,2 get V funct'*NH ! ;
? ;
';
Valid selectare() size 1,14,5 defa 1
read cycle


wait"Terminare" wind time 3
clear gets
close all
function selectare
Do case
case V=1
appe blank
gather memvar
scatter memvar blank
show gets
case V=2
scatter memvar blank
show gets
case V=3
clear read
endcase
deacti wind W1
retu
* = = = = ==*
Proc MODIFICARE
on key label F1 brow nomodi nodel
define wind W2 from 0,0,4,79 to 23,75;
title "Fereastra Modificare" Shadow;
colo RGB(0,0,0,0,210)
acti wind W2
set safety off
use Lista_vinuri index iAn_recolta
@0,10 say "An_recolta:" get M.



Descarca referat

E posibil sa te intereseze alte referate despre:




Copyright © 2024 - Toate drepturile rezervate QReferat.com Folositi referatele, proiectele sau lucrarile afisate ca sursa de inspiratie. Va recomandam sa nu copiati textul, ci sa compuneti propriul referat pe baza referatelor de pe site.
{ Home } { Contact } { Termeni si conditii }