Livro

5.5.6 - Exercicíos:

 

            1. Escrever um programa para ler uma string e imprimir o numero de caracteres ´a´ encontrados nela.

 

            2. Escrever um programa para ler duas strings e imprimir o numero de letras que existem nas duas strings.

 

            3. Faça um programa que leia numeros em ponto flutuante e imprima o seno do numero. Acaba quando o programa ler zero.

 

            4. Digite o programa abaixo

 

                        Program sai

                              var

                                    n , m  : integer;

                                    r         : real;

                               begin

                                     r := 1.23456789;

                                     n := 12;

                                     m := 0;

                                     writeln(m:2,’  ‘,r:n:m);

                                     m := 1;

                                     writeln(m:2,’  ‘,r:n:m);

                                     m := 2;

                                     writeln(m:2,’  ‘,r:n:m);

                                     m := 3;

                                     writeln(m:2,’  ‘,r:n:m);

                                     m := 4;

                                     writeln(m:2,’  ‘,r:n:m);

                                     m := 5;

                                     writeln(m:2,’  ‘,r:n:m);

                                     m := 6;

                                     writeln(m:2,’  ‘,r:n:m);

                                     m := 7;

                                     writeln(m:2,’  ‘,r:n:m);

                                     m := 8;

                                     writeln(m:2,’  ‘,r:n:m);

                                     m := 9;

                                     writeln(m:2,’  ‘,r:n:m);

                                     m := 10;

                                     writeln(m:2,’  ‘,r:n:m);

                                     m := 11;

                              end.

 

            5.  Em Pascal pode se ter erros de “Overflow” ou Underflow”, o programa abaixo ilustra este tipo de erro.

 

                        Program overflow;

                        var

                             res : integer;

                        Begin

                             res := 32767 + 1;

                             writeln(res);

                        end.

 

            6. Escreva um programa em Pascal para resolver a equação do 2 grau, obtendo os valores de x1 e x2, não esqueça que não se pode calcular raiz de numeros negativos. A função que calcular a raiz quadrada é sqrt().

 

            7. Digite o programa abaixo:

 

                        Program quadrado;

                        var

                             a : real;

                        begin

                                writeln(‘Programa do quadrado e da raiz          quadrada.’);

                                writeln();

                                write(‘Entre com o valor - ‘);

                                readln(a);

                                writeln;

                                writeln(‘Entrada                =  ‘,a:10:3);

                                writeln(‘Quadrado               = ‘,sqr(a):10:3);

                                writeln(‘Raiz quadrada          = ‘, sqrt(a):10:3);

                                writeln;

                                writeln(‘ - calculado - ‘);

                        end.

 

            8.  Escreva um programa em Pascal para calcular a média quilômetros/litros de um automóvel.

            Leia a quantidade de quilômetros rodados e com a quantidade de gasolina gasta em litros.

 

                  média = Km / litros