35 lines
767 B
Plaintext
35 lines
767 B
Plaintext
100 cls
|
|
110 ancho = 81
|
|
120 alto = 5
|
|
130 dim intervalo$(alto,ancho)
|
|
140 '
|
|
150 sub cantor()
|
|
160 for i = 0 to alto-1
|
|
170 for j = 0 to ancho-1
|
|
180 intervalo$(i,j) = chr$(254)
|
|
190 next j
|
|
200 next i
|
|
210 end sub
|
|
220 '
|
|
230 sub conjcantor(inicio,longitud,indice)
|
|
240 segmento = longitud/3
|
|
250 if segmento = 0 then exit sub
|
|
260 for i = indice to alto-1
|
|
270 for j = inicio+segmento to inicio+segmento*2-1
|
|
280 intervalo$(i,j) = chr$(32)
|
|
290 next j
|
|
300 next i
|
|
310 conjcantor(inicio,segmento,indice+1)
|
|
320 conjcantor(inicio+segmento*2,segmento,indice+1)
|
|
330 end sub
|
|
340 '
|
|
350 cantor()
|
|
360 conjcantor(0,ancho,1)
|
|
370 for i = 0 to alto-1
|
|
380 for j = 0 to ancho-1
|
|
390 print intervalo$(i,j);
|
|
400 next j
|
|
410 print
|
|
420 next i
|
|
430 end
|