ANALISIS EN SEUDOCODIGO

ANÁLISIS EN SEUDOCÓDIGO

Program menú de geometría

Variables: r, f: char

1. Procedure triángulo

Variables L1, P1, A1: real

Inicio de bloque

  Escribir (‘Ingresa el valor de un lado de la figura: ‘)

  Leer (L1)

  P1←3*L1

  Escribir (‘El perímetro del triángulo es: ‘, P1’)

  P1← (0.433)*(sqr(L1))

  Escribir (‘El área del triángulo es: ‘, A1’)

Fin de bloque

1. Procedure cuadrado

Variables L1, P1, A1: real

Inicio de bloque

  Escribir (‘Ingresa el valor de un lado de la figura: ‘)

  Leer (L1)

  P1←4*L1

  Escribir (‘El perímetro del cuadrado es: ‘, P1’)

  P1← sqr (L1)

  Escribir (‘El área del cuadrado es: ‘, A1’)

Fin de bloque

1. Procedure pentágono

Variables L1, P1, A1: real

Inicio de bloque

  Escribir (‘Ingresa el valor de un lado de la figura: ‘)

  Leer (L1)

  P1← 5*L1

  Escribir (‘El perímetro del pentágono es: ‘, P1’)

  P1← (1.721)*(sqr(L1))

  Escribir (‘El área del pentágono es: ‘, A1’)

Fin de bloque

1. Procedure hexágono

Variables L1, P1, A1: real

Inicio de bloque

  Escribir (‘Ingresa el valor de un lado de la figura: ‘)

  Leer (L1)

  P1← 6*L1

  Escribir (‘El perímetro del hexágono es: ‘, P1’)

  P1← (2.598)*(sqr(L1))

  Escribir (‘El área del hexágono es: ‘, A1’)

Fin de bloque

1. Procedure heptágono

Variables L1, P1, A1: real

Inicio de bloque

  Escribir (‘Ingresa el valor de un lado de la figura: ‘)

  Leer (L1)

  P1← 7*L1

  Escribir (‘El perímetro del heptágono es: ‘, P1’)

  P1← (3.634)*(sqr(L1))

  Escribir (‘El área del heptágono es: ‘, A1’)

Fin de bloque

1. Procedure octágono

Variables L1, P1, A1: real

Inicio de bloque

  Escribir (‘Ingresa el valor de un lado de la figura: ‘)

  Leer (L1)

  P1← 8*L1

  Escribir (‘El perímetro del octágono es: ‘, P1’)

  P1← (4.828)*(sqr(L1))

...