Home Explore Help
Sign In
eric
/
Topspeed_JPI
1
0
Fork 0
Files Issues 0 Pull Requests 0 Wiki
Branch: master
Branches Tags
Topspeed_JPI
/
TS-V3
/
EXAMPLES
/
PROG2.LST

PROG2.LST 1.7 KB
Permalink History Raw

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152 
  1. Listing:
    2. 

  2. 

  3.     1  MODULE prog2;
    4. 

  4.     2  (* This program writes out some Pythagorean triples *)
    5. 

  5.     3  FROM IO IMPORT WrStr, WrLngCard, WrLn;
    6. 

  6.     4  VAR a,b,c:LONGCARD;
    7. 

  7. *****            ^ undeclared identifier
    8. 

  8.     5  BEGIN
    9. 

  9.     6    FOR c := 1 TO 100 DO
    10. 

  10. *****        ^ FOR needs integer variable and bounds
    11. 

  11.     7      FOR b := 1 TO c DO
    12. 

  12. *****          ^ FOR needs integer variable and bounds
    13. 

  13. *****                    ^ not supported yet
    14. 

  14.     8        FOR a := 1 TO b DO
    15. 

  15. *****            ^ FOR needs integer variable and bounds
    16. 

  16. *****                      ^ not supported yet
    17. 

  17.     9          IF a*a + b*b = c*c THEN
    18. 

  18. *****             ^ not supported yet
    19. 

  19. *****               ^ not supported yet
    20. 

  20. *****                   ^ not supported yet
    21. 

  21. *****                     ^ not supported yet
    22. 

  22. *****                         ^ not supported yet
    23. 

  23. *****                           ^ not supported yet
    24. 

  24.    10            WrLngCard(a,1); 
    25. 

  25. *****            ^ not supported yet
    26. 

  26. *****                      ^ not supported yet
    27. 

  27. *****                         ^ not supported yet
    28. 

  28.    11            WrStr(', '); 
    29. 

  29. *****            ^ not supported yet
    30. 

  30. *****                  ^ not supported yet
    31. 

  31.    12            WrLngCard(b,1); 
    32. 

  32. *****            ^ not supported yet
    33. 

  33. *****                      ^ not supported yet
    34. 

  34. *****                         ^ not supported yet
    35. 

  35.    13            WrStr(', ');
    36. 

  36. *****            ^ not supported yet
    37. 

  37. *****                  ^ not supported yet
    38. 

  38.    14            WrLngCard(c,1);
    39. 

  39. *****            ^ not supported yet
    40. 

  40. *****                      ^ not supported yet
    41. 

  41. *****                         ^ not supported yet
    42. 

  42.    15            WrLn;
    43. 

  43. *****            ^ not supported yet
    44. 

  44.    16          END;
    45. 

  45.    17        END;
    46. 

  46.    18      END;
    47. 

  47.    19    END;
    48. 

  48.    20  END prog2.
    49. 

  49. 

  50.    26 errors
    51. 

  51. 

  52.