25 lines
324 B
Plaintext
25 lines
324 B
Plaintext
PROTO VOID printtab(s,t[])
|
|
|
|
FUNC VOID main() {
|
|
INT i, t[8],x
|
|
i := 0
|
|
WHILE 8-i DO {
|
|
READ x
|
|
t[i] := x
|
|
i:= i+1
|
|
} DONE
|
|
printtab(8,t)
|
|
}
|
|
|
|
FUNC VOID printtab(size,t[]) {
|
|
INT i
|
|
PRINT "Tableau de taille ", size," = ["
|
|
i := 0
|
|
WHILE size-i DO {
|
|
IF i THEN PRINT "," FI
|
|
PRINT t[i]
|
|
i:= i+1
|
|
} DONE
|
|
PRINT "]\n"
|
|
}
|