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

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

 

Příspěvky odeslané z IP adresy 89.177.199.–

Woody
Pascal › Frekvenční tabulka znaků
28. 8. 2014   #193392

program Pocet;

uses crt;

var s: text;
zn: char;
A: array [' '..'z'] of integer;

begin
clrscr;
assign(s,'pokus.txt');
reset(s);
read (s,zn);

while not eof(s) do;
begin;
A[zn]:= A[zn]+1;
end;
writeln(zn,' ',A[zn]);
close(s);
end.

tak jsem to dostal do tohohle stavu kdy to jde skompilovat ale prakticky okamzite se to vypne coz je asi dane tim ze tam je ten zmineny nekonecny cyklus, napadlo me jeste zkusit pouzit repeat until ale priznam se ze nevim presne kam s nim.

Woody
Pascal › Frekvenční tabulka znaků
28. 8. 2014   #193379

Jde o to že program má použít pole pro výpis znaků,  tj místo číselného indexu použít jako index znak abecedy a výsledek by měl vypadat cca tak že:

"V souboru se nacházejí tyto znaky:

A 2

B 10

C 3

atd s tím že čísloza písmenem značí kolikrát se daný znak v souboru nachází, skompilovat mi to nejde, s tím že hlásí chybu v deklaraci pole.

 

 

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