12 pascal deciso seleo case program

Info iconThis preview shows page 1. Sign up to view the full content.

View Full Document Right Arrow Icon
This is the end of the preview. Sign up to access the rest of the document.

Unformatted text preview: e seja verificada, o <comando> correspondente ao Caso ELSE (optativo) será executado. ELSE 11 PASCAL – Decisão Seleção CASE program case2; uses crt; var op: char; begin clrscr; clrscr; readln(op); readln(op); case op of case 'F‘ : writeln(´Feminino´); 'F‘ 'M': writeln(´Masculino´); 'M': else else writeln ('opção inválida'); writeln end; {case} end; readkey; readkey; end. 12 PASCAL – Decisão Seleção CASE Program EXEMPLO_DE_DECISAO_MÚLTIPLA; {Simulador de uma calculadora básica de números inteiros} ... case OP of case '+' : writeln (X + Y); '+' '-' : writeln (X - Y); '-' '*', 'x', 'X' : writeln (X * Y); '*', '/' : writeln (X div Y); '/' else else writeln('o...
View Full Document

This document was uploaded on 02/04/2014.

Ask a homework question - tutors are online