function [laenge,portionen]=spaghettifunktion_mit_Abfragen(masse,dichte)
%function [laenge,portionen]=spaghettifunktion(masse,dichte)
%berechnet die Laenge einer Portion Spaghetti, wenn diese 
%hintereinandergelegt weden (laenge) und die Anzahl Portionen, die man 
%kaufen muss, um eine Spaghettischlange von Mensa zu Mensa zu legen.
%Eingaben: masse (Gesamtgewicht der Spaghetti in g)
%          dichte (Spezifisches Gewicht der gekochten Spaghetti in g/cm^3)
%(Aufgabe B5) 

if (masse<0)
    warning('Achtung! Negative Masse!')
elseif (masse>10000)
    warning('Achtung! Soviele Spaghetti passen auf keinen Teller!')
end

if (dichte<0)
    warning('Achtung! Negative Dichte!)
elseif (dichte>10)
    warning('Achtung! Diese Spaghetti sind ganz schoen dicht!)
end

weglaenge=1.2*1000;  %weglaenge in m
durchmesser=2;       %Durchmesser gekochter Spaghetti in mm
radius=0.1*durchmesser/2;  %Radius gekochter Spaghetti in cm

volumen=masse/dichte;          %Berechnung des Gesamtvolumens in cm^3,
                               %Nach Formel dichte=masse/volumen

laenge=volumen/(pi*radius^2); %Berechnung der Gesamtlaenge einer Portion 
                             %Spaghetti in cm nach Formel
                               %fuer das Volumen eines Zylinders
                               %volumen=laenge*pi*radius^2
                               
laenge=laenge/100;              %Umrechnung der Laenge in m 

portionen=weglaenge/laenge;     %Exakte Berechnung der Anzahl benoetigter
                                %Spaghettiportionen
portionen=ceil(portionen);      %Rundung auf die naechstgroessere ganze Zahl                                
                              