Advertisement
LeoLDB

VFP9 S01E10 - STRUCTURI DE CONTROL

Nov 23rd, 2017
391
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.15 KB | None | 0 0
  1. Instructiuni care descriu structurile de control
  2.  
  3. Structura alternanta
  4. a) Decizia
  5.  
  6. IF conditie [THEN]
  7. secv1
  8. [ELSE
  9. secv2]
  10. ENDIF
  11.  
  12. b) Selectia
  13.  
  14. DO CASE
  15. CASE cond1
  16. secv1
  17. CASE cond2
  18. secv2
  19. ..........
  20. CASE cond N
  21. secvN
  22. [OTHERWISE] secv0
  23. ENDCASE
  24.  
  25. 2. Structuri de control repetitive
  26. a)
  27. DO WHILE cond
  28. secv
  29. ENDDO
  30.  
  31. In cadrul secventei pot sa apara comenzile LOOP respectiv EXIT
  32. LOOP - intrerupe executia buclei si reia conditia din DO WHILE
  33. EXIT - intrerupe executia buclei si trece la executia urmatoarei comenzi de dupa ENDDO
  34.  
  35. b)
  36. FOR contor=Vi TO Vf [STEP pas]
  37. secv
  38. [LOOP]
  39. [EXIT]
  40. ENDFOR
  41.  
  42. Obs: daca nu se precizeaza valoarea pasului valoarea implicita a acestuia este 1
  43.  
  44. FOR i=1 TO RECCOUNT()
  45. GO i <=> LIST
  46. DISP
  47. ENDFOR
  48.  
  49. 3. Comanda SCAN permite parcurgerea tabelei curente elem cu elem
  50. SCAN [domeniu] [FOR conditie]
  51. secv
  52. [LOOP]
  53. [EXIT]
  54. ENDSCAN
  55.  
  56. Ex: Sa se determ media maxima a elevilor cu varsta de 16 ani
  57.  
  58. SCAN FOR varsta=16
  59. IF media>max
  60. max=media
  61. ENDIF
  62. ENDSCAN
  63.  
  64. MENIU:
  65.  
  66. INPUT "OPTIUNEA: " TO O
  67. DO WHILE O<>0
  68.  
  69. DO CASE
  70. CASE O=1
  71. ...
  72. CASE O=2
  73. ...
  74.  
  75. CASE O=N
  76.  
  77. ENDCASE
  78. INPUT "OPTIUNEA: " TO O
  79. ENDDO
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement