Input/Output for pairs of numbers: Difference between revisions
Content added Content deleted
(Added XPL0 example.) |
(Applesoft BASIC) |
||
Line 151: | Line 151: | ||
</pre> |
</pre> |
||
=={{header|Applesoft BASIC}}== |
|||
<lang gwbasic> 100 GOSUB 230"INPUT LINE" |
|||
110 LET N = VAL (L$) - 1 |
|||
120 IF N < 0 THEN END |
|||
130 DIM SUM(N) |
|||
140 FOR I = 0 TO N |
|||
150 GOSUB 330"SUM PAIR FROM INPUT LINE" |
|||
160 LET SUM(I) = S |
|||
170 NEXT I |
|||
190 FOR I = 0 TO N |
|||
200 PRINT SUM(I) |
|||
210 NEXT |
|||
220 END |
|||
230 LET L$ = "" |
|||
240 LET C$ = "" |
|||
250 FOR C = 0 TO 1 STEP 0 |
|||
260 LET L$ = L$ + C$ |
|||
270 GET C$ |
|||
280 PRINT CHR$ (0)C$; |
|||
290 LET C = C$ = CHR$ (13) |
|||
300 NEXT C |
|||
310 LET C = FRE (0) |
|||
320 RETURN |
|||
330 GOSUB 230"INPUT LINE" |
|||
340 FOR C = 1 TO LEN(L$) |
|||
350 IF MID$(L$, C, 1) <> " " THEN NEXT C |
|||
360 S = VAL(MID$(L$, 1, C - 1)) + VAL(MID$(L$, C + 1)) |
|||
370 RETURN</lang> |
|||
'''Input''' |
|||
<pre> |
|||
5 |
|||
1 2 |
|||
10 20 |
|||
-3 5 |
|||
100 2 |
|||
5 5 |
|||
</pre> |
|||
{{out}} |
|||
<pre> |
|||
3 |
|||
30 |
|||
2 |
|||
102 |
|||
10 |
|||
</pre> |
|||
=={{header|AWK}}== |
=={{header|AWK}}== |
||
<lang awk>NR == 1 {n=$1; next} |
<lang awk>NR == 1 {n=$1; next} |