Wie wär's damit:
Delphi-Quellcode:
function BerechneAlkImBier(anzahl:integer):double;
const
PROZENTE = 10.0;
VOLUMEN = 0.2;
begin
result := anzahl * VOLUMEN * PROZENTE/100.0;
end;
Für Wein und Schnaps bekommst du das sicher selbst hin.
PS: ich liebe Alkoholberechnungen
Prost
