You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
program l2p39;<br />
var<br />
OP1, OP2, OP3, CAL: integer;<br />
begin<br />
CAL := 0;<br />
writeLn('Refeicao');<br />
writeLn('Prato: 1) Vegetariano, 2) Peixe, 3) Frango, 4) Carne');<br />
write('Qual a sua opcao: ');<br />
readLn(OP1);<br />
if ( OP1 = 1 ) then<br />
CAL := CAL + 180<br />
else if ( OP1 = 2 ) then<br />
CAL := CAL + 230<br />
else if ( OP1 = 3 ) then<br />
CAL := CAL + 250<br />
else if ( OP1 = 4 ) then<br />
CAL := CAL + 350<br />
else<br />
writeLn('Opcao invalida!');<br />
writeLn('Sobremesa: 1) Abacaxi, 2) Sorvete diet, 3) Mouif diet, 4) Mouif chocolate');<br />
write('Qual a sua opcao: ');<br />
readLn(OP2);<br />
if ( OP2 = 1 ) then<br />
CAL := CAL + 75<br />
else if ( OP2 = 2 ) then<br />
CAL := CAL + 110<br />
else if ( OP2 = 3 ) then<br />
CAL := CAL + 170<br />
else if ( OP2 = 4 ) then<br />
CAL := CAL + 200<br />
else<br />
writeLn('Opcao invalida!');<br />
writeLn('Bebida: 1) Cha, 2) Suco de laranja, 3) Suco de melão, 4) Refrigerante diet');<br />
write('Qual a sua opcao: ');<br />
readLn(OP3);<br />
if ( OP3 = 1 ) then<br />
CAL := CAL + 20<br />
else if ( OP3 = 2 ) then<br />
CAL := CAL + 70<br />
else if ( OP3 = 3 ) then<br />
CAL := CAL + 100<br />
else if ( OP3 = 4 ) then<br />
CAL := CAL + 65<br />
else<br />
writeLn('Opcao invalida!');<br />
writeLn('O total de calorias eh: ',CAL);<br />
end.<br />
<strong>UFMG</strong> – ICEx – <strong>DCC</strong> – Programação de Computadores – 2º. Sem 2005 – David Menoti 52