Curso Virtual Pascal Aula 19

Prévia do material em texto

02/06/2016 Curso Virtual Pascal ­ Aula 19
http://www.ufpa.br/sampaio/curso_de_icc/pascal/Aula_19_Pascal.htm 1/8
Aula 19: Exercícios de Algoritmos e Programas c / Decisão 
Objetivos :
       This aula Destina­se à Prática da Teoria das aulas de Programas com decisão
Material de Referência:
Livro "Introdução à Ciência da Computação", Agosto de 1999, Antonio Benedito Coimbra Sampaio;
GOTTFRIED , Byron S. Programação em Pascal ­ 2a Edição Coleção Schaum. Lisboa, Portugal:. McGraw­Hill 1994.
Atividades da Unidade:
1. Presença secretário
2. Seguir Roteiro Abaixo:
Anterior.gif
(632
Exercícios Possíveis Soluções
1. Exercícios
1. o Faça hum Programa that executar Uma Decisão Simples
2. o Faça hum Programa para determinar o Maior numero Entre Dois balneários do teclado
3. o Faça hum Programa para Colocar em Ordem Crescente 3 Números balneários do teclado
4. o Faça hum Programa that executar Uma Decisão Composta
5. Programa VerificAR se o numero lido ESTÁ Entre OS Primeiros 100 numeros
6. o Faça hum Programa para Testar a Tecla pressionada
7. o Faça hum Programa para Testar A Idade de Serviço militar
Caso da Instrução Programas Exemplos.
8. o Faça hum Programa that calculé uma soma, OU uma subtração, OU um Multiplicação, Ou uma divisão Entre
Dois Números balneários do teclado
9. o Faça hum Programa para Cálculo de área de figuras
 
2. Soluções Possíveis
 
Programa de Exercício 1;
var VALOR: real;
início
    write ( 'DIGITE UM VALOR NEGATIVO');
02/06/2016 Curso Virtual Pascal ­ Aula 19
http://www.ufpa.br/sampaio/curso_de_icc/pascal/Aula_19_Pascal.htm 2/8
    readln (VALOR);
    Se VALOR> 0, em seguida,
    início
        writeln ( 'FOI DIGITADO UM VALOR POSITIVO!');
    fim;
fim.
OBS: Observe o END com Ponto e Vírgula Apos o caso.
 
Exemplo_2 programa;
Usa CRT;
Var Numero_1, Numero_2: Integer;
Início
    ClrScr;
    Escrever ( 'numero Primeiro ­­­­>');
    Readln (Numero_1);
    Write ( 'Segundo numero ­­­­­>');
    Readln (Numero_2);
    writeln;
    writeln;
    Se (Numero_1> Numero_2)
    Em seguida, escreva (Numero_1, 'EO Maior')
    Else if (Numero_2> Numero_1)
    Então Writeln (Numero_2, 'EO Maior')
    Else Writeln ( 'São Iguais');
Fim.
 
Exemplo_3 programa;
Usa CRT;
Var x, y, z: Integer;
Início
    ClrScr;
    Escrever ( 'numero Primeiro ­>');
    Readln (x);
    Write ( 'Segundo numero ­­­>');
    Readln (y);
    Escrever ( 'numero Terceiro ­>');
02/06/2016 Curso Virtual Pascal ­ Aula 19
http://www.ufpa.br/sampaio/curso_de_icc/pascal/Aula_19_Pascal.htm 3/8
    Readln (Z);
    writeln;
    writeln;
    If (x> = y)
    Então, Se (x> = Z)
    Então, Se (y> = Z)
    Então Writeln (x, '', Y '', Z)
    Else Writeln (x, '', z '', y)
    Logo Writeln (z, '', x '', y)
    Else if (y> = z)
    Então, Se (x> = Z)
    Então Writeln (y, '', x '', Z)
    Else Writeln (y '', z '', x)
    Logo Writeln (z, '', Y '', x);
Fim.
 
Execício_4 programa;
var VALOR: real;
início
    writeln ( 'DIGITE UM VALOR:');
    READIN (VALOR)
    Se VALOR> lo, em seguida,
    início
        writeln ( 'O VALOR E MAIOR QUE 10');
    fim
    outro
    início
        writeln ( 'o VALOR E MENOR DO QUE lo');
    fim;
fim.
 
Exercício_5 programa;
var VALOR: real;
início
    write ( 'DIGITE UM VALOR POSITIVO MENOR QUE 100:');
    READIN (VALOR)
02/06/2016 Curso Virtual Pascal ­ Aula 19
http://www.ufpa.br/sampaio/curso_de_icc/pascal/Aula_19_Pascal.htm 4/8
    Se (VALOR> 0) e (VALOR <100), em seguida
    início
        writeln ( 'fol DIGITADO CORRETAMENTE') j
    fim
    outro
    início
    writeln ( 'fol DIGITADO Errado');
fim;
fim.
 
 
programa Exercicio_6;
var Tecla: char;
INÍCIO
writeln ( 'PRESSIONE Uma Tecla:');
readln (Tecla);
caso Tecla de
'A' .. 'Z', 'a' .. 'z': writeln ( 'rápido Você pressionou Uma Letra');
'0' .. '9': writeln ( 'rápido Você pressionou hum Numero');
'+', '­', '*', '/': Writeln ( 'rápido Você pressionou hum Sinal aritmético');
outro
writeln ( 'rápido Você pressionou Uma Outra Tecla qualquer');
fim;
FIM.
OBS  .:  O  Comando  CASO  PODE  Ser  substituído  Por  Um  Conjunto  de  IF­THEN­ELSE  aninhados,  não
entanto, sas Casos, Onde há MUITAS condições, o Comando CASE, Torna o Programa Mais legível.
 
programa Exercicio_7;
var Idade: integer;
INÍCIO
writeln ( "Qual a sua Idade? ');
readln (Idade);
caso Idade> = 18 de
TRUE: writeln ( "Voce ja PODE SERVIR Ao Exército ');
FALSO: writeln ( "Voce AINDA NÃO PODE SERVIR Ao Exército ');
fim;
02/06/2016 Curso Virtual Pascal ­ Aula 19
http://www.ufpa.br/sampaio/curso_de_icc/pascal/Aula_19_Pascal.htm 5/8
FIM.
 
Exercicio_8 programa;
Usa CRT;
oper Var: Char;
    x, y: real;
    Início
    ClrScr;
    Escrever ( "Valor de X = ');
    Readln (x);
    Escrever ( "Valor de Y = ');
    Readln (y);
    writeln;
    Escrever ( 'Operação ­>');
    oper: = ReadKey;
    Writeln (oper); Writeln;
    Caso Oper de
        '+': Write ( 'X + Y =': 10, x + y: 6: 2);
        '­': Write ( 'X ­ Y =': 10, xy: 6: 2);
        '*': Write ( 'X * Y =': 10, x * y: 6: 2);
        '/': Write ( 'X / Y =': 10, X / Y: 6: 2);
    Else Writeln (oper, 'NÃO e Operação');
Fim; (* Caso *)
Fim. (* Programa *)
 
Exercicio_9 programa;
Usa CRT;
ESCOLHA Var, continua: Char;
    x, y: real;
Início
Repetir
    ClrScr;
    Escrever ( 'Calculo de área de figuras': 53);
    Gotoxy (25, 5); Escrever ( '1 ­ Sair do programa');
    Gotoxy (25, 7); Escrever ( '2 ­ Triângulo');
    Gotoxy (25, 9); Escrever ( '3 ­ Quadrado');
02/06/2016 Curso Virtual Pascal ­ Aula 19
http://www.ufpa.br/sampaio/curso_de_icc/pascal/Aula_19_Pascal.htm 6/8
    Gotoxy (25,11); Escrever ( '4 ­ retângulo');
    Gotoxy (25,13); Escrever ( '5 ­ Circulo');
    TextBackGround (7);
    TextColor (0 + 16);
    Gotoxy (10,17); write ( 'Sua ESCOLHA ­­­>');
    ESCOLHA: = ReadKey;
    Textbackground (0);
    TextColor (14);
    ESCOLHA caso de
        '2': Comece
            ClrScr;
            Writeln ( 'Calculo da área de Triangulos': 55);
            continua: = 's';
        Enquanto Contínua = 's' Do
            Início
            writeln;
             Escrever ( 'Base =');
             Readln (x);
             Escrever ( 'Altura =');
             Readln (y);
             writeln;
            Writeln ( 'Área =', x * y / 2: 8: 2);
            writeln;
            writeln;
            Escrever ( 'Mais Cálculos (s / n) ­>');
    continua: = ReadKey;
    Writeln; Writeln;
Fim;
Fim;
    '3': Comece
          ClrScr;
          Writeln ( 'Calculo da área de QUADRADOS': 55);
           continua: = 's';
          Enquanto Contínua = 's' Do
          Início
    writeln;
02/06/2016 Curso Virtual Pascal ­ Aula 19
http://www.ufpa.br/sampaio/curso_de_icc/pascal/Aula_19_Pascal.htm 7/8
          Escrever ( 'Lado =');
           Readln (x);
          writeln;
          Writeln ( 'Área =', x * x: 8: 2);
          writeln;
          writeln;
          Escrever ( 'Mais Cálculos (s / n) ­>');
          continua: = ReadKey;
          Writeln; Writeln;
    Fim;
    Fim;
    '4': Comece
            ClrScr;
            Writeln ( 'Calculo da área de retangulos': 55);
            continua: = 's';
            Enquanto Contínua = 's' Do
                Início
                        writeln;
                        Escrever ( 'comprimento =');
            Readln (x);
            Escrever ( 'Largura =');
            Readln (y);
            writeln;Writeln ( 'Área =', x * y: 8: 2);
        writeln;   
        writeln;   
        Escrever ( 'Mais Cálculos (s / n) ­>');
        continua: = ReadKey;
        Writeln; Writeln;
    Fim;    
Fim;
        '5': Comece
                ClrScr;
                Writeln ( 'Calculo da área de circulos': 55);
                continua: = 's';
                Enquanto Contínua = 's' Do
02/06/2016 Curso Virtual Pascal ­ Aula 19
http://www.ufpa.br/sampaio/curso_de_icc/pascal/Aula_19_Pascal.htm 8/8
                        Início
                            writeln;
                            Escrever ( 'raio =');
                            Readln (x);
                            writeln;
                            Writeln ( 'Área =', PI * x * x: 8: 2);
                            writeln;
                            writeln;
                Escrever ( 'Mais Cálculos (s / n) ­>');
                continua: = ReadKey;
                Writeln; Writeln;
   Fim;
   Fim;
   Fim;
Até ESCOLHA = '1';
Fim.
Voltar ao inicio
 
Anterior.gif
(632