priii

PROGRAM priii

CHARACTER(10) :: names(0:9)
REAL :: prices(0:9)
INTEGER :: i, o

WRITE (*,*) "Seja bem-vindo(a) ao programa priii"
WRITE (*,*) "Por favor, digite na sequência o nome e o respectivo preço de 10 produtos"

DO i = 0, 9

   WRITE (*,*) "Nome do produto", i
   READ (*,*) names(i)

   WRITE (*,*) "Preço do produto", i
   READ (*,*) prices(i)

END DO

MENU: DO

   WRITE (*,*) "1. Mostrar a lista de nomes e preços em ordem alfabética"
   WRITE (*,*) "2. Mostrar a lista de nomes e preços ordenado por preços de menor a maior"
   WRITE (*,*) "3. Mostrar a lista de nomes e preços ordenado por preços de maior a menor"
   WRITE (*,*) "0. Sair"

   READ (*,*) o

   SELECT CASE (o)

      CASE (1)
         ! ordem alfabetica

      CASE (2)
         ! ordem crescente de preços

      CASE (3)
         ! ordem descrecente de preços

      CASE default
         EXIT MENU

END DO MENU

WRITE (*,*) "Obrigado por utilizar nosso programa. Passe bem!"

END PROGRAM priii