Matematické Fórum

Dobry den,
mam tu takovy problem, prikladam vynatek zdrojaku, tam kde je par tecek, je cast, se kterou neni problem.



var cislo:char; dobre:boolean;
cethlasproc:array['a'..'z'] of real;
cetdvojproc:array['a'..'z','a'..'z'] of real;



procedure nacteni(var cethlasproc:array of real; var cetdvojproc:array of real);
var cetnost_hlasek:array['a'..'z']of int64;
cetnost_dvojic:array['a'..'z','a'..'z'] of int64;
t:text;g,hel:char;
angl,dvojic:int64;

begin
........................................
for hel:='a' to 'z' do
        begin
        cethlasproc[hel]:=(cetnost_hlasek[hel]/angl);
        for g:='a' to 'z' do
                begin
                cetdvojproc[hel,g]:=(cetnost_dvojic[hel,g]/dvojic);
                end;
        end;
end;

................................

begin
.....................
nacteni(cethlasproc,cetdvojproc);
end.


Problem spociva v tom, ze dostanu hlasku u prirazovani cethlasproc[hel] i u toho cetdvojproc[hel,g]
incompatible types got char, expected longint.
Jenze ja potrebuji ty dve pole mit charem od a do z a ne cisly.
dekuji za rady.
myrek