Baixe Programas em Pascal e outras Notas de estudo em PDF para Informática, somente na Docsity!
5 - ESTRUTURAS DE CONTROLE
5.1. LAÇOS
Os laços são estruturas de programação em forma fechada, cuja execução geralmente é feita de modo repetitivo. A execução destes trechos de programa pode ser controlada de forma automática com comandos tais como FOR , WHILE e REPEAT (estes laços serão tratados neste texto), ou então com auxílio de instruções de desvio (não serão tratados neste texto).
Os laços formados com estrutura de repetição automática são os mais usados e pertencem a uma de duas categorias:
1 - Laços com número prefixado de iterações - escritos em PASCAL com auxílio do comando FOR e 2 - Laços com número não fixado de iterações - escritos em PASCAL com auxílio dos comandos WHILE ... DO e REPEAT ... UNTIL.
Em ambos os casos, os laços podem depender apenas de valores internos ao programa ou então ser mais abrangentes e depender de valores externos (quando utilizam variáveis cujo valor é obtido do meio exterior com auxílio de um comando de leitura).
5.1.1. LAÇOS COM NUMERO PREFIXADO DE ITERAÇÕES
Os laços com número prefixado de iterações são utilizados quando já se conhece com exatidão, pela natureza do problema a ser resolvido, o número de vezes que um determinado comando (ou grupo de comandos) deve ser executado.
Na linguagem PASCAL estes laços são escritos com a utilização do comando FOR.
Suponhamos, a título de ilustração, que devemos encontrar uma solução para o seguinte problema:
Escrever um programa PASCAL que leia quatro (04) valores inteiros e, para cada um dos valores imprima:
- o valor lido;
- o quadrado do valor;
- o cubo do valor.
Uma possível solução seria:
PROGRAM GRANDE; VAR V1, V2, V3, V4, Q1, Q2, Q3, Q4, CB1, CB2, CB3, CB4: INTEGER; / Cada Vi representa um valor lido / / Cada Qi representa o quadrado do valor Vi / / Cada Cbi representa o cubo do valor Vi / BEGIN / PARA O PRIMEIRO VALOR... / WRITELN('INFORME UM VALOR INTEIRO'); READLN(V1); Q1 := SQR(V1); CB1 := V1 * Q1; WRITELN('VALOR 1=', 'QUADRADO=', Q1, 'CUBO=', CB1); / PARA O SEGUNDO VALOR... / WRITELN('INFORME UM VALOR INTEIRO'); READLN(V2);
PAGE 25
Q2 := SQR(V2);
CB2 := V2 * Q2;
WRITELN('VALOR 2=', V2, 'QUADRADO=', Q2, 'CUBO=',
CB2);
/* PARA O TERCEIRO VALOR ... */
WRITELN('INFORME UM VALOR INTEIRO');
READLN(V3);
Q3 := SQR(V3);
CB3 := V3 * Q3;
WRITELN('VALOR3=', V3, 'QUADRADO=', Q3, 'CUBO=', CB3);
/* FINALMENTE, PARA O QUARTO VALOR... */
WRITELN('INFORME UM VALOR INTEIRO');
READLN(V4);
Q4 := SQR(V4);
CB4 := V4 * Q4;
WRITELN('VALOR 4=', V4, 'QUADRADO=', Q4, 'CUBO=', CB4)
END.
A solução anterior pode e deve ser melhorada de várias maneiras. Primeiro, a leitura dos quatros valores poderia ser feita de uma só vez. Segundo, como após a impressão dos valores referentes a cada número lido, os valores não mais são utilizados, não haveria necessidade de várias variáveis para armazenamento dos quadrados e dos cubos - isto poderia ser feito com apenas duas variáveis (Q e CB, respectivamente). Desta forma, o programa melhorado seria: PROGRAM MELHORADO; VAR V1, V2, V3, V4, Q, CB: INTEGER; / Cada Vi representa um valor lido / / Q representa um quadrado, em cada instante / / CB representa um cubo, em cada instante / BEGIN / PARA O PRIMEIRO VALOR... / WRITELN('INFORME QUATRO VALORES INTEIROS'); READLN(V1, V2, V3, V4); Q := SQR(V1); CB := V1 * Q; WRITELN('VALOR 1=', V1, 'QUADRADO=', Q, 'CUBO=',CB); / PARA O SEGUNDO VALOR... / Q := SQR(V2); CB := V2 * Q; WRITELN('VALOR 2=',V2,'QUADRADO='Q,'CUBO=',CB); / PARA O TERCEIRO VALOR ... / Q := SQR(V3); CB := V3 * Q; WRITELN('VALOR3=', V3, 'QUADRADO=', Q, 'CUBO=', CB); / FINALMENTE, PARA O QUARTO VALOR ... / Q := SQR(V4); CB := V4 * Q; WRITELN('VALOR 4=', V4, 'QUADRADO=', Q, 'CUBO=', CB); END.
PAGE 25
COMO UTILIZAR O COMANDO FOR.
Como já afirmamos anteriormente, o comando FOR destina-se à repetição automática de um (01) comando PASCAL, enquanto que uma série de valores é atribuída à variável de controle, e aplica-se ao comando que o segue. O comando a ser executado pelo comando FOR pode ser qualquer comando simples ou composto. Um comando composto é formado por qualquer grupo de comandos delimitado por um par BEGIN ... END , podendo ser utilizado em qualquer ponto do programa onde possa vir um comando PASCAL.
A forma geral do comando FOR é:
FOR id := VrInic {TO } VrFin DO {DOWNTO} Comando;
Onde:
FOR - é uma palavra reservada em PASCAL - identifica o comando FOR ; id - é um identificador (nome de variável); VrInic - é o valor inicial que será atribuído à variável de controle (não necessariamente será 1), podendo ser de qualquer tipo escalar simples, exceto REAL; TO - é uma palavra reservada, parte integrante do comando FOR; DOWNTO - é uma palavra reservada, parte integrante do comando FOR ; VrFin - é o valor final a ser atribuído à variável de controle; Comando - é o comando a ser repetido. A variável de controle ( id ) deve ser do mesmo tipo (qualquer tipo simples, exceto REAL) que o valor inicial e que o valor final.
A opção TO indica que os valores serão atribuídos em ordem crescente à variável de controle: caso VrFin seja menor que VrInic , o comando FOR não terá nenhum efeito - o comando que o segue não será executado.
A opção DOWNTO indica que os valores serão atribuídos em ordem decrescente à variável de controle: caso VrInic seja menor que VrFin , o comando que segue o FOR não será executado.
É importante lembrar que a variável de controle não pode ter seu valor alterado dentro do domínio do comando FOR pois isso traria resultados imprevisíveis. Por outro lado, o valor da variável de controle não deve ser utilizado após a execução completa do comando FOR pois este valor dependerá do compilador que estiver sendo utilizado e pode ser indefinido em alguns casos.
Em algumas situações será interessante utilizar o valor da variável de controle para indicar o número da iteração que está sendo executada em um dado instante. Por exemplo, o segundo comando de impressão do programa PEQUENO poderia ser reescrito como:
WRITELN('VALOR', K, '=', V, 'QUADRADO=', QR(V), 'CUBO=', V * SQR(V));
Esta modificação faria com que a cada nova execução do comando acima, fosse impresso um novo valor da variável K - este valor corresponde em cada instante ao número da atual iteração visto que a variável de controle teve valor inicial igual a um (01).
OUTRO EXEMPLO
Anteriormente apresentamos um programa para cálculo da média parcial de um aluno da disciplina Introdução à Ciência da Computação. O que seria necessário fazer
PAGE 25
com o programa de modo que ele calculasse a média parcial para cinqüenta (50) alunos? A solução seria introduzir um comando FOR para repetir cinqüenta vezes o trecho de programa que calcula a média para um só aluno. Assim o novo programa seria: PROGRAM MEDIAS; VAR P1, P2, E1, E2, E3, E4, M_PARCIAL: REAL; / P1 e P2 São as provas parciais / / Cada Ei representa a nota da i-ésima lista de exercícios / K: INTEGER; M_PROVAS, M_EXERC: REAL; BEGIN FOR K := 1 TO 50 DO BEGIN WRITELN('INFORME AS NOTAS DAS DUAS PROVAS'); READLN(P1, P2); WRITELN('INFORME AS NOTAS DOS QUATRO EXERCICIOS'); READLN(E1, E2, E3, E4); M_PROVAS := (P1 + P2) / 2.0; M_EXERC := (E1 + E2 + E3 + E4) / 4.0; M_PARCIAL := M_PROVAS * 0.8 + M_EXERC * 0.2; WRITELN('PROVA1=', P1: 5: 1, 'PROVA2=', P2: 5: 1); WRITELN('EXERCICIO1=', E1: 5: 1, 'EXERCICIO2=', E2: 5: 1, 'EXERCICIO3=', E3: 5: 1, 'EXERCICIO4=', E4: 5: 1); WRITELN('MEDIA PARCIAL=', M_PARCIAL: 6: 2) END END.
5.1.2. LAÇOS COM NUMERO NÃO FIXADO DE ITERAÇÕES
Os laços com número não fixado de iterações são utilizados quando não se conhece com exatidão o número de vezes que um determinado comando (simples ou composto) deve ser executado. Nestas situações, em função do tipo de problema a ser resolvido, o número de iterações é dependente de computações internas ao programa. Em PASCAL estes laços são escritos utilizando os comandos WHILE ... DO e REPEAT ... UNTIL.
WHILE ... DO
Como exemplo inicial, consideremos o seguinte problema: Escrever um programa PASCAL que leia valores inteiros seguidamente, até encontrar um valor nulo. Para cada valor lido, exceto o último, o programa deve imprimir: o valor lido, o quadrado do valor e o seu cubo.
Utilizando o comando WHILE na solução, obtemos:
PROGRAM REPETITIVO; VAR VALOR: INTEGER; BEGIN / PARA O PRIMEIRO VALOR ... / WRITELN('INFORME UM VALOR INTEIRO');
PAGE 25
comando UNTIL condição ;
ONDE:
REPEAT - é uma palavra reservada - identifica o comando REPEAT ; comando - é o comando (ou grupo de comandos - os delimitadores BEGIN ... END são opcionais, neste caso) a ser executado; UNTIL - é uma palavra reservada de uso obrigatório; condição - é uma condição lógica que deverá possuir no mínimo uma variável e cujo valor deverá mudar dentro do comando a ser repetido - do contrário, poderá ser obtido um laço infinito. Considere o problema:
Determinar a temperatura média de João Pessoa em um certo período, sabendo- se que a última temperatura a ser informada é de 40 graus.
Como não sabemos com exatidão quantas temperaturas serão informadas, não podemos utilizar o comando FOR. Da mesma forma, como o último dos valores deve ser considerado nos cálculos então o comando WHILE não é uma boa escolha: a opção mais recomendável é utilizar o comando REPEAT. O nosso programa será:
PROGRAM TEMPERATURA; VAR TEMP: REAL; / CADA TEMPERATURA SENDO PROCESSADA / SOMA: REAL; / A SOMA DE TODAS AS TEMPERATURAS / TEMP_MED: REAL; / A TEMPERATURA MÉDIA / N_TEMP: INTEGER; / O NUMERO DE TEMPERATURAS INFORMADAS / BEGIN N_TEMP := 0; / AINDA NÃO FOI INFORMADA NENHUMA TEMPERATURA/ SOMA := 0; /* A SOMA INICIAL DAS TEMPERATURAS / REPEAT WRITELN('INFORME UMA TEMPERATURA'); READLN(TEMP); N_TEMP := N_TEMP + 1; /FOI LIDA UMA NOVA TEMPERATURA / SOMA := SOMA + TEMP; / ACUMULA A TEMPERATURA LIDA / WRITELN('TEMPERATURA LIDA=',TEMP: 5: 1); UNTIL TEMP = 40.0; TEMP_MED := SOMA / N_TEMP; /A TEMPERATURA MÉDIA / WRITELN('TEMPERATURA MEDIA', / SERÁ DETERMINADA / TEMP_MED: 6: 2) / UMA ÚNICA VEZ / END.*
Sugerimos implementar e testar o programa TEMPERATURA no computador. Que modificações seriam recomendáveis caso não se desejasse incluir a última temperatura no cálculo da temperatura média?
5.2. DESVIOS
A implementação de decisões sobre que caminho deve ser seguido em um dado ponto de um programa PASCAL é feita com a utilização de comandos condicionais. Os comandos condicionais permitem escolher entre rotas alternativas de um trecho de
PAGE 25
programa ou então desviar um comando ou bloco de comandos, em função de alguma condição lógica cujo valor é determinado na hora da execução do programa.
5.2.1. DESVIOS CONDICIONAIS
Os desvios condicionais são os mais utilizados em programação. Os desvios condicionais são representados em PASCAL pelo comando IF e pelo comando CASE.
O COMANDO IF
O comando IF pode ser do tipo simples, quando tem a forma geral:
IF condição THEN comando; Onde: IF - é uma palavra reservada que identifica o comando IF ; condição - é uma condição lógica qualquer válida em PASCAL; THEN - é uma palavra reservada em PASCAL - é parte integrante do comando IF ; Comando - é um comando (simples ou composto) que deverá ser executado apenas se a condição for verdadeira;
ou do tipo composto, quando tem a forma geral:
IF condição THEN comando ELSE comando2; Onde: IF - é uma palavra reservada da linguagem PASCAL - identifica o comando IF ; condição - é uma condição lógica qualquer válida em PASCAL; THEN - é uma palavra reservada da linguagem PASCAL - é parte integrante do comando IF composto ; comando1 - é o comando a ser executado caso o valor resultante da avaliação da condição seja TRUE. Pode ser um comando simples ou composto; ELSE - é uma palavra reservada de uso obrigatório - é parte integrante do comando IF composto ; comando2 - é o comando, simples ou composto, a ser executado caso o valor resultante da avaliação da condição seja FALSE.
O programa apresentado a seguir exemplifica a utilização do comando IF :
PROGRAM SIMPLES; / DETERMINAR O MAIOR ENTRE DOIS INTEIROS / VAR A, B: INTEGER; / OS INTEIROS QUE SERÃO LIDOS E COMPARADOS / BEGIN WRITELN('INFORME DOIS VALORES INTEIROS'); READLN(A, B); WRITELN('OS VALORES LIDOS FORAM:', A: 5, 'E ', B: 5); WRITE('O MAIOR DOS DOIS VALORES'); IF A > B THEN WRITE ('EH:', A: 5)
PAGE 25
A seleção do comando a ser executado é feita comparando-se o valor da expressão_seletora com os vários rótulos do CASE.
A forma geral do comando CASE é: CASE expressão_seletora OF lista_de_rótulos_1: comando_1; lista_de_rótulos_2: comando_2; . . . lista_de_rótulos_n: comando_n END;
Onde:
CASE -- é uma palavra reservada em PASCAL - identifica o comando CASE ; expressão_seletora - é uma expressão ou variável de qualquer tipo escalar simples exceto REAL; OF - é uma palavra reservada em PASCAL - é parte integrante do comando CASE ; lista_de_rótulos_i - é uma lista contendo uma ou mais constantes de tipo compatível com o tipo da expressão_seletora , separadas por vírgula; comando_i - é um comando PASCAL qualquer (simples ou composto) que será executado caso o valor calculado para expressão_seletora seja igual a uma das constantes da lista_de_rótulos_i , podendo inclusive ser um comando vazio.
Cada rótulo que aparece em uma lista_de_rótulos deve ser de tipo compatível com o tipo da expressão_seletora e só pode aparecer em uma única lista_de_rótulos para cada comando CASE.
Só será executado algum comando das várias opções especificadas no comando CASE se o valor computado para a expressão_seletora for igual a um dos rótulos especificados. A ação a ser desenvolvida quando o valor da expressão_seletora divergir de todos os rótulos especificados nas listas_de_rótulos do comando CASE dependerá do compilador que estiver sendo utilizado: alguns compiladores dispõem da opção OTHERWISE (ou a forma equivalente ELSE ) para especificar o comando que deve ser executado quando o valor da expressão_seletora for diferente de todos os rótulos especificados nas várias listas_de_rótulos.
O programa apresentado a seguir foi escrito para uma Pousada que desejava conceder descontos progressivos aos seus clientes. Os descontos são de 10, 20, 30 e 35 por cento para os clientes que se hospedarem por 1, 2, 3 e por 4 ou mais dias, respectivamente. A entrada para o programa de computador é formada pelo valor da diária e pelo número de diárias.
Utilizando um ninho de comandos IF poderíamos ter:
PROGRAM POUSO_VELHO; CONST TFAIXA1 = 1; FAIXA2 = 2; FAIXA3 = 3; FAIXA4 = 4 .. 30;
PAGE 25
VAR
VALOR_DA_DIARIA, SUB_TOTAL, SERVIÇOS: REAL;
VALOR_DA_NOTA, DESCONTO, VALOR_A_PAGAR: REAL;
QUANT_DIARIAS: INTEGER;
BEGIN
WRITELN('INFORME O VALOR DA DIARIA E A QUANTIDADE DE
DIARIAS');
READLN(VALOR_DA_DIARIA, QUANT_DIARIAS);
SUB_TOTAL := QUANT_DIARIAS * VALOR_DA_DIARIA;
SERVIÇOS := SUB_TOTAL * 0.1 /* DEZ POR CENTO */
VALOR_DA_NOTA := SUB_TOTAL + SERVIÇOS; /* CALCULO DO
DESCONTO */
IF QUANT_DIARIAS = FAIXA
THEN DESCONTO := 0.1 * VALOR_DA_NOTA
ELSE IF QUANT_DIARIAS = FAIXA
THEN DESCONTO := 0.2 * VALOR_DA_NOTA
ELSE IF QUANT_DIARIAS = FAIXA
THEN DESCONTO := 0.3 * VALOR_DA_NOTA
ELSE DESCONTO := 0.35 *
VALOR_DA_NOTA; /* CALCULO DO VALOR A PAGAR E SAIDA DOS
RESULTADOS */
VALOR_A_PAGAR := VALOR_DA_NOTA - DESCONTO;
WRITELN('NUMERO DE DIAS: ', QUANT_DIARIAS: 3, 'VALOR
DA DIARIA:', VALOR_DA_DIARIA: 8: 2,
'SUB_TOTAL: ', SUB_TOTAL: 9: 2);
WRITELN('SERVIÇOS: ', SERVIÇOS: 7: 2, 'VALOR DA NOTA:
',VALOR_DA_NOTA: 9: 2, 'DESCONTO: ', DESCONTO:
9: 2, 'VALOR A PAGAR: ', VALOR_A_PAGAR: 9: 2) END.
Substituindo o ninho de IFs por um comando CASE , obtemos:
PROGRAM POUSO_NOVO; CONST TFAIXA1 = 1; FAIXA2 = 2; FAIXA3 = 3; FAIXA4 = 4 .. 30; VAR VALOR_DA_DIARIA, SUB_TOTAL, SERVIÇOS: REAL; VALOR_DA_NOTA, DESCONTO, VALOR_A_PAGAR: REAL; QUANT_DIARIAS: INTEGER; BEGIN WRITELN('INFORME O VALOR DA DIARIA E A QUANTIDADE DE DIARIAS'); READLN(VALOR_DA_DIARIA, QUANT_DIARIAS); SUB_TOTAL := QUANT_DIARIAS * VALOR_DA_DIARIA; SERVIÇOS := SUB_TOTAL * 0.1 / DEZ POR CENTO / VALOR_DA_NOTA := SUB_TOTAL + SERVIÇOS; / CALCULO DO DESCONTO / CASE QUANT_DIARIAS OF FAIXA1: DESCONTO := VALOR_DA_NOTA * 0.1;
PAGE 25
- Escreva um programa em PASCAL que leia um número inteiro qualquer e determine se o número que foi lido é par ou ímpar.
- Escreva um programa em PASCAL para ler vinte números inteiros e determinar se cada um desses números é par ou ímpar.
- Escreva um programa em PASCAL para ler um número inteiro N e imprimir o valor lido e os N primeiros números ímpares positivos.
- Escreva um programa em PASCAL para ler um número inteiro N e imprimir os N primeiros números pares positivos.
- Escreva um programa em PASCAL para ler um número inteiro K e imprimir os K primeiros números ímpares positivos e sua soma.
- Escreva um programa em PASCAL para ler dois números inteiros M e N e, a seguir, imprimir os números pares existentes no intervalo [M, N]. Lembre-se que nem sempre M é um número par.
- Escreva um programa em PASCAL para ler um número inteiro qualquer e determinar seu fatorial.
- Escreva um programa em PASCAL para determinar o fatorial de dez números inteiros quaisquer.
- Escreva um programa em PASCAL para ler seguidamente valores inteiros até que seja lido um valor nulo. Para cada valor lido, o programa deve determinar seu fatorial.
- Escreva um programa em PASCAL para ler seguidamente valores inteiros até que seja lido um valor negativo. Para cada valor lido, exceto o último, o programa deve determinar seu fatorial.
- Escreva um programa em PASCAL para determinar o número de combinações de n objetos tomados p a p, a partir de valores de n e p lidos da unidade padrão de entrada. Fórmula: n n! = ---------- p p!(n - p)!
- Escreva um programa em PASCAL para calcular uma aproximação para Pi. A aproximação pode ser obtida de Pi = 4 - 4/3 + 4/5 - 4/7 + 4/9 - 4/11 + ... O programa deve encerrar o processamento quando a variação no valor calculado for inferior a 0.0001.
- Escreva programas em PASCAL para cálculo da soma 1 - 1/2 + 1/3 - 1/4 + ... + 1/9999 - 1/10000 por adição dos termos: - da esquerda para a direita; - da direita para a esquerda; - positivos e dos termos negativos, separadamente, da esquerda para a direita;
- positivos e dos termos negativos, separadamente, da direita para a esquerda. O resultado com dez casas decimais é 0.6930971830.
- Escreva um programa para calcular uma aproximação para cosseno(X), onde X é um valor inteiro lido da unidade padrão de entrada. A aproximação pode ser obtida de cos(x) = 1 - X/2! + X/4! - X/6! ... O programa deve encerrar o processamento quando a variação no valor calculado for inferior a 0.001.
- Escreva um programa em PASCAL para calcular uma aproximação para seno(X), onde X é um valor inteiro lido da unidade padrão de entrada. A aproximação pode ser obtida de: sen(X) = X - X/3! + X/5! - X/7! + ... O programa deve encerrar o processamento quando a variação no valor calculado for inferior a 0.001.
- Escreva um programa em PASCAL para calcular uma aproximação para exp(X), onde X é um número qualquer lido da unidade padrão de entrada. A aproximação pode ser obtida de: exp(X) = 1 + X + X/2! + X/i!. O programa deve encerrar o processamento quando a variação no valor calculado for inferior a 0.0001.
- Escreva um programa em PASCAL que imprima a tabela abaixo: NUMERO QUADRADO CUBO RAIZ QUADRADA RAIZ CUBICA 1.5 2.25 3.375 1.2247 1. 2.5 6.25 15.625 1.5811 1.
PAGE 25
- Escreva um programa em PASCAL para imprimir uma tabela de temperaturas em graus Célsius e equivalentes em Fahrenheit, de 0 C a 100 C.
- Escreva um programa em PASCAL para ler dez grupos de valores para A, B e C (variáveis do tipo REAL). Para cada grupo de valores o programa deve imprimir os valores lidos e as raízes da equação Ax^2 + Bx + C = 0.
- Escreva um programa em PASCAL para ler quatro valores reais, imprimir o maior dos quatro valores e os valores lidos, nesta seqüência.
- Escreva um programa em PASCAL para ler 50 valores inteiros aleatórios, imprimir os valores lidos e determinar o maior dos valores lidos.
- Escreva um programa em PASCAL para ler cinqüenta valores inteiros aleatórios, imprimir os valores lidos e determinar o menor dos valores lidos e sua posição no conjunto.
- Escreva um programa em PASCAL para ler N e a seguir ler N valores inteiros, imprimir os valores lidos e determinar o maior e o menor dos N valores.
- Escreva um programa em PASCAL para ler N números inteiros, imprimir os números lidos e determinar a diferença entre os dois maiores números lidos.
- Escreva um programa em PASCAL para ler e imprimir a idade de um grupo de 20 pessoas. Ao final, o programa deve determinar a pessoa mais idosa, a mais jovem, e a média das idades do grupo de pessoas.
- Escreva um programa em PASCAL que leia cinqüenta valores reais quaisquer, imprima os valores lidos e determine qual o segundo menor dentre os valores, sem efetuar ordenação.
- Escreva um programa em PASCAL que leia cinqüenta valores reais quaisquer, imprima os valores lidos e determine qual o segundo maior dentre os valores e sua posição no conjunto, sem efetuar ordenação.
- Escreva um programa em PASCAL para ler três números reais quaisquer e imprimir estes números em ordem numérica crescente.
- Escreva um programa em PASCAL para ler três valores inteiros, imprimir os valores lidos e determinar o valor que não é o maior e que não é o menor dos três valores lidos.
- Escreva um programa em PASCAL para ler dez grupos de três valores inteiros cada, imprimir os valores lidos identificado o valor que não é o maior e que não é o menor para cada um dos grupos de três valores.
- Escreva um programa em PASCAL para ler vários grupos de três valores inteiros e determinar o valor que não é o maior e que não é o menor para cada um dos grupos. O processamento deve ser encerrado quando um dos três valores for negativo.
- Escreva um programa em PASCAL para ler oito valores reais, imprimir os valores lidos e determinar: - a média dos números positivos; - a média dos números negativos; e - a soma de todos os valores lidos.
- Escreva um programa em PASCAL para ler um valor inteiro K e calcular a média aritmética de K valores reais lidos da unidade padrão de entrada. O programa deve imprimir os valores lidos e a sua média aritmética.
- Escreva um programa em PASCAL para ler um número inteiro K, e a seguir ler K números inteiros, imprimir os valores lidos e determinar a média aritmética dos valores ímpares e a média aritmética dos valores pares existentes entre os valores lidos.
- Escreva um programa em PASCAL para ler um número desconhecido de valores reais e imprimir todos os valores lidos, a soma dos valores lidos e a média aritmética dos valores. O processamento encerra quando um mesmo valor for lido duas vezes consecutivas, sem considerar uma destas leituras no processamento.
PAGE 25
- Escreva um programa em PASCAL que leia um número inteiro qualquer e determine se esse número é perfeito ou não. Um número é perfeito quando a soma de seus divisores, excetuando- se o próprio número, for igual ao número.
- Escreva um programa em PASCAL para determinar todos os números perfeitos existentes entre 2 e 1000.
- Escreva um programa em PASCAL para ler dois números inteiros e determinar se eles são primos relativos. Dois números são primos relativos (ou primos entre si) quando eles não têm nenhum divisor comum (excetuando-se a unidade).
- Escreva um programa em PASCAL para determinar se um número inteiro de quatro dígitos é palíndromo perfeito. Um número é palíndromo perfeito quando pode ser lido da direita para a esquerda sem alterar seu valor, tal como 1661.
- Escreva um programa em PASCAL para determinar todos os números palíndromos perfeitos do intervalo [1000, 9999].
- Escreva um programa em PASCAL para identificar os números amigáveis menores que 2000. Dois números são amigáveis quando cada um é igual à soma dos divisores do outro número (excluindo apenas o próprio número). Exemplo: 220 e 284 são números amigáveis pois a soma dos divisores de 220 (1, 2, 4, 5, 10, 11, 20, 22, 44, 55, 110) é igual a 284 e a soma dos divisores de 284 (1, 2, 4, 71, 142) é igual a 220.
- Escreva um programa em PASCAL para determinar todos os números de 3 algarismos, cujas somas dos cubos dos algarismos sejam iguais ao próprio número. Exemplo: 153 = 1 + 5 + 3.
- Escreva um programa em PASCAL para determinar todos os números de 4 algarismos que possam ser separados em dois números de dois algarismos que somados e elevando-se a soma ao quadrado obtenha-se o próprio número. Exemplo: 3025 = (
- Escreva um programa em PASCAL para ler os coeficientes de várias equações do segundo grau e determinar, para cada uma das equações, suas raízes reais, caso existam. Quando a equação não possuir raízes reais, o programa deve informar esta ocorrência. O processamento deve ser encerrado quando o primeiro valor lido for nulo, sem considerar este grupo de valores nos cálculos.
- Um método para verificar se uma multiplicação está correta é a soma dos nove fora dos multiplicadores e produto. Elabore um programa em PASCAL para determinar a soma dos nove fora de um número decimal inteiro positivo com no máximo 8 algarismos.
- Escreva um programa em PASCAL para ler e imprimir 3 valores reais. O programa deve verificar se esses valores formam um triângulo e o tipo de triângulo. O triângulo poderá ser:
- equilátero - quando os três lados forem iguais;
- isósceles - quando dois dos lados forem iguais e
- escaleno - quando os três lados forem distintos.
- Escreva um programa em PASCAL que leia as coordenadas (X1, Y1), (X2, Y2), e (X3, Y3) representando os vértices de um triângulo em um sistema de coordenadas cartesianas, leia as coordenadas (X4, Y4) de um ponto qualquer e determine se o ponto localiza-se dentro do triângulo. O programa deve escrever todas as coordenadas.
- Escreva um programa em PASCAL para ler um número inteiro qualquer e determinar sua raiz quadrada pelo método de Newton com aproximação de 0.0001. A aproximação deve ser obtida de: X = a/ X = 1/2 (X + a/X) para i = 1, 2, 3, ...
- Modifique o programa de cálculo da raiz quadrada pelo método de Newton, de modo a informar quantas iterações foram necessárias para atingir uma aproximação desejada (lida da unidade padrão de entrada).
PAGE 25
- Escreva um programa em PASCAL para ler um número inteiro qualquer e determinar sua raiz cúbica por aproximações sucessivas pelo método de Newton. A raiz com aproximação de 0.0001 deve ser obtida de: X = a/ X = 1/3 (2X + a/X ) para i = 0, 1, 2, 3, ...
- Escreva um programa em PASCAL para determinar o dia da semana referente a uma data qualquer do Calendário Gregoriano. A data deve ser lida no formato dia-mês-ano. O Reverendo Zeller desenvolveu o seguinte algoritmo com esse objetivo:
- considerar M como sendo o mês do ano, iniciando com março com M = 1 e janeiro e fevereiro sendo os meses 11 e 12 do ano anterior;
- considerar D como sendo o dia do mês;
- considerar A como sendo o ano do século;
- considerar S como sendo o século anterior. O índice do dia (Domingo = 0, Segunda = 1, ..., Sábado = 6) é dado pelo resto da divisão de (13M - 1)/5 + A/4 + S/ por 7, considerando apenas a parte inteira de cada uma das divisões.
PAGE 25
