home *** CD-ROM | disk | FTP | other *** search
/ CD Actual: Unknown Issue / mycd.iso / APLICA / ledw / PASCAL.L < prev   
Encoding:
Text File  |  1996-01-31  |  947 b   |  76 lines
  1. c:\windev\bin\QH
  2. -rb
  3. c:\windev\bin\win31wh.hlp
  4. .
  5. begin
  6. 1
  7.          *                        *
  8. .f
  9. for i:=a to b do
  10. begin
  11.  sentencies;
  12. end; {for}
  13. .fd
  14. for i:=a downto b do
  15. begin
  16.  sentencies;
  17. end; {for}
  18. .i
  19. if condicio
  20.  then
  21.  begin
  22.   sentencies;
  23.  end
  24.  else
  25.  begin
  26.   sentencies;
  27.  end;
  28. {end if}
  29. .is
  30. if condicio
  31.  then sentencies
  32.  else sentencies;
  33. {end if}
  34. .r
  35. repeat
  36.  sentencies;
  37. until condicio
  38. .w
  39. while condicio do
  40. begin
  41.  sentencies;
  42. end; {while}
  43. .p
  44.  
  45. procedure x(parametres);
  46. begin
  47.  sentencies;
  48. end;
  49. .pr
  50. program xxxxxxxxx(input,output); {}
  51.  
  52. .fu
  53.  
  54. function x(parametres):tipus;
  55. begin
  56.  sentencies;
  57. end;
  58. .c
  59. case x of
  60.  y: sentencia;
  61.  otherwise begin end;
  62. end; {case}
  63. .wi
  64. with registre do
  65. begin
  66.  sentencies;
  67. end; {with}
  68. .b
  69. begin
  70.  sentencies;
  71. end;
  72. .co
  73. {  }
  74. ..
  75. <...+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+....0....+....1....+....2....+.
  76.