| 12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152 |
- Listing:
- 1 MODULE prog2;
- 2 (* This program writes out some Pythagorean triples *)
- 3 FROM IO IMPORT WrStr, WrLngCard, WrLn;
- 4 VAR a,b,c:LONGCARD;
- ***** ^ undeclared identifier
- 5 BEGIN
- 6 FOR c := 1 TO 100 DO
- ***** ^ FOR needs integer variable and bounds
- 7 FOR b := 1 TO c DO
- ***** ^ FOR needs integer variable and bounds
- ***** ^ not supported yet
- 8 FOR a := 1 TO b DO
- ***** ^ FOR needs integer variable and bounds
- ***** ^ not supported yet
- 9 IF a*a + b*b = c*c THEN
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 10 WrLngCard(a,1);
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 11 WrStr(', ');
- ***** ^ not supported yet
- ***** ^ not supported yet
- 12 WrLngCard(b,1);
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 13 WrStr(', ');
- ***** ^ not supported yet
- ***** ^ not supported yet
- 14 WrLngCard(c,1);
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 15 WrLn;
- ***** ^ not supported yet
- 16 END;
- 17 END;
- 18 END;
- 19 END;
- 20 END prog2.
- 26 errors
|
