Anonymní profil honza – Programujte.com

Ahoj. Když deklaruju promennou A jako realne cislo a pak ji zavolam prikazem CASE trunc(A) of tak mi to pri kompilaci hazi hlasku constant and CASE types do not match. Zkusil jsem A deklarovat jako integer a pak do CASE A of tak to slo. Jenom nechapu proc to nejde i s tim trunc, kterej by mel z cisla udelat longint coz CASE chce neco ordinalniho ne? tady je zdrojak. Dekuju za odpoved.

program untitled1;
var
   s:byte;
   d:real;
begin
     writeln('Zadej ujete km v taxi.');
     readln(d);

     if d<0 then begin
      writeln('Spatne zadani');
      exit;
     end;

    case trunc(d) of
      0..19:s:=25;
      20..39:s:=23;
      40..59:s:=20;
     else s:=17;
    end;

     writeln('Za ',d,' km zaplatis: ',d*s:0:2,' Kc');
     readln
end.