QReferate - referate pentru educatia ta.
Cercetarile noastre - sursa ta de inspiratie! Te ajutam gratuit, documente cu imagini si grafice. Fiecare document 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 » Documente 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 documente despre:


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