P_63_E40-Cuadrado+con+numeros+de+fila+y+columna+(Sencillo)

=__**Mostrar un cuadrado de numeros (con el valor de fila y columna)**__=

Versión sencilla: Sin cabeceras de fila y columna.

Ejemplo de ejecución code format="pascal" Valor del lado de la cuadricula (1..9): 3

11 |  12  |  13  |  21  |  22  |  23  |  31  |  32  |  33  | code

code format="pascal" PROGRAM subpr_40_Sencillo ; USES Crt ;

PROCEDURE DibujarCuadrado (byLado: Byte) ; VAR i, j : Byte ; BEGIN FOR i := 1 TO byLado DO     BEGIN FOR j := 1 TO byLado DO         Write (' ', i, j:0,' |') ; Writeln ; END ; END ;

VAR {-- Variables del programa principal -} byAncho: Byte ;

BEGIN { PROGRAMA PRINCIPAL } Writeln ; REPEAT Write ('Valor del lado de la cuadrícula: ') ; ReadLn (byAncho) ; UNTIL (1 <= byAncho) AND (byAncho <=9) ; Writeln ;

DibujarCuadrado (byAncho) ;

ReadLn ; END. code