Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Free Pascal izlaz

[es] :: Pascal / Delphi / Kylix :: Free Pascal izlaz

[ Pregleda: 1625 | Odgovora: 14 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

BojanaF

Član broj: 327406
Poruke: 13
*.dynamic.sbb.rs.



+4 Profil

icon Free Pascal izlaz22.02.2016. u 17:33 - pre 53 meseci
Imam veliki problem jer ne znam kako da napišem kod... u pitanju je FREE PASCAL..

Ako je izlaz koji treba da se prikaže na primer u promenljivoj h koja ima sate, m koja čuva minute i s koja ima sekunde. Program izračuna izlaz ali prikaže kao na primer 23:1:4 šta da uradim da se rezultat prikaže kao 23:01:04 ?
writeln(h,':',m,':',s) prikaže ali bez zapisa vremena kako je potrebno.

Našla sam kod za C++ i on izbaci vrednost kako treba pomoću sledećeg reda
cout << setfill('0') << setw(2) << cas << ":" << setfill('O') << setw(2) << minut << ":" << setfil('0') << setw(2) << s <<endl;

Kako da se takav prikaz vidi pomoću Free Pascala?
Hvala za svaku ideju
 
Odgovor na temu

salvaric
Novi Sad

Član broj: 53995
Poruke: 192
*.dynamic.sbb.rs.



+4 Profil

icon Re: Free Pascal izlaz22.02.2016. u 19:06 - pre 53 meseci
Code:
var
   izlaz : TDateTime;
   h, m, s, ms : Word;
begin
      h  := 1;
      m  := 22;
      s  := 34;
      ms := 4;
      izlaz := EncodeTime(h,m,s,ms);
      WriteLn(FormatDateTime('hh:nn:ss', izlaz));  

Trebalo bi da ti pomogne, samo ga implementiraj kod sebe.
Nikad izvini!
 
Odgovor na temu

BojanaF

Član broj: 327406
Poruke: 13
*.dynamic.sbb.rs.



+4 Profil

icon Re: Free Pascal izlaz22.02.2016. u 20:09 - pre 53 meseci
Hvala na odgovoru ali prijavljuje grešku čak i sa ovako prekopiranim kodom..
piše... identifier not found "EncodeTime"
identifier not found "formatDateTime"
 
Odgovor na temu

salvaric
Novi Sad

Član broj: 53995
Poruke: 192
*.dynamic.sbb.rs.



+4 Profil

icon Re: Free Pascal izlaz22.02.2016. u 20:12 - pre 53 meseci
Dodaj SysUtils

Uses sysutils;
Nikad izvini!
 
Odgovor na temu

BojanaF

Član broj: 327406
Poruke: 13
*.dynamic.sbb.rs.



+4 Profil

icon Re: Free Pascal izlaz22.02.2016. u 21:36 - pre 53 meseci
Probala sam i tako i stvarno radi sa kodom koji si ostavio ali ubačeno u moj kod izjavljuje grešku
Wrong number of parameters specified for call to "EncodeTime"

evo kako izgleda

A drugi problem je što mi izlaz kada treba da rešenje bude 1 sat prikazuje kao 25 :/


Program tamoneki;

Uses sysutils;
Var
izlaz : TDateTime;

h,m,s: Word;

k,t,ukupnoSekundi,ostatak,brSati,brMin,brSek,sati,minut,sekund:longint;

Begin
readln(h,m,s,k,t);

ukupnoSekundi:=h*3600+m*60+s+k*60+t*5*60;
brSati:=ukupnoSekundi div 3600;
ostatak:=ukupnoSekundi mod 3600;
brMin:=ostatak div 60;
brSek:=ostatak mod 60;

h:=brSati;
m:=brMin;
s:=brSek;

izlaz := EncodeTime(h,m,s);

WriteLn(FormatDateTime('hh:nn:ss', izlaz));

readln
End.
 
Odgovor na temu

salvaric
Novi Sad

Član broj: 53995
Poruke: 192
*.dynamic.sbb.rs.



+4 Profil

icon Re: Free Pascal izlaz22.02.2016. u 22:07 - pre 53 meseci
Code:
Program tamoneki;

Uses sysutils, DateUtils;
Var
izlaz : TDateTime;
h,m,s,k,t,ms: Word;
Begin
      readln(h,m,s,k,t);
      izlaz := EncodeTime(h,m,s,ms);
      izlaz := IncSecond(izlaz,k*60+t*5*60);
      WriteLn(FormatDateTime('hh:nn:ss', izlaz));    
readln
End.

Nikad izvini!
 
Odgovor na temu

BojanaF

Član broj: 327406
Poruke: 13
*.dynamic.sbb.rs.



+4 Profil

icon Re: Free Pascal izlaz22.02.2016. u 22:15 - pre 53 meseci
Javlja grešku i piše:
Can't find unit DateUtils...
 
Odgovor na temu

salvaric
Novi Sad

Član broj: 53995
Poruke: 192
*.dynamic.sbb.rs.



+4 Profil

icon Re: Free Pascal izlaz22.02.2016. u 22:33 - pre 53 meseci
Skini poslednju verziju Free Pascal-a.
free pascal
Kod mene radi kako treba.

Ili pronađi biblioteke na netu (DateUtils.o i DateUtils.ppu) i smesti ih u dir "...\FPC\3.0.0\units\i386-win32\rtl-objpas".
Nikad izvini!
 
Odgovor na temu

BojanaF

Član broj: 327406
Poruke: 13
*.dynamic.sbb.rs.



+4 Profil

icon Re: Free Pascal izlaz22.02.2016. u 22:45 - pre 53 meseci
To je to!
Mnogo si mi pomogao i to za čas!
Ceo dan si mi popravio... Hvala!
 
Odgovor na temu

dogriz
Sombor

Član broj: 29744
Poruke: 259
89.216.28.*

Sajt: dogriz.blogspot.com


+6 Profil

icon Re: Free Pascal izlaz23.02.2016. u 07:00 - pre 53 meseci
Postoji i veoma korisna funkcija format
 
Odgovor na temu

BojanaF

Član broj: 327406
Poruke: 13
*.dynamic.sbb.rs.



+4 Profil

icon Re: Free Pascal izlaz23.02.2016. u 07:20 - pre 53 meseci
Videla sam te opise za upotrebu funkcije Format ali kako god sam u mom primeru pokušala da je upotrebim, nailazila sam na greške.
 
Odgovor na temu

dogriz
Sombor

Član broj: 29744
Poruke: 259
*.static.isp.telekom.rs.

Sajt: dogriz.blogspot.com


+6 Profil

icon Re: Free Pascal izlaz23.02.2016. u 09:22 - pre 53 meseci
Ako se ne varam, ovako nekako (naravno, pod uslovom da su h,m,s celobrojni tipovi):
Code:
Format('%0.2d:%0.2d:%0.2d', [h, m, s])
 
Odgovor na temu

BojanaF

Član broj: 327406
Poruke: 13
*.dynamic.sbb.rs.



+4 Profil

icon Re: Free Pascal izlaz23.02.2016. u 23:32 - pre 53 meseci
Funkcija format, kako si mi predložio, isto radi ispis sa nulama kako treba, samo što vreme ne prikazuje kada pređe 23. sat.
00 prikazuje kao 24,
1 posle ponoći prikazuje kao 25 itd...

Ovako sam je postavila
writeln(Format('%0.2d:%0.2d:%0.2d',[h,m,s]));
 
Odgovor na temu

dogriz
Sombor

Član broj: 29744
Poruke: 259
89.216.28.*

Sajt: dogriz.blogspot.com


+6 Profil

icon Re: Free Pascal izlaz24.02.2016. u 07:27 - pre 53 meseci
Code:
function PrikaziVreme(ASek: Longint): String;
var
  Aminuti, Asati: Integer;
begin
  Asati := Asek div 3600;
  Aminuti := (Asek - Asati * 3600) div 60;
  Asek := Asek - Asati * 3600 - Aminuti * 60;
  while Asati > 23 do
    Asati := Asati - 24;
  Result := Format('%0.2d:%0.2d:%0.2d', [Asati, Aminuti, Asek]);
end;


Primer koji sam ti napisao je funkcija koja ti za zadato vreme iskazano u sekundama vraća string zapis u željenom formatu.
 
Odgovor na temu

BojanaF

Član broj: 327406
Poruke: 13
*.dynamic.sbb.rs.



+4 Profil

icon Re: Free Pascal izlaz24.02.2016. u 16:37 - pre 53 meseci
I ovo rešenje radi! :)
Hvala na svoj pomoći. Još uvek učim i snalazim se pa mi ovakva pomoć skraćuje verovatno više sati istraživanja na internetu kako nešto da zapišem.
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Free Pascal izlaz

[ Pregleda: 1625 | Odgovora: 14 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.