Exercicio: Determinar anos bissextos entre 1900 e 2100

Postado por em 17/05/2012 - Visitas: 4267



Faça um programa que determine os anos bissextos entre 1900 e 2100
lembrando-se que
Um ano é bissexto se:
- for multiplo de 4
- não for múltiplo de 100, exceto caso seja múltiplo de 400.

Fluxograma

Fluxograma ano bissexto


Fluxograma ano bissexto


Segue exemplo do código em Visual Basic



Dim ano As Integer, div As Integer

ano = 1900
Do While ano <= 2100

div = ano / 100
If (div * 100 <> ano) Then
´ não é multiplo de 100
Console.WriteLine("Ano:" & ano & "bissexto")
Else
´ é multiplo de 100
div = ano / 400
If (div * 400 <> ano) Then
´ não é multiplo de 400
Console.WriteLine("Ano:" & ano & " não é ")
Else
´ é multiplo de 400
Console.WriteLine("Ano:" & ano & "bissexto")
End If

End If


ano = ano + 4

Loop
Console.ReadKey()

Determinar anos bissextos entre 1900 e 2100 / Fluxograma ano bissexto


Fluxograma ano bissexto
Gostou ? Compartilhe