Jump to content

Conversão de número para formato HH:MM:SS


Dkid

Recommended Posts

Boas pessoal, com ajuda lá consegui xegar ao codigo, mas ainda n está como quero

program conversor;
uses
crt;

var
Numero,Segundos,Minutos,Horas:integer;

begin
clrscr;
TextColor(15);
write('Digite um Numero: '); TextColor(12); readln(Numero);

Segundos:=Numero mod 60;
Minutos:=Numero div 60 mod 60;
Horas:=Numero div 3600  mod 60;

writeln;
TextColor(15);
write('Em Tempo: ',Horas,'h',' : ',Minutos,'m',' : ',Segundos,'s');
readln;
end.

-- Tou aqui a tentar descobrir como vou por a variavel --> Se horas, minutos, segundos <=9 entao 0xH:0xM:0XS (onde X é o numero de 0 a 9)

Pois ainda não me dou muito bem com variaveis...

Obrigado pela vossa atencao desde já

I promise that I will not change the PATH variable again other than:PATH=/usr/local/sbin:/usr/local/bin:/usr/sbin:/usr/bin:/sbin:/bin:/usr/games

Link to comment
Share on other sites

program conversor;
uses crt;

var
Numero,Segundos,Minutos,Horas:integer;
zeroS, zeroM, zeroH:char;

begin
clrscr;
TextColor(15);
write('Digite um Numero: '); TextColor(12); readln(Numero);

Segundos:=Numero mod 60;
Minutos:=Numero div 60 mod 60;
Horas:=Numero div 3600  mod 60;

writeln;
TextColor(15);
if Segundos < 10 Then
zeroS := '0';
if Minutos < 10 Then
zeroM :='0';
if Horas < 10 Then
zeroH :='0';
write('Em Tempo: ',zeroH,Horas,'h',' : ',zeroM,Minutos,'m',' : ',zeroS,Segundos,'s');
readln;
end.

Penso que assim o problema fica resolvido.

Cumps

Link to comment
Share on other sites

A questao... embora com a pressa não tenha sido esplicito, era:

Como faço um executavel ??

já compilei, ja fiz a opcao make, build, e nenhuma delas me deu um programa do tipo "XPTO.exe" :S

tou a usar o Turbo Pascal 7

I promise that I will not change the PATH variable again other than:PATH=/usr/local/sbin:/usr/local/bin:/usr/sbin:/usr/bin:/sbin:/bin:/usr/games

Link to comment
Share on other sites

Axo que fiz tudo como disses-te, incluindo carregar no make, mas ele faz-me outro fixeiro .pas... e eu queria .exe lool

obrigado pela ajuda ate agora

http://img131.imageshack.us/img131/5497/compilegh5.jpg

I promise that I will not change the PATH variable again other than:PATH=/usr/local/sbin:/usr/local/bin:/usr/sbin:/usr/bin:/sbin:/bin:/usr/games

Link to comment
Share on other sites

oi, Pessoal obrigado pelas respostas as minhs duvidas, MaiDEN_DuDE n era na pasta BIN, era na WORK, mas obrigado, ja fiquei a saber !!

MAS... encontrei um problema no programa lool.... se inserir 86400 (como numero) o programa vai-me dar numeros negativos lol :| lool

Agora é que não faço a minima de como resolver isso

Fikem bem e obrigado pela boa ajuda

I promise that I will not change the PATH variable again other than:PATH=/usr/local/sbin:/usr/local/bin:/usr/sbin:/usr/bin:/sbin:/bin:/usr/games

Link to comment
Share on other sites

:X Peço desculpa pelo erro, já há algum tempo que não programo em Pascal.

Citação
MAS... encontrei um problema no programa lool.... se inserir 86400 (como numero) o programa vai-me dar numeros negativos lol 😐 lool

Estranho ???? a mim ao introduzir o valor 86400 dá-me isto:

http://img97.imageshack.us/img97/7426/prtpascaltp0.jpg

Cumps,

Link to comment
Share on other sites

Em 18/10/2006 às 23:49, MAiDEN_DuDE disse:

:X Peço desculpa pelo erro, já há algum tempo que não programo em Pascal.

Citação
MAS... encontrei um problema no programa lool.... se inserir 86400 (como numero) o programa vai-me dar numeros negativos lol :| lool

Estranho ???? a mim ao introduzir o valor 86400 dá-me isto:

http://img97.imageshack.us/img97/7426/prtpascaltp0.jpg

Cumps,

Certo, mas se reparares 86400 n sao 5h :S ainda n encontrei a solução, propostas ??

Obrigado

I promise that I will not change the PATH variable again other than:PATH=/usr/local/sbin:/usr/local/bin:/usr/sbin:/usr/bin:/sbin:/bin:/usr/games

Link to comment
Share on other sites

Ora diz-me lá qual é o valor máximo que uma variavel do tipo Inteiro pode assumir? (-32768, +32767) quando chega ao máximo do valor começa a dar a "volta" é um erro de overflow, eu sugeria colocares o tipo de variavel como Longint, esta já pode assumir valores entre os -2147483647, +2147483647. Exprimenta e diz se funcionou.

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.