|
|
|
| Autor |
Správa |
Mijuz
Light Expert
Stav: 
Založený: 21.08.2005
Príspevky: 46
Karma:   
|
 Zaslal: 14 Apr 2008, 23:28 Predmet: Pomoc Pascal! :( |
  |
|
potrebujem poradit... musim spravit program, ktory vypise do nejakeho suboru vsetky slova zacinajuce na p... sam zo seba... z tych somarin naprogramovanych... nemam ani sajn jak nato...  |
|
| Návrat hore |
|
 |
audiotrack
Moderátor
Pohlavie: 
Stav:
Založený: 09.09.2005
Príspevky: 6947
Bydlisko: Prievidza
Karma: 
|
| Zaslal: 14 Apr 2008, 23:31 Predmet: |
|
|
| z kombinatorického hladiska je všetkých slov začínajúcich na písmeno p nekonečne vela. Ak ohraničíš ich dlžku, tak to bude reálnejšie, ale stále ich môže byť velmi vela. Ak to majú byť slová ktoré majú nejaký význam, budeš potrebovať nejaký wordlist a z neho vyfiltrovať len tie začínajúce na p. Takže bližšie špecifikuj čo vlastne chceš |
|
| Návrat hore |
|
|
Mijuz
Light Expert
Stav:
Založený: 21.08.2005
Príspevky: 46
Karma:
|
| Zaslal: 14 Apr 2008, 23:43 Predmet: |
|
|
| audiotrack napísal: |
| z kombinatorického hladiska je všetkých slov začínajúcich na písmeno p nekonečne vela. Ak ohraničíš ich dlžku, tak to bude reálnejšie, ale stále ich môže byť velmi vela. Ak to majú byť slová ktoré majú nejaký význam, budeš potrebovať nejaký wordlist a z neho vyfiltrovať len tie začínajúce na p. Takže bližšie špecifikuj čo vlastne chceš |
noo všetky slova z toho programu... ak to nazvem napr: program.pas, tak z toho... z toho zdrojoveho kodu ci co to je... |
|
| Návrat hore |
|
|
audiotrack
Moderátor
Pohlavie:
Stav:
Založený: 09.09.2005
Príspevky: 6947
Bydlisko: Prievidza
Karma:
|
| Zaslal: 14 Apr 2008, 23:50 Predmet: |
|
|
| *.pas je obyčajný textový súbor, klasicky ho otvoríš na čítanie, prejdeš každým slovom (na základe medzier vieš rozlíšiť koniec slova) a ak je prvý znak slova p (string je iba pole znakov) tak ho vypíšem. Záležitosť na pár minút. Teraz sa mi nechce, zajtra ak s tým nepohneš (alebo niekto iný) tak ti pomôžem |
|
| Návrat hore |
|
|
Mijuz
Light Expert
Stav:
Založený: 21.08.2005
Príspevky: 46
Karma:
|
| Zaslal: 15 Apr 2008, 0:01 Predmet: |
|
|
| Kód: |
program ppp;
uses Crt;
var file1,file2:Text;
symbol:char;
i:integer;
BEGIN
clrscr; {vycistenie obrazovky}
Assign(file1,'ble.pas'); {priradenie premennej file1 subor input.txt}
Assign(file2,'output.txt'); {priradenie premennej file2 subor output.txt}
Reset(file1); {citanie sa nastavi uplne na zaciatok}
Rewrite(file2); {vymaze sa obsah output.txt a zapisu sa tam nove hodnoty}
i:=0;
write('P-cka v texte: ');
while not EOF(file1) do {cyklus, kde sa citaju pismena, az kym nie je koniec suboru}
begin
read(file1,symbol);
if symbol='p' then begin write(file2,'p'); write('p'); i:=i+1; end; {}
end;
writeln(file2);
writeln(file2,'Pocet p-cok: ',i);
writeln;
writeln('Pocet p-cok: ',i); {vypisanie na obrazovku, kolko je tam p-cok}
Close(file1); {zatvorenie input.txt}
Close(file2); {zatvorenie output.txt}
readkey; {program pocka na stlacenie klavesy}
END. |
zohnal som si toto... toto mi vypise setky p-cka a spocita ich to... jak to mam zmenit aby mi to vypisalo slova? poradte mi niekto... |
|
| Návrat hore |
|
|
audiotrack
Moderátor
Pohlavie:
Stav:
Založený: 09.09.2005
Príspevky: 6947
Bydlisko: Prievidza
Karma:
|
| Zaslal: 15 Apr 2008, 0:19 Predmet: |
|
|
| Kód: |
program pecka;
var riadok,slovo:string;
vstup:textfile;
begin
Assign(vstup,'pecka.pas');
reset(vstup);
pocet:=0;
while not(eof(vstup)) do begin
readln(vstup,riadok);
while length(riadok)>0 do begin
if (pos(' ',riadok)>0) then begin
slovo:=copy(riadok,0,pos(' ',riadok));
if lowercase(slovo[1])='p' then writeln(slovo);
riadok:=copy(riadok,pos(' ',riadok)+1,length(riadok)-pos(' ',riadok)+1);
end else riadok:='';
end;
end;
readln;
end. |
|
|
| Návrat hore |
|
|
Mijuz
Light Expert
Stav:
Založený: 21.08.2005
Príspevky: 46
Karma:
|
| Zaslal: 15 Apr 2008, 0:42 Predmet: |
|
|
| audiotrack napísal: |
| Kód: |
program pecka;
var riadok,slovo:string;
vstup:textfile;
begin
Assign(vstup,'pecka.pas');
reset(vstup);
pocet:=0;
while not(eof(vstup)) do begin
readln(vstup,riadok);
while length(riadok)>0 do begin
if (pos(' ',riadok)>0) then begin
slovo:=copy(riadok,0,pos(' ',riadok));
if lowercase(slovo[1])='p' then writeln(slovo);
riadok:=copy(riadok,pos(' ',riadok)+1,length(riadok)-pos(' ',riadok)+1);
end else riadok:='';
end;
end;
readln;
end. |
|
dik strasne moc za pomoc, ale aj tak mi to nejde... toto tvoje mi pise unknown identifier... |
|
| Návrat hore |
|
|
morfeusko
Medium Expert
Pohlavie:
Stav:
Založený: 19.03.2008
Príspevky: 126
Bydlisko: Nitra
Karma:
|
| Zaslal: 15 Apr 2008, 0:47 Predmet: |
|
|
| vymaz odtial to pocet:=0...lebo je to tam navyse |
|
| Návrat hore |
|
|
audiotrack
Moderátor
Pohlavie:
Stav:
Založený: 09.09.2005
Príspevky: 6947
Bydlisko: Prievidza
Karma:
|
| Zaslal: 15 Apr 2008, 0:50 Predmet: |
|
|
| morfeusko napísal: |
| vymaz odtial to pocet:=0...lebo je to tam navyse |
a textfile zmeniť na text, a lowercase tiež robil problém. Ja som to robil v delphi, tam to ide.. nahodil som do pascalu a neviem čo sa mu nepáči
| Kód: |
program pecka;
var riadok,slovo:string;
vstup:text;
begin
Assign(vstup,'pecka.pas');
reset(vstup);
while not(eof(vstup)) do begin
readln(vstup,riadok);
while length(riadok)>0 do begin
if (pos(' ',riadok)>0) then begin
slovo:=copy(riadok,0,pos(' ',riadok));
if (slovo[1]='p') or (slovo[1]='P') then writeln(slovo);
riadok:=copy(riadok,pos(' ',riadok)+1,length(riadok)-pos(' ',riadok)+1);
end else riadok:='';
end;
end;
readln;
end. |
|
|
| Návrat hore |
|
|
Mijuz
Light Expert
Stav:
Založený: 21.08.2005
Príspevky: 46
Karma:
|
| Zaslal: 15 Apr 2008, 7:34 Predmet: |
|
|
| audiotrack napísal: |
a textfile zmeniť na text, a lowercase tiež robil problém. Ja som to robil v delphi, tam to ide.. nahodil som do pascalu a neviem čo sa mu nepáči
| Kód: |
program pecka;
var riadok,slovo:string;
vstup:text;
begin
Assign(vstup,'pecka.pas');
reset(vstup);
while not(eof(vstup)) do begin
readln(vstup,riadok);
while length(riadok)>0 do begin
if (pos(' ',riadok)>0) then begin
slovo:=copy(riadok,0,pos(' ',riadok));
if (slovo[1]='p') or (slovo[1]='P') then writeln(slovo);
riadok:=copy(riadok,pos(' ',riadok)+1,length(riadok)-pos(' ',riadok)+1);
end else riadok:='';
end;
end;
readln;
end. |
|
dik moc, toto funguje, lenze to mi ich len vypise, ja by som potreboval aby ich to zapisalo do nejakeho suboru... ale dik moc! na toto by som v zivote sam neprisiel...  |
|
| Návrat hore |
|
|
morfeusko
Medium Expert
Pohlavie:
Stav:
Založený: 19.03.2008
Príspevky: 126
Bydlisko: Nitra
Karma:
|
| Zaslal: 15 Apr 2008, 9:57 Predmet: |
|
|
| audiotrack napísal: |
a textfile zmeniť na text, a lowercase tiež robil problém. Ja som to robil v delphi, tam to ide.. nahodil som do pascalu a neviem čo sa mu nepáči
|
pascal nepozna prikazy lowercase apod. musis pouzivat len zakladne... |
|
| Návrat hore |
|
|
morfeusko
Medium Expert
Pohlavie:
Stav:
Založený: 19.03.2008
Príspevky: 126
Bydlisko: Nitra
Karma:
|
| Zaslal: 15 Apr 2008, 10:30 Predmet: |
|
|
| Kód: |
program pecka;
var riadok,slovo:string;
vstup,vystup:text;
begin
Assign(vstup,'pecka.txt');
Assign(vystup,'slova.txt');
reset(vstup);
rewrite(vystup);
while not(eof(vstup)) do begin
readln(vstup,riadok);
while length(riadok)>0 do begin
if (pos(' ',riadok)>0) then begin
slovo:=copy(riadok,0,pos(' ',riadok));
if (slovo[1]='p') or (slovo[1]='P') then writeln(vystup,slovo);
riadok:=copy(riadok,pos(' ',riadok)+1,length(riadok)-pos(' ',riadok)+1);
end else riadok:='';
end;
end;
close(vstup);
close(vystup);
readln;
end. |
len som si dal vstup ako .txt to mas v podstate jedno |
|
| Návrat hore |
|
|
|
|  |
|
|
Nemôžete odosielať nové témy do tohto fóra
Nemôžete odpovedať na témy v tomto fóre
Nemôžete upravovať svoje príspevky v tomto fóre
Nemôžete mazať svoje príspevky v tomto fóre
Nemôžete hlasovať v tomto fóre
Nemôžete pripájať súbory do tohto fóra
Môžete sťahovať súbory v tomto fóre
|
Powered by phpBB © 2005 phpBB Group, phpBB SEO, © Hojko 2004-2008
[ Vygenerované za: 0.2s ] :: [ 16 Queries ] :: [ 31,429 stránok za dnes ] :: [ Dnes DB: 526,512 ] :: [ Max DB: 2,334,336 Queries ]
|
