PROGRAM exemplo

 

      INTEGER inteiro

   END	
  PROGRAM exemplo

 

      INTEGER inteiro

   END	

     

FUNCTION fatorial (fat AS INTEGER, g AS BOOLEAN, k AS STRING) AS INTEGER

                  IF fat > 1 THEN

                       fatorial = fat * fatorial(fat - 1)

                  ELSE

fatorial = 1

            END IF

      END FUNCTION

 

      SUB resultado (valor AS INTEGER)

            PRINT “Resultado: ”, valor

END SUB

 

INPUT inteiro

resultado (fatorial (inteiro))

 

END

PROGRAM calculadora 

INtEGER a, b, c, d
BOOLEAN continua

continua = TRUE

DO WHILE continua

PRINT "entrada 1:"
INPUT a
PRINT "entrada 2:"
INPUT b
PRINT "operacao:"
PRINT "1-SOMA; 2-SUBTRAI; 3-MULTIPLICA; 4-DIVIDE"



IF  c = 1  THEN PRINT "RESULTADO: ", a+b ELSE
	IF  c = 2  THEN PRINT "RESULTADO: ", a-b ELSE
		IF  c = 3  THEN PRINT "RESULTADO: ", a*b ELSE
			IF  c = 4  THEN PRINT "RESULTADO: ", a/b ELSE		
				PRINT "nenhum operador valido"
				PRINT "(0-SAIR; 1-CONTINUA)"
				INPUT d
				IF d = 0  THEN continua = FALSE ELSE END IF
			END IF
		END IF

	END IF
END IF

LOOP

END 

PROGRAM multiplicaMatrizQuadrada

INTEGER[50] matrizA
INTEGER[50] matrizB
INTEGER a

SUB inicializacao ()
INTEGER tempLinha, tempColuna

PRINT "Entre o tamanho das Matrizes"
INPUT a

FOR i = 1 TO a*a
   PRINT "Entre com Matriz A: A11, A12, ..., A1n, A21, A22, ..., A2n, ..., Ann"
   INPUT matrizA[i]
NEXT i

FOR i = 1 TO a*a
   PRINT "Entre com Matriz B: B11, B12, ..., B1n, B21, B22, ..., B2n, ..., Bnn"
   INPUT matrizB[i]
NEXT i
END SUB

matriz[23] = 1+matriz[22]
PRINT matriz[23]

END