Zdravim, mam tu jednu ulohu, s kterou uz si nevim rady. Rozpracoval jsem to, ale jsem docela amatér a vubec nevim jak dál.
Zatim jsem dospěl k tomuhle: viz nize. Prosim o pomoc pri reseni...diky.
program max_delka_slova;
uses crt;
var
F,G:text;
A,B:string;
Citac,Max:integer;
X:char;
slovo,last:string;
begin
ClrScr;
A:='vstup.txt';
B:='vystup.txt';
assign(F,A);
reset(F);
while not eof(F) do
begin
read(F,X);
if X<>' ' then
begin
Citac:=Citac+1;
slovo:=slovo+X;
end
else
begin
if Citac >= Max then
begin
assign(G,B);
rewrite(G);
writeln(G,slovo);
close(G);
last:=slovo;
Max:=citac;
Citac:=0;
end
else
Citac:=0;
slovo:='';
end;
end;
end.
Fórum › Pascal
Vypsani nejdelsich slov do textoveho souboru
Zapoměl jsem napsat zadání, takže tady:
Slovem v textu rozumíme souvislý úsek nemezerových znaků, který je z obou stran oddělen mezerami nebo konci řádku. Mezi dvěma slovy na řádku může být i více mezer. Na začátku a na konci řádku být mezery mohou, ale nemusí. Žádné slovo se nedělí na více řádků. Napište program, který v daném textovém souboru najde všechna slova maximální délky a zapíše je do výstupního souboru.
Zjistit počet nových příspěvků
Přidej příspěvek
Toto téma je starší jak čtvrt roku – přidej svůj příspěvek jen tehdy, máš-li k tématu opravdu co říct!
Ano, opravdu chci reagovat → zobrazí formulář pro přidání příspěvku
×Vložení zdrojáku
×Vložení obrázku
×Vložení videa
Aktuálně jsou podporována videa ze serverů YouTube, Vimeo a Dailymotion.
×
Uživatelé prohlížející si toto vlákno
Uživatelé on-line: 0 registrovaných, 2 hosté
Podobná vlákna
Výpis nejdelších slov z pole — založil pazdy
Vypsání počtu určitých slov v textu — založil Nikishek
Mapa z textového souboru? — založil hráč
Načtení textového souboru — založil Mr.M
Procházení textového souboru — založil dragon124
Moderátoři diskuze