Srodne teme

01.12.2009. Hitno Trebam Pascal
07.06.2002. FREE pascal
13.03.2007. Pascal literatura
19.07.2014. Besplatni Pascal IDE
24.04.2003. Greska sa "-lvga"
03.11.2009. Konfiguriranje Free Pascal Compilera u DEV Pascalu
03.10.2008. Free Pascal za Linux
29.02.2004. CGI vs PHP pitanje
06.05.2004. Grafovi u Pascal-u
03.07.2004. Pascal za pocetak!

Navigacija

Brisanje liste

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

Free Pascal izlaz

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

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

Autor

BojanaF

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

+4 Profil

Free Pascal izlaz

^{22.02.2016. u 17:33 - pre 111 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: 204
*.dynamic.sbb.rs.

+4 Profil

Re: Free Pascal izlaz

^{22.02.2016. u 19:06 - pre 111 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

Re: Free Pascal izlaz

^{22.02.2016. u 20:09 - pre 111 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: 204
*.dynamic.sbb.rs.

+4 Profil

Re: Free Pascal izlaz

^{22.02.2016. u 20:12 - pre 111 meseci}

Dodaj SysUtils

Uses sysutils;

Nikad izvini!

Odgovor na temu

BojanaF

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

+4 Profil

Re: Free Pascal izlaz

^{22.02.2016. u 21:36 - pre 111 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: 204
*.dynamic.sbb.rs.

+4 Profil

Re: Free Pascal izlaz

^{22.02.2016. u 22:07 - pre 111 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

Re: Free Pascal izlaz

^{22.02.2016. u 22:15 - pre 111 meseci}

Javlja grešku i piše:
Can't find unit DateUtils...

Odgovor na temu

salvaric
Novi Sad

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

+4 Profil

Re: Free Pascal izlaz

^{22.02.2016. u 22:33 - pre 111 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

Re: Free Pascal izlaz

^{22.02.2016. u 22:45 - pre 111 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

Re: Free Pascal izlaz

^{23.02.2016. u 07:00 - pre 111 meseci}

Postoji i veoma korisna funkcija format

Odgovor na temu

BojanaF

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

+4 Profil

Re: Free Pascal izlaz

^{23.02.2016. u 07:20 - pre 111 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

Re: Free Pascal izlaz

^{23.02.2016. u 09:22 - pre 111 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

Re: Free Pascal izlaz

^{23.02.2016. u 23:32 - pre 111 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

Re: Free Pascal izlaz

^{24.02.2016. u 07:27 - pre 111 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

Re: Free Pascal izlaz

^{24.02.2016. u 16:37 - pre 111 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: 2550 | Odgovora: 14 ] > FB > Twit

Srodne teme

01.12.2004. Da li znate za jos neki komercijalni Pascal/Delph..
09.05.2006. rad sa zatvorenim fajlovima u free pascal-u
20.06.2006. [Zadatak] Klasa RED
19.03.2007. Turbo Pascal 7 spor
27.10.2007. Tutorial :: Pravljenje igara u Pascal-u... moze?
06.06.2007. HITNO Pascal za linux?
05.02.2008. lazarus (free pascal kompajler) i Midas
15.03.2008. Turbo pascal/pascal za XP?
15.09.2010. Turbo Pascal 7.0 i Free Pascal - Kako da pokrenem..

Navigacija

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