Exercício 04 For - Pascal

4) Construa um algoritmo que permita fazer um levantamento do estoque de vinhos de uma adega,
tendo como dados de entrada tipos de vinho (branco, tinto e rose).

program for04;
uses crt;
var 
vinho,i : integer;
branco,tinto,rose:integer;
BEGIN
    for i := 1 to 10 do
        Begin
            Writeln('Branco --- 1');
            Writeln('Tinto  --- 2');
            Writeln('Rose   --- 3');
            Write('Opcao: ');
            readln(vinho);
                if vinho=1 then
                    branco:=branco+1
                    else if vinho=2 then
                        tinto:=tinto+1
                        else if vinho=3 then
                            rose:=rose+1;
        End;
  clrscr;
    Writeln('Branco: ',branco);    
    Writeln('Tinto : ',tinto);    
    Writeln('Rose  : ',rose);        
END.

Categories: Pascal , Programação