home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 31 / CDASC_31_1996_juillet_aout.iso / vrac / ledwes.zip / PASCAL.L < prev   
Text File  |  1996-02-17  |  950b  |  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.  sentencias;
  12. end; {for}
  13. .fd
  14. for i:=a downto b do
  15. begin
  16.  sentencias;
  17. end; {for}
  18. .i
  19. if condici≤n
  20.  then
  21.  begin
  22.   sentencias;
  23.  end
  24.  else
  25.  begin
  26.   sentencias;
  27.  end;
  28. {end if}
  29. .is
  30. if condici≤n
  31.  then sentencias
  32.  else sentencias;
  33. {end if}
  34. .r
  35. repeat
  36.  sentencias;
  37. until condici≤n
  38. .w
  39. while condici≤n do
  40. begin
  41.  sentencias;
  42. end; {while}
  43. .p
  44.  
  45. procedure x(parßmetros);
  46. begin
  47.  sentencias;
  48. end;
  49. .pr
  50. program xxxxxxxxx(input,output); {}
  51.  
  52. .fu
  53.  
  54. function x(parßmetros):tipo;
  55. begin
  56.  sentencias;
  57. end;
  58. .c
  59. case x of
  60.  y: sentencia;
  61.  otherwise begin end;
  62. end; {case}
  63. .wi
  64. with registro do
  65. begin
  66.  sentencias;
  67. end; {with}
  68. .b
  69. begin
  70.  sentencias;
  71. end;
  72. .co
  73. {  }
  74. ..
  75. <...+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+....0....+....1....+....2....+.
  76.