A Maple egy fejlett matematikai problémamegoldó és programozói szoftver.
-
Kele85 #562 Köszi a segítséget, viszont egy apró hibát észrevettem a programodban. A párosra kerekítés esetén nekem mindig felfelé kell kerekítenem, és a te esetedben ez nem teljesült. Ráadásul ha már 24.6-ot adok meg 24.5 helyett, akkor 25-öt ad eredményül, ami nekem nem jó.
A párosra történő kerekítést szerintem kétféleképpen lehet megoldani. Vagy az utolsó, 5-re, vagy 0-ra történő kerekítést használom fel, csak 2-re:
Kerekfel50 := proc (x, y)
ceil(x/y)*y end proc;
Kerekfel50(23.5, 2);
Kerekfel50(24.5, 2);
vagy a következő program segítségével:
> kerekparos := proc (x)
if is(ceil(x), even) then return ceil(x)
else ceil(x+1)
end if
end proc;
> kerekparos(23.8);
> kerekparos(24.5);
Gyakorlatilag a te progidat javítottam kicsit. A segítséged nélkül biztos, hogy nem tudtam volna megcsinálni. Még egyszer köszi a segítséget :)