SHARE
TWEET

Untitled

a guest Jun 19th, 2017 103 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. //30% +
  2. // sa se afiseze prod a caror cantitati sunt mai mici decat 50 in vederea aprovizionarii
  3. pt aceasta folosim intructiunea scan
  4. --intruct
  5. end scan
  6.  
  7. Intruct suntaplicate fiecarei inreg din db, de asemeni vom folosi if(cond) then
  8.     instr1
  9.  
  10. else
  11.     instr2
  12. endif
  13.  
  14. Vom incerca sa scriem un program.
  15. Modi comm p1
  16.  
  17. SET TALK OFF
  18. CLEAR
  19. USE produse
  20. SCAN
  21. replace pret WITH pret+pret*30/100
  22. ENDSCAN
  23. LIST nume, pret
  24.  
  25. Lansarea in executie: do p1
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top