Kopie textoveho souboru s omezenym poctem znaku na radku – Pascal – Fórum – Programujte.com

Dobrý den zadáním je: Ve vstupním textovém souboru je uložen text s řádky dlouhými až 100 znaků. Mezi každými dvěma slovy na řádku je jedna nebo více mezer, na začátku i na konci řádku být mezery mohou, ale nemusí. V souboru mohou být i prázdné řádky nebo řádky obsahující pouze mezery. Napište program, který vytvoří kopii tohoto souboru tak, aby řádky výstupního souboru byly dlouhé nejvýše N znaků (N je údaj zadaný na vstupu, menší než 100). Slova přitom nerozdělujte – pokud se na výsledný N-znakový řádek nevejde celé slovo, nechte řádek kratší a další slovo již přesuňte na začátek následujícího řádku. Na každý řádek výstupního souboru umístěte co nejvíce slov, kolik se do stanoveného limitu N znaků vejde, odstraňte při tom nadbytečné mezery na začátku řádku i mezi slovy (mezi každými dvěma slovy nechte vždy jenom jednu mezeru). Upravený text zapište do výstupního textového souboru.

Opět takový můj marný pokus něco vytvořit:  

program kopie;

var vstup,vystup:text;
    N,pocitadlo:integer;
    znak:char;


begin

assign (vstup,'vstup.txt');
reset (vstup);
assign (vystup,'vystup.txt');
rewrite (vystup);

writeln('Zadej maximalni pocet znaku na radku: ');
readln(N);

pocitadlo:=0;

while not eof(vstup) do
begin

read(vstup,znak);
inc(pocitadlo);
if pocitadlo <= N then write(vystup,znak)
else write(vystup,#13);

end;

close(vstup);
close(vystup);


end.
  

Při takovém to zápisu, mi to vyvolává RunTimeError(103) na příkazu  

writeln('Zadej maximalni pocet znaku na radku: ');

A dál si myslim že tam bude spousta dalších blbostí.. Děkuji za rady.

Takto se mi ale zkopiruje pouze prvnich N(kdyz N zadam natvrdo jako konstantu, protoze stale nevim jak vyresit to ze ji ma uzivatel zadat na vstupu) znaku a dal program nepokracuje.

V uvedeném řádku asi chyba nebude. Spíš si myslím, že je problém s otevíráním souborů, které mu předchází. Vůbec si neověřuješ otevření souboru - to může skončit neúspěchem.

hu

Jenže když to zadám právě bez tohoto  

writeln('Zadej maximalni pocet znaku na radku: ');
readln(N);

a místo toho zadám do zdrojáku to N natvrdo

N:=10;

Tak se program normálně provede. Takze otevreni asi uspesne je, nebo ne?

btw. vytvoril jsem novy soubor a zdrojak jenom zkopiroval a najednou to funguje, tak nevim co bylo predtim za problem. 

K programu, kdyz to udelam tak jak je napsano ve zdrojaku, tak se mi to provede pouze do skonceni toho pocitadla, dal uz to nepokracuje, mam pouzit nejaky jiny cyklus? 

http://www.freepascal.org/docs-html/rtl/system/rewrite.html

http://www.freepascal.org/docs-html/rtl/system/reset.html

tohle jsem myslel. V tom writeln a readln chyba není, díval jsem se na příklady, jak se používají

hu

Jo, uz chapu. A s tim zbytkem bys mi dokazal nejak poradit?

#7 kejta
Zkus v případě, že počet znaků dosáhl požadované hodnoty nevypisovat #13, ale použij writeln, kterým vypíšeš ten poslední N-tý znak na předchozím řádku a ukončíš regulerně řádek (mělo by tam být #13#10 ale o to se postará writeln). A nezapomeň taky v této větvi vynulovat počítadlo! Pak ti to aspoň rozdělí na ty N-znakové řádky. S těmi dalšími problémy (mezery, dělení na hranici slov) budeš mít podle dosud předvedených schopností zřejmě velké potíže...

while not eof(vstup) do
begin
read(vstup,znak);
inc(pocitadlo);
if (pocitadlo <= N) then write(vystup,znak)
else writeln;

end;    

..a jak do toho zakomponovat to vynulovani pocitadla?

else if (pocitadlo >= N) then begin writeln; pocitadlo:=0; end;

#9 kejta
Není třeba další podmínka, piš to rovnou...

Zapomněl jsi, že vypisuješ do výstupního souboru a zapomněl jsi vypsat ten poslední znak - vizk příklad.

while not eof(vstup) do
begin
read(vstup,znak);
inc(pocitadlo);
if (pocitadlo <= N) then write(vystup,znak)
else begin writeln(vystup,znak); pocitadlo:=0; end;

end;   

Dobře, díky. To odstranění těch mezer bych měl provádět asi ještě před těmito příkazy, že? 

Ale vubec nevim ,pomoci jakych prikazu toho docilit.. Mam nacist ty radky, jako string?

Function mezery(s:String):string;
    var P:byte;
    begin
      P:=Pos('  ',s);
      while P > 0 do
    	begin
    	  Delete(s,P,1);
    	  P:=Pos('  ',s);
    	end;
      mezery:=s;
    end;   

Takhle bych je odstranil pomoci toho ze je budu nacitat ze Stringu. Ale nevim jestli tohle udelat, po a nebo uz predtim nez srovnam tu sirku.

while not eof(vstup) do
begin
readln(vstup,radek);
P:=Pos('  ',radek);
while P > 0 do
begin
Delete(radek,P,1);
P:=Pos('  ',radek);
end;
mezery:=radek;
end;

begin
read(vstup,znak);
inc(pocitadlo);
if (pocitadlo <= N) then write(vystup,znak)
else begin writeln(vystup,znak);pocitadlo:=0; end;

end;   

potrebuji ale najit zpusob, jak to ulozit opet do toho vstupniho a nebo vystupniho.. 

#13 kejta
Hlavně si musíš znovu přečíst zadání a jestli z něj něčemu nerozumíš, konzultovat to se zadavatelem.

Protože když se takhle ptáš, evidentně jsi nepochopil, co máš dělat.

Protože jak jsem to zadání pochopil já, nemáš "srovnávat šířku", máš zařídit, aby řádky textu po odstranění přebytečných mezer nebyly delší než zadaná hodnota, přičemž máš přerovnávat celá slova a ne uřezávat uprostřed!

Jak už jsem psal, asi to pro tebe bude těžké sousto...

Myslim si ze zadani chapu dobre, akorat nevim jakym vhodnym postupem ho zpracovat do zdrojaku. Proto se obracim na vas, ze mi pomuzete. 

Asi bych vstupní soubor četl po slovech. Zjistil bych si délku přečteného slova. Očekával bych, že za znaky . (tečka) a , (čárka) je mezera, tyto znaky bych považoval pro tento program za součást slova. Evidoval bych, kolik znaků jsem zapsal do řádku výstupního souboru. Z délky slova (před slovem je mezera pokud to není slovo na začátku řádku) a počtů znaků v řádku výst. souboru bych spočítal délku řádku po přidání slova, pokud nebude větší než max. délka řádku, zapíšu slovo do výstupního souboru a aktualizoval délku řádku ve výst. souboru, jinak ukončit řádek, slovo zapsat na nový řádek a aktualizovat počet znaků v řádku ve výst. souboru (v podstatě je to délka zapsaného slova).

Tento (zjednodušeně popsaný) algoritmus podle mého názoru odpovídá přesně zadání

hu

#16 hlucheucho
To bych docela rád viděl, jak budeš z toho souboru číst "po slovech".

si ten krok rozeber "na atomy". Soubor mohu číst po jednotlivých znacích. Slovo končí mezerou, sekvencí mezer nebo koncem řádku. Dalšímu slovu předchází mezera, sekvence mezer, konec řádku a nebo nepředchází nic. 

Akorát jsem v zadání narazil na jednu drobnost: asi se nemají vypouštět prázdné řádky. Takže je třeba evidovat co je konec plného řádku a co je prázdný nebo "mezerový" řádek.

Ale jak prave definovat pomoci nejakyho prikazu co je slovo, abych to mohl cist jak ty rikas po slovech.

#19 kejta
"definovat pomoci nejakyho prikazu co je slovo" :-O

No nic, já to vzdávám, nechávám tě hluchému uchu...

Dobře, tak se pokus mi to vysvětlit. Zatím tu píšeš, jen jakej jsem blbec, ale žádná konstruktivní rada. Promiň, že se programovat teprve učím.

#21 kejta
Heleď, jestli umíš číst, tak nevím, kam na takový blbostě chodíš...

Co si myslím jsem ti už napsal dvakrát (a o tom jakej jsi nebo nejsi to nebylo ani jednou) a jestli ti třeba  tento nebo tento můj příspěvek nepřišel konstruktivní, tak bylo mé rozhodnutí správné.

Poslední rada - uč se na jednodušších příkladech, tohle je pro začátečníka moc těžký...

Howgh.