António Roberto Software

a.roberto@mail.telepac.pt

Aula de 19 de Janeiro de 2003

    Exercício Número por Extenso - 1ª Parte  Caso Geral

• Exercício de consolidação da matéria leccionada no 1º semestre.

• Funções para tratamento de strings: Len, Left, Right

• Diagrama de estrutura

   

  A subrotina cmdNumeroExtenso_Click invoca a função NumeroPorExtenso. A função NumeroPorExtenso invoca as funções Unidades, Dezenas e Centenas.

   

• Diagramas IPO

  

  

  

  

   

•  Ciclo que extrai um digito do número em cada iteracção:

  ' Em cada iteracção extrai um digito
  ' e processa o digito em conformidade com a sua posição no número
  Do While s <> ""
      Casa = Len(s)
      Digito = Left(s, 1)
      Select Case Digito
            Case 1: ' unidades
                   nExtenso = nExtenso + " " + Unidades(Digito)
            Case 2: ' dezenas
                   nExtenso = nExtenso + " " + Dezenas(Digito)
            Case 3: ' centenas nExtenso = nExtenso + " " + Centenas(Digito)
      End Select
      s = Right(s, Len(s) - 1)
  Loop

 

Nome do Projecto	Tipo	Código Fonte
NumeroExtenso	Standard EXE	NumeroExtenso