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

kako bi ovo riješili?

[es] :: Pascal / Delphi / Kylix :: kako bi ovo riješili?

[ Pregleda: 3293 | Odgovora: 4 ] > FB > Twit

Postavi temu Odgovori

Autor
Pretraga teme: Traži
Markiranje Štampanje RSS

spaceman
teo dragović
Rijeka

Član broj: 14904
Poruke: 5
*.cmu.carnet.hr



Profil

icon kako bi ovo riješili?02.04.2004. u 23:09 - pre 244 meseci
trebam u pascalu napisati program koji bi za ucitanu rijec iz vec postojece datoteke trazio one rijeci koje se rimuju s ucitanom (znaci da su najmanje dva zadnja slova obe rijeci ista). nisam siguran dali se ovo ikako moze rijesiti rabeci string jer mi je nezgodno za ostatak zadatka upisivati char. svaki savjet ili kod je dobrodosao.
hvala unaprijed na pomoci.
 
Odgovor na temu

Goranjak
Beograd

Član broj: 18185
Poruke: 19
*.etf.bg.ac.yu



Profil

icon Re: kako bi ovo riješili?03.04.2004. u 10:00 - pre 244 meseci
Probaj sa ovim da uporedjujes rimu dve reci Rec i ProbnaRec koje su tipa String, kao i KrajReci i KrajProbneReci. Za ostatak programa i modifikaciju ovog koda poptrudi se sam, a ako bas zapne tu sam.

...
KrajReci := copy(Rec,length(Rec)-1,2);
KrajProbneReci := copy(ProbnaRec,length(ProbnaRec)-1,2);
if KrajReci = KrajProbneReci then ... {ProbnaRec se rimuje sa Rec}
...

p.s. Ovo radi samo u TurboPascal-u, a ne i u standardnom Pascal-u, ako to uopste ima neke veze.
Ako kaniš pobjedit, nemoj izgubit!
 
Odgovor na temu

spaceman
teo dragović
Rijeka

Član broj: 14904
Poruke: 5
*.cmu.carnet.hr



Profil

icon Re: kako bi ovo riješili?18.04.2004. u 16:13 - pre 243 meseci
ovo gore mi je puno pomoglo, hvala jos jednom.
u tpw mi radi sve sasvim fino, ali sad imam jedan drugi problemćić
naime, kako je lista ispisanih rijeci poduža i ne stane cjela u jedan prozor trebao bih omoguciti scrollanje (a ne znam dali je to uopce moguce u pascalu).ako netko zna kako to podesiti ili ima neki drugi nacin nek mi napise.hvala.
 
Odgovor na temu

rilax
Sergio Reluck
/root/Serbia/Kurshumliya

Član broj: 22393
Poruke: 32
*.vdial.verat.net



Profil

icon Re: kako bi ovo riješili?18.04.2004. u 17:44 - pre 243 meseci
koristi TView - imas kom[ponentu za prozor

Inace u DOSu sa writeln ne mozes da postignes skrolovanje.

Jedini nacin je

var i: integer;
i:=0;

pa svaki put kada pozoves writeln stavis
inc(i);
if i=23 then begin readln(); i:=0; end;
10 BEGIN
20 HOME_SWEET_HOME
30 GOTO 20
 
Odgovor na temu

spaceman
teo dragović
Rijeka

Član broj: 14904
Poruke: 5
*.cmu.carnet.hr



Profil

icon Re: kako bi ovo riješili?19.04.2004. u 22:17 - pre 243 meseci
program moram rijesiti u TPW-u, tak da nema DOS-a

upiso sam ovo gore u proceduru za ispis i sad mi izgleda ovako:
procedure ispis;
var a:string;
begin
reset (r);
repeat
read (r,a); writeln (a);
inc(i);
if i=23 then begin
readln;i:=0;
end;
until eof (r);
end;

s tim da je r file of string, i sad mi samo ispisuje prvih 23 upisanih rijeci, ostale nista
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: kako bi ovo riješili?

[ Pregleda: 3293 | Odgovora: 4 ] > FB > Twit

Postavi temu Odgovori

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