| Autor |
Mensagem |
TIO_TEDDY
Veterano |
# mai/07
· votar
1)Refaça o programa em Pascal que escreva qual o dia do ano, para uma data introduzida pelo usuário.
aliás, o que é para fazer, afinal?
|
Flight Of Icarus
Veterano |
# mai/07
· votar
TIO_TEDDY
tu jah aprendeu case?
Sim
|
Flight Of Icarus
Veterano |
# mai/07
· votar
TIO_TEDDY
1)Refaça o programa em Pascal que escreva qual o dia do ano, para uma data introduzida pelo usuário.
Está escrito 'refaça' pois o professor passou em uma outra aula esse mesmo exercicio para fazer de uma maneira diferente.
Nesse q estamos vendo é pra fazer utilizando vetor.
|
TIO_TEDDY
Veterano |
# mai/07
· votar
Flight Of Icarus
mas eu não entendi qual eh o objetivo do programa
|
Flight Of Icarus
Veterano |
# mai/07
· votar
TIO_TEDDY
Achei o erro!
|
Flight Of Icarus
Veterano |
# mai/07
· votar
ufa! \o/
TIO_TEDDY
mas eu não entendi qual eh o objetivo do programa
O objetivo era o cara digita lá 2/2 e ele soma todos os dias de janeiro mais 2 de fevereiro
|
TIO_TEDDY
Veterano |
# mai/07
· votar
Flight Of Icarus
ah tah hehe
Achei o erro!
aonde era?
|
Flight Of Icarus
Veterano |
# mai/07
· votar
TIO_TEDDY
O erro estava em
for i:=1 to mes do
Tinha q substituir por
for i:=2 to mes do
dai fica:
program diadoano1;
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:=2 to (mes) do
begin
nrodias:=nrodias + diames[i-1];
end;
diadoano:=(nrodias+dia);
writeln (diadoano);
readln;
end.
|
Flight Of Icarus
Veterano |
# mai/07 · Editado por: Flight Of Icarus
· votar
The Blue Special Guitar
TIO_TEDDY
Atomic
stenyosullivan
Vlw ae pra todos q ajudaram! \o|
|
The Blue Special Guitar
Veterano |
# mai/07
· votar
Aproveitando o tópico:
Instalei o Microsoft Visual Studio C++ mas ele não identifica a maioria das bibliotecas e comandos que eu uso no Borland C++ !
Alguém sabe o motivo?
|
TIO_TEDDY
Veterano |
# mai/07
· votar
Flight Of Icarus
eu ia falar pra botar 2 haha
tava baixando o dev pascal pra ver se ia funcionar
|
Flight Of Icarus
Veterano |
# mai/07
· votar
TIO_TEDDY
eu ia falar pra botar 2 haha
Sei...
uhuahau zuera, mas vlw.
|
TIO_TEDDY
Veterano |
# mai/07
· votar
Flight Of Icarus
eahuiehauiheuiahuieahuea
|
tncv
Veterano |
# mai/07
· votar
eu ia falar pra botar 2 haha
que safadeeeeeeeeeeenho.
|
TIO_TEDDY
Veterano |
# mai/07
· votar
tncv
heauiheuiahiuehauiehuiaeuiahiueauehauiheuia
nem me liguei eaheuaiheiahiuehauieuia
|
Flight Of Icarus
Veterano |
# mai/07
· votar
tncv
Vc leva as coisas muito por trás.
|