António Roberto Software
a.roberto@mail.telepac.pt

Algoritmos e Estruturas de Dados
1º ano da Licenciatura em Informática de Gestão

Aulas de 6 e 7 de Janeiro de 2004

 

 

 

 

 

 

Ciclo While (do programa Tabuada)

Com o ciclo For

Multiplicador = 1
Do While Multiplicador <= 9
   Resultado = Num * Multiplicador
   lstTabuada.AddItem 
CStr(Resultado)
   Multiplicador = Multiplicador + 1
Loop
For Multiplicador = 1 To 9
   Resultado = Num * Multiplicador
   lstTabuada.AddItem 
CStr(Resultado)
Next Multiplicador  

Ciclo While (do programa Somatorio)

Com o ciclo For

Soma = 0
Num = 1
Do While Num <= n
   Soma = Soma + Num
   Num = Num + 1
Loop
Soma = 0
For Num = 1 To n
   Soma = Soma + Num 
Next Num 

Utilização de uma PictureBox para desenhar o gráfico. Desenho da escala do gráfico com o método Scale. Desenho de um ponto do gráfico com o método PSet.

Utilização do ciclo For Next para desenhar ponto a ponto - com o método PSet - os eixos e o gráfico das funções Seno e Coseno.

Nome do Projecto

 Tipo

Código Fonte

GraficoSenoCoseno

Standard EXE

GraficoSenoCoseno