'rem FREEBASIC, Escalomento sistema linear, adaptado Revista INPUT 1986,1987 'divertimentos matematicos, o problema da distribicao de selos para crianças dim r as integer dim c as integer dim k as integer dim j as integer dim l as integer dim jj as integer dim kk as integer input "digite o numero de linhas";r c=r+1 dim a(r,c) as double dim b(r,c) as double dim ab(c) as string for k=1 to c-1 input "nome das colunas";ab(k) next k for j=1 to r print:print "valores para linha ";j for k=1 to c print "a(";j;",";k;") " input a(j,k) 'print a(j,k);" "; b(j,k)=a(j,k) next k next j 'rot1: for l=1 to r 'rot11: gosub rot2 gosub rot3 'rot31: cls for k=1 to c locate 1, 8*k+2:print ab(k) next k 'for j=1 to r 'for k=1 to c 'locate 2*j+1,8*k+40:print b(j,k) 'next k 'next j 'locate 4*j,1: print "respostas:-" 'for k=1 to r 'locate 4*j+10,k*20:print (a(k,c)) 'locate ...