| Autor |
Mensagem |
Flight Of Icarus
Veterano |
# Enviado: 21/mai/07 18:15
Alguem poderia ajudar com esse exercicio (em pascal):
1)Refaça o programa em Pascal que escreva qual o dia do ano, para uma data introduzida pelo usuário. Utilize um vetor que contenha o número de dias de cada mês.
eu tentei faze-lo assim (mas esta dando erro):
program diadoano;
const diames: array[1..12] of integer=(31,28,31,30,31,30,31,31,30,31,30,31);
var i,dia,mes,ano,nrodias,diadoano: integer;
begin
writeln ('escreva dia, mes e ano');
readln (dia, mes, ano);
if (ano mod 4 = 0) then
diames[2]:=29
else diames[2]:=28;
for i:=1 to mes do
begin
nrodias:=0;
nrodias:=nrodias + diames[i-1];
end;
diadoano:=(nrodias + dia);
writeln (diadoano);
readln;
end.
|
Dogs2
Veterano |
# Enviado: 21/mai/07 18:16
Votar
a resposta é a letra C
|
André_Decathlon
Veterano |
# Enviado: 21/mai/07 18:16
Votar
NDA
|
Dogs2
Veterano |
# Enviado: 21/mai/07 18:19
Votar
( o fórum está quieto... deve ter 400 pessoas pensando na resposta pra essa questão)
|
Flight Of Icarus
Veterano |
# Enviado: 21/mai/07 19:46
Votar
Up!
|
André_Decathlon
Veterano |
# Enviado: 21/mai/07 19:52 · Editado por: André_Decathlon
Votar
se ferra intaum
|
TWT ICE
Veterano |
# Enviado: 21/mai/07 19:53
Votar
nem sei oq eh isso, mas chuta D
|
Flight Of Icarus
Veterano |
# Enviado: 21/mai/07 19:57
Votar
Dos q estão online o unico q deve manjar eh o guitarra azul... =(
|
Flight Of Icarus
Veterano |
# Enviado: 21/mai/07 19:59
Votar
André_Decathlon
Acho melhor nem velho, mas vlw.
|
André_Decathlon
Veterano |
# Enviado: 21/mai/07 20:00
Votar
Flight Of Icarus
Acho melhor nem velho, mas vlw.
affffffff
pq nao?
¬¬
|
The Blue Special Guitar
Veterano |
# Enviado: 21/mai/07 20:12
Votar
Estou sem compilador Pascal nesse pc...
E não sei muita coisa nessa linguagem...
|
The Blue Special Guitar
Veterano |
# Enviado: 21/mai/07 20:13
Votar
O programa precisa fazer o que?
Tipo, o cara digita lá 2/2 e ele soma todos os dias de janeiro mais 2 de fevereiro?
|
André_Decathlon
Veterano |
# Enviado: 21/mai/07 20:17
Votar
The Blue Special Guitar
acho q ele fala se eh quarta, quinta...
|
The Blue Special Guitar
Veterano |
# Enviado: 21/mai/07 20:19
Votar
André_Decathlon
acho q ele fala se eh quarta, quinta...
Acho que não @.@
|
TIO_TEDDY
Veterano |
# Enviado: 21/mai/07 20:23
Votar
na verdade o programa tem q ser algo do tipo?
o cara fala 2/2/1990
ae tem que dizer quanto dias o mês 2 possui
|
The Blue Special Guitar
Veterano |
# Enviado: 21/mai/07 20:25
Votar
Não faltou um USES CRT; na segunda linha?
|
Atomic
Veterano |
# Enviado: 21/mai/07 20:25
Votar
qual o erro? n sei pascal, mas se for um erro na logica talvez de pra ajudar
|
TIO_TEDDY
Veterano |
# Enviado: 21/mai/07 20:29
Votar
The Blue Special Guitar
soh precisa colcoar uses crt em alguns compiladores
|
The Blue Special Guitar
Veterano |
# Enviado: 21/mai/07 20:32
Votar
program diadoano;
uses crt;
const diames: array[1..12] of integer=(31,28,31,30,31,30,31,31,30,31,30,31);
var i,dia,mes,ano,nrodias,diadoano: integer;
begin
writeln ('escreva dia, mes e ano');
readln (dia, mes, ano);
if (ano mod 4 = 0) then
diames[2]:=29
else diames[2]:=28;
nrodias:=0;
for i:=1 to (mes-1) do
begin
nrodias:=nrodias + diames[i-1];
end;
diadoano:=(nrodias + dia);
writeln (diadoano);
readln;
end.
Corrigi alguns erros de lógica. Tenta aí agora.
|
stenyosullivan
Veterano |
# Enviado: 21/mai/07 20:38
Votar
eu sou melhor em linguagem c, mas ate agora n entendi ql o objetivo do programa ¬¬
|
Flight Of Icarus
Veterano |
# Enviado: 21/mai/07 21:21
Votar
The Blue Special Guitar
Continua dando o mesmo erro (esta escrito erro na linha 6 coluna 1 e linha 19 coluna 9).
|
Flight Of Icarus
Veterano |
# Enviado: 21/mai/07 21:23 · Editado por: Flight Of Icarus
Votar
Baixa ai dev pascal: http://baixaki.ig.com.br/download/Bloodshed-Dev-Pascal-Free-Pascal-Com piler.htm
|
TIO_TEDDY
Veterano |
# Enviado: 21/mai/07 21:27
Votar
diadoano:=(nrodias+dia);
|
TIO_TEDDY
Veterano |
# Enviado: 21/mai/07 21:28
Votar
nisso q tah o erro?
|
Atomic
Veterano |
# Enviado: 21/mai/07 21:28 · Editado por: Atomic
Votar
end. nao deveria ser end;?
readln le mais de uma variavel ao mesmo tempo? (nao sei pascal, mas me parece estranho)
|
Flight Of Icarus
Veterano |
# Enviado: 21/mai/07 21:31
Votar
Os erros q estão dando (linha/coluna)
6 / 1 untitl~1.pas
Error: Duplicate identifier DIADOANO
6 / 1 untitl~1.pas
Hint: Identifier already defined in untitl~1.pas at line 3
6 / 1 untitl~1.pas
Error: Duplicate identifier DIADOANO
6 / 1 untitl~1.pas
Hint: Identifier already defined in untitl~1.pas at line 3
19 / 9 untitl~1.pas
Fatal: Syntax error, . expected but := found
|
TIO_TEDDY
Veterano |
# Enviado: 21/mai/07 21:34
Votar
tenta mudar o nome do programa, colcoar com o mesmo nome da variavel as vezes dah erro
|
Flight Of Icarus
Veterano |
# Enviado: 21/mai/07 21:40
Votar
TIO_TEDDY
aee, solucionou o problema so q a conta ta saindo totalmente errada =(
ex:
escreva dia, mes e ano
30
3
1999
-1875758197
|
TIO_TEDDY
Veterano |
# Enviado: 21/mai/07 21:47
Votar
Flight Of Icarus
tu jah aprendeu case?
|
TIO_TEDDY
Veterano |
# Enviado: 21/mai/07 21:47
Votar
for i:=1 to mes do
begin
nrodias:=0;
nrodias:=nrodias + diames[i-1];
end;
diadoano:=(nrodias + dia);
acho q essa parte tah errada
|
