algoritmos 1

PUNTO 2

var base: numerico

var altura: numerico

var lado2: numerico

var lado3: numerico

var superficie: numerico

var perimetro: numerico

inicio

cls ()

imprimir ("medida de la base \n")

leer (base)

imprimir ("medida de la altura \n")

leer (altura)

imprimir ("medida del 2° lado \n")

leer (lado2)

imprimir ("medida del 3°lado \n")

leer (lado3)

superficie = base*altura/2

Perimetro = base+lado2+lado3

imprimir ("superficie: ", superficie, "\n")

imprimir ("perimetro ", perimetro)

fin

PUNTO 3

var original: numerico

inicio

cls ()

imprimir ("ingrese numero \n")

leer (original)

imprimir ("tabla de multiplicar ", original, " es: \n")

imprimir (original, "x 0 = ", original*0, "\n")

imprimir (original, "x 1 = ", original*1, "\n")

imprimir (original, "x 2 = ", original*2, "\n")

imprimir (original, "x 3 = ", original*3, "\n")

imprimir (original, "x 4 = ", original*4, "\n")

imprimir (original, "x 5 = ", original*5, "\n")

imprimir (original, "x 6 = ", original*6, "\n")

imprimir (original, "x 7 = ", original*7, "\n")

imprimir (original, "x 8 = ", original*8, "\n")

imprimir (original, "x 9 = ", original*9, "\n")

imprimir (original, "x 10 = ", original*10)

fin

PUNTO 4

var a: numerico

var b: numerico

var c: numerico

inicio

cls()

imprimir ("ingresar un valor para A \n")

leer (a)

imprimir ("ingresar un valor para B \n")

leer (b)

imprimir ("valores intercambiados \n")

c = a

a = b

b = c

imprimir ("a es igual a ", a, "\n")

imprimir ("b es igual a ", b, "\n")

fin