Anonymní profil Artis0608 – Programujte.com
 x   TIP: Přetáhni ikonu na hlavní panel pro připnutí webu

Anonymní profil Artis0608 – Programujte.comAnonymní profil Artis0608 – Programujte.com

 

Příspěvky odeslané z IP adresy 2001:718:1001:6a3:eca2:ae...–

Artis0608
Pascal › čtení textu ze souboru
11. 12. 2013   #185092

#2 JoDiK
zatím jsem dokázal sestavit jenom program, který mi vypíše četnost znaku pismen cislic ale dál už nevím.


program Cetnost2;

 uses SysUtils;

var f: text;

c: char;

cislice, pismena, celkem: integer;

begin

assign(f,'c:/text.txt');

reset(f);

cislice:=0; pismena:=0; celkem:=0;

while not eof(f) do

begin 

read(f,c);

if (c>='0') and (c<='9') then cislice:=cislice+1;

if (c>='A') and (c<='z') then pismena:=pismena+1;

celkem:=celkem+1;

write(c);

end;

close(f);

writeln;

writeln('V souboru je ',cislice,' cislic a ',pismena,'pismen');

writeln('Celkem je v souboru ',celkem,' znaku'); readln;

end.

 

 

Hostujeme u Českého hostingu       ISSN 1801-1586       ⇡ Nahoru Webtea.cz logo © 20032021 Programujte.com
Zasadilo a pěstuje Webtea.cz, šéfredaktor Lukáš Churý