Algoritmo Dia do Ano

[ZeuS- 0]

Boa Noite, sou novo aqui no forum, se não fosse muito trabalho, dar uma olhada em um algoritmo que fiz, caso há algum erro me monstrar-lo ou se tiver uma ideia melhor de como fazer.

 

Gratz http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

 

Faça um algoritmo que leia um dia e mês

(1,2,3,...,11,12) do ano e calcule a ordem

deste dia no ano (considere o ano não sendo

bissexto).

Exemplo: 10/2 - 41° dia

 

EDIT: Editei alguns erros

algoritmo dia_do_mes
var dia,mes,total:Inteiro

inicio
	Escreva 'Escreva Dia/Mes'
	Leia dia,mes
	Se (mes=03,05,07,08,10,12) então
	total<- (mes*30-30)+dia+(mes div 2)-2
	Senão
		Se (mes=02) então
		total<- (mes*30-30)+dia
		Senão
			Se (mes=01) então
			total<- (mes*30-30)+dia
			Senão
				total<- (mes*30-30)+dia+(mes div 2)
				fimse
			fimse
		fimse
	fimse
	Se (mes>12)
	Escreva "Nulo"
Escreva 'Dia do Ano' total 'º Dia'
Fim

[ZeuS- 0]

Pessoal, eu sei que o trabalho do pessoal é Voluntário, mas precisava entregar isso hoje, e gostaria de apenas algum comentario se está errado ou não.

 

Abraços.

[quitZAUMMM 18]

soh fala uma coisa? você ta considerando q qlqr um dos 12 meses tem 30 dias?

[ZeuS- 0]

Nao nao, tem diferenças entre 30 e 31

 

 

total<- (mes*30-30)+dia+(mes div 2)-2

 

total<- (mes*30-30)+dia+(mes div 2)

 

 

Consertei algumas coisas

 

inicio
	Escreva 'Escreva Dia/Mes'
	Leia dia,mes
	Se (mes=03) ou (mes=05) ou (mes=07) ou (mes=08) ou (mes=10) ou (mes=12) então
	total<- (mes*30-30)+dia+(mes div 2)-2
	Senão
		Se (mes=02) ou (mes=01) então
		total<- (mes*30-30)+dia
			Senão
				total<- (mes*30-30)+dia+(mes div 2)
				fimse
			fimse
		fimse
	fimse
	Se (mes>12) ou (mes<0)
	Escreva "Nulo"
	fimse
	Escreva 'Dia do Ano' total 'º Dia'
Fim

[quitZAUMMM 18]

fez os testes de mesa?

você qr ajuda para eu pensar em outra lógica, ou qr q eu apenas teste os casos?

[ZeuS- 0]

So de testar o algo mesmo...

 

=)

[Mário Monteiro 179]

ta levando em conta feveireiro com 28 dias tambem?

[ZeuS- 0]

Sim