Duvida [Resolvido]Alguem pode me ajudar ai

[rike_GH]

Galera estou tentando aprender logica de programação sozinho, ai estou tentando com o ''Pascal Zim'' ai eu achei alguns exercícios para tentar fazer e não estou conseguindo fazer esse:

"Faça um Programa que peça para entrar com um ano com 4 dígitos e determine
se o mesmo é ou não bissexto."
dica: o numero tem que ser multiplo de 4 , e não multiplo de 100


eu sei que a maioria aki nem vai querer me ajudar pq perto do que vcs sabem isso é lixo, mas mesmo assim estou pedindo ajuda, se alguem souber por favor me avisa,encanei nesse exercício

[CAÇADOR]

Ano Bissexto

Não sei se é isso o que vc está procurando!
Achei por um acaso:
São bissextos todos os múltiplos de 4 e não múltiplos de 100 ex:1996,2004,2008,2012,2016...
Psudocódigo que determina quando um ano é bissexto ou não:

Fazer Y =ano
Se ano módulo 100 é 0 então
Y =ano/100
Se Y módulo 4 é 0 então bissexto
Senão não_bissexto
Eu não sou programador;tentando ser iniciante!!
Até Mais..

[Soultt]

Não sei se isso tá certo mas olha ai

Program Pzim ;
var
ano: integer;
m100,m4: integer;
Begin
writeln('O ano');
readln(ano);
m100:= ano mod 100;
m4:= ano mod 4;
writeln(m100,' ',m4);
if (m100 = 0) or (m4 <> 0) then
writeln('não é bisexto')
else
if m4 = 0 then
writeln('é bisexto');

End.

[Kasparov]

Não sei se isso tá certo mas olha ai

Program Pzim ;
var
ano: integer;
m100,m4: integer;
Begin
writeln('O ano');
readln(ano);
m100:= ano mod 100;
m4:= ano mod 4;
writeln(m100,' ',m4);
if (m100 = 0) or (m4 <> 0) then
writeln('não é bisexto')
else
if m4 = 0 then
writeln('é bisexto');

End.

Ele pediu ajuda em pascal, não em Delphi...
Como não sei pascal, não posso ajudar

[Rolando.Sanches]

Ele pediu ajuda em pascal, não em Delphi...
Como não sei pascal, não posso ajudar

Kaao Dephi é basicamente pascal Orientado à Objecto (também conhecido como Object Pascal). Se você retirar todas as características da POO do Delphi o que se vai sobrar é Pascal.

---------
rike307 acho que os post do Soultt e do CAÇADOR resolvem o teu problema. Para saber se o número n é multiplo do número x verifique o resto da divisão de n por x. Se for zero então n é multiplo de x. Em Pascal usa-se o operador mod para calcular o resto da divisão.

[bruno markes]

galera onde esta o erro
nao quer fechar o programa
diz que tem que fechar a cadeia antes.
obs: compilador pascal zim
obrigado!
x,a,b: integer;

Begin

write ('informe o valor da vairavel a:');
readln(a);
write ('informe o valor da vairavel b:');
readln (b);
writeln;
x:= a+b;
write('o resultado e;
if(x>=10)then
writeln(x+5)
else;
writeln(x-5);

end.

[Soultt]

x,a,b: integer;

Begin

write ('informe o valor da vairavel a:');
readln(a);
write ('informe o valor da vairavel b:');
readln (b);
writeln;
x:= a+b;
write('o resultado e; // Esqueceu de fechar a string com um '
if(x>=10)then
writeln(x+5)
else; // Não se coloca ; em else
writeln(x-5);

end.

Eu acho que é só isso

[rike_GH]

galera primeiramente obrigado aos q me ajudaram a resolver esse exercício, estou aprendendo, quero aprender outras linguagens jah q gostei de programação pelo menos a principio, o q me ajudou q eu num sabia era o comando mod q eu nem sabia q existia rsrsrs
obrigado a todos

PS: eu fiz assim e rodou certinho:

Program Ano_Bissexto;
var ano,cada_ano,resto:integer;
ok:boolean;

Begin
gotoxy(20,2);
textcolor(white);
textbackground(black);

ok:=false;
writeln('informe um ano a partir do ano 1000 D.C');
while ok<>true do
begin
write('informe o ano:');
read(ano);
clrscr;
if ano>1000 then
begin
write('você pode continuar') ;
ok:=true
end
else
writeln('você não pode continuar');
clrscr;
end;
cada_ano:=4;
resto:=ano mod cada_ano;

if resto>0 then
writeln('o ano não é bissexto')
else
writeln('o ano é bissexto');

write('-Fim do programa-');

End.

[bruno markes]

valew!!!
agora deu certo.

[cesargbi16]

Sei q aqui pode não ser a área correta, mas vou postar aqui mesmo.

Na opnião de vc's. O delphi morreu?
A maioria das pessoa fala q o delphi não tem mais lugar, agora é so java .net, só vejo as pessoas falando isso.
O q vc's acham vale apena aprender delphi ainda?

Essa pergunta pq estava estudadando pascal e agora vou passar para o delphi e queria saber a opnião d vc's.
Bom é isso.
Abraçoss...

[Kasparov]

Sei q aqui pode não ser a área correta, mas vou postar aqui mesmo.

Na opnião de vc's. O delphi morreu?
A maioria das pessoa fala q o delphi não tem mais lugar, agora é so java .net, só vejo as pessoas falando isso.
O q vc's acham vale apena aprender delphi ainda?

Essa pergunta pq estava estudadando pascal e agora vou passar para o delphi e queria saber a opnião d vc's.
Bom é isso.
Abraçoss...

Se o seu objetivo for que as pessoas leiam, seria melhor criar um tópico

E outra, o Delphi não morreu, ele continua sendo bastante usado para uso em deskatop e programas que rodem fora da internet, só que ele está... digamos... meio morto (não morto-vivo, e sim meio morto mesmo xD) por pouco uso.

[Renatoocara]

Este daqui eu acho que serve:

Program Ano_Bissexto;
var ano,cada_ano,resto:integer;
ok:boolean;

Begin
gotoxy(20,2);
textcolor(white);
textbackground(black);

ok:=false;
writeln('informe um ano a partir do ano 1000 D.C');
while ok<>true do
begin
write('informe o ano:');
read(ano);
clrscr;
if ano>1000 then
begin
write('você pode continuar') ;
ok:=true
end
else
writeln('você não pode continuar');
clrscr;
end;
cada_ano:=4;
resto:=ano mod cada_ano;

if resto>0 then
writeln('o ano não é bissexto')
else
writeln('o ano é bissexto');

write('-Fim do programa-');

End.