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

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

 

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

honza
Pascal › trunc v prikazu case
14. 9. 2015   #204943

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.

 

 

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