• 5 odgovora
  • 3.983 pregleda
Ucitavanje podataka u pascalu?!?!? 25.06.2005. u 18:15 · pre 259 meseci #1
Evo, ovakav je format:

hh:mm:ss


E sad kako ucitati
hh-kao varijablu a
mm-kao varijablu b
ss-kao varijablu c

Znaci:
writeln('Upisite vrijeme:');
readln(a,b,c);

Kako napravit da je jedna varijabla sve do znaka ":" ,onda slijedi druga do drugog znaka ":" te na kraju treca?????
Re: Ucitavanje podataka u pascalu?!?!? 25.06.2005. u 21:51 · pre 259 meseci #3
Da, mozes da koristic komande za manipulaciju stringovima, ali je tu pipavo oko pos jer neznas koje od dve ":" ce ti on data. Pa, onda ti je mnogo jednostavnije da ucitavas char po char i ukoliko je cifra praviz broj a oko su : predjes na sledeci broj...
Potpis
Math is like love. A simple idea but it can get complicated.
Re: Ucitavanje podataka u pascalu?!?!? 25.06.2005. u 22:28 · pre 259 meseci #5
dao sam ti na pm, ali evo mozda neko potrazi.
radjeno je u delphiju jer nemam TP ovde, ali valjda ce raditi

potrebno 4 edita i jedan button; u edit1 uneti "hh:mm:ss"

Code:
procedure TForm1.Button1Click(Sender: TObject);
var z:integer;
    tekst:string;
begin
tekst:=Edit1.Text;
z:=pos(':',tekst);
Edit2.Text:=copy(tekst,1,z-1);
Delete(tekst,1,z);

z:=pos(':',tekst);
Edit3.Text:=copy(tekst,1,z-1);
Delete(tekst,1,z);

Edit4.Text:=tekst;

end;
Potpis
Laravel Srbija.

[NE PRUŽAM PODRŠKU ZA PHP PREKO PRIVATNIH PORUKA!]
Re: Ucitavanje podataka u pascalu?!?!? 25.06.2005. u 22:36 · pre 259 meseci #6
u krajnjem slucaju, ako ti je bash hh:mm:ss (dva slova : dva slova : dva slova) mozes da uzmes:

Code:
tekst := 'hh:mm:ss';
varijabla_1 := tekst[1]+tekst[2];
varijabla_2 := tekst[4]+tekst[5];
varijabla_3 := tekst[7]+tekst[8];
Potpis
Laravel Srbija.

[NE PRUŽAM PODRŠKU ZA PHP PREKO PRIVATNIH PORUKA!]
Prijavite se da biste odgovorili u ovoj temi.PrijavaRegistracija

Premeštanje teme