Novo

Forum kao aplikacija na telefonu

Dodajte forum na početni ekran i koristite ga kao aplikaciju, sa menijem na dnu ekrana.

  • 4 odgovora
  • 4.241 pregleda

Najnovija ↓

kako bi ovo riješili? 03.04.2004. u 00:09 · pre 274 meseca #1
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.
Re: kako bi ovo riješili? 03.04.2004. u 11:00 · pre 274 meseca #2
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.
Potpis
Ako kaniš pobjedit, nemoj izgubit!
Re: kako bi ovo riješili? 18.04.2004. u 17:13 · pre 274 meseca #3
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.
Re: kako bi ovo riješili? 18.04.2004. u 18:44 · pre 274 meseca #4
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;
Potpis
10 BEGIN
20 HOME_SWEET_HOME
30 GOTO 20
Re: kako bi ovo riješili? 19.04.2004. u 23:17 · pre 274 meseca #5
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
Prijavite se da biste odgovorili u ovoj temi.PrijavaRegistracija

Premeštanje teme