%
% Omvandlar valuta; svenska kronor till euro och vice versa
%
% Prograsmmet är skrivet av Carina Edlund den 1/9 2008.
%

disp('Välkommen till valutakompisen!')
disp('Här kan du omvandla svenska kronor till euro och vice versa.')
disp(['Du anger det valutaslag och det belopp du vill omvandla' ...
      ' ifrån. Programmet beräknar belpooet för motsvarande valuta'])

slag = input('Ange valutaslag du vill omvandla ifrån, skr för svenska kronor och eur för euro','s');


while 1
     
    % Omvandlar svenska kronor till euro
    if slag == 'skr'
    end
    if slag < 0
        disp('Du måste ange ett positivt tal')
    end
    if slag >= 0
        disp('det blir i euro:')
        disp(slag*1.23)
    end
    
    % Omvandlar euro till svenska kronor
    if strcmp(slag,'eur')
    end
    if slag < 0
        disp('Du måste ange ett positivt tal')
    end
    if slag >= 0
        disp('det blir i skr:')
        disp(10*0.8)
    end
    
    % Avslutar programmet
    if slag == 'q'
        disp('Nu avslutas programmet, välkommen åter!')
    end
end


