Advertisement
Guest User

Untitled

a guest
Jun 19th, 2017
183
0
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
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement