resolução lista2 algoritmos

Prévia do material em texto

DISCIPLINA: ALGORITMOS E LÓGICA DE PROGRAMAÇÃO 
 
 
 
NÃO ESTÃO RESOLVIDOS OS EXERCICIOS (DESAFIO) 
 
2.21 E 2.23 
 
 
NÃO PRECISA RESOLVER OS EXERCÍCIOS 
(ESTRUTURA NÃO SUPORTADA PELO VISUALG) 
 
2.25 E 2.26 
DISCIPLINA: ALGORITMOS E LÓGICA DE PROGRAMAÇÃO 
//2.1 Faça um Programa que peça dois números e imprima o maior deles. 
 
Algoritmo "MAIOR ENTRE DOIS NUMEROS" 
// Disciplina : ALGORITMOS 
// Professor : ANGELO DA CUNHA SÁ 
// Descrição : Aqui você descreve o que o programa faz! (função) 
// Autor(a) : Nome do(a) aluno(a) 
// Data atual : 21/08/2016 
Var 
 // Seção de Declarações das variáveis 
 
 N1,N2:REAL 
Inicio 
 // Seção de Comandos, procedimento, funções, operadores, etc... 
 ESCREVAL("DIGITE DOIS NUMEROS") 
 LEIA(N1,N2) 
 SE N1>N2 ENTAO 
 ESCREVAL("O MAIOR NUMERO É:",N1) 
 SENAO 
 ESCREVAL("O MAIOR NUMERO É:",N2) 
 FIMSE 
 
Fimalgoritmo 
DISCIPLINA: ALGORITMOS E LÓGICA DE PROGRAMAÇÃO 
//2.2 Faça um Programa que peça um valor e mostre na tela 
// Disciplina : ALGORITMOS 
// Professor : ANGELO DA CUNHA SÁ 
//se o valor é positivo ou negativo. 
 
Algoritmo "exercico.2.2" 
// Disciplina : ALGORITMOS 
// Professor : ANGELO DA CUNHA SÁ 
// Descrição : Aqui você descreve o que o programa faz! (função) 
// Autor(a) : Nome do(a) aluno(a) 
// Data atual : 21/08/2016 
Var 
 // Seção de Declarações das variáveis 
 
 N1:REAL 
Inicio 
 // Seção de Comandos, procedimento, funções, operadores, etc... 
 ESCREVAL("DIGITE UM NUMERO") 
 LEIA(N1) 
 SE N1>0 ENTAO 
 ESCREVAL("NUMERO POSITIVO") 
 SENAO 
 ESCREVAL("NUMERO NEGATIVO") 
 FIMSE 
 
Fimalgoritmo 
DISCIPLINA: ALGORITMOS E LÓGICA DE PROGRAMAÇÃO 
//2.3 Faça um Programa que verifique se uma letra digitada 
//é "F" ou "M". 
//Conforme a letra escrever: F - Feminino, M - Masculino, 
//Sexo Inválido. 
 
Algoritmo "VERIFICAR SEXO" 
// Disciplina : ALGORITMOS 
// Professor : ANGELO DA CUNHA SÁ 
// Descrição : Aqui você descreve o que o programa faz! (função) 
// Autor(a) : Nome do(a) aluno(a) 
// Data atual : 21/08/2016 
Var 
 // Seção de Declarações das variáveis 
 
 SEXO:CARACTER 
Inicio 
 // Seção de Comandos, procedimento, funções, operadores, etc... 
 ESCREVAL("DIGITE O SEXO---USE M OU F ") 
 LEIA(SEXO) 
 ESCOLHA (SEXO) 
 CASO "M" 
 ESCREVAL("SEXO MASCULINO") 
 CASO "F" 
 ESCREVAL("SEXO FEMININO") 
 OUTROCASO 
 ESCREVAL("SEXO INVALIDO") 
 FIMESCOLHA 
 
Fimalgoritmo 
 
DISCIPLINA: ALGORITMOS E LÓGICA DE PROGRAMAÇÃO 
//2.3 Faça um Programa que verifique se uma letra digitada 
//é "F" ou "M". 
//Conforme a letra escrever: F - Feminino, M - Masculino, 
//Sexo Inválido. 
 
Algoritmo "VERIFICAR SEXO" 
// Disciplina : ALGORITMOS 
// Professor : ANGELO DA CUNHA SÁ 
// Descrição : Aqui você descreve o que o programa faz! (função) 
// Autor(a) : Nome do(a) aluno(a) 
// Data atual : 21/08/2016 
Var 
 // Seção de Declarações das variáveis 
 
 SEXO:CARACTER 
Inicio 
 // Seção de Comandos, procedimento, funções, operadores, etc... 
 ESCREVAL("DIGITE O SEXO---USE M OU F ") 
 LEIA(SEXO) 
 SE SEXO="M" ENTAO 
 ESCREVAL("SEXO MASCULINO") 
 SENAO 
 SE SEXO="F" ENTAO 
 ESCREVAL("SEXO FEMININO") 
 SENAO 
 ESCREVAL("SEXO INVALIDO") 
 FIMSE 
 FIMSE 
 
Fimalgoritmo 
DISCIPLINA: ALGORITMOS E LÓGICA DE PROGRAMAÇÃO 
//2.4 Faça um Programa que verifique se uma letra 
//digitada é vogal ou consoante. 
 
Algoritmo "VOGAL" 
// Disciplina : ALGORITMOS 
// Professor : ANGELO DA CUNHA SÁ 
// Descrição : Aqui você descreve o que o programa faz! (função) 
// Autor(a) : Nome do(a) aluno(a) 
// Data atual : 25/08/2016 
Var 
// Seção de Declarações das variáveis 
 LETRA:CARACTER 
 
Inicio 
// Seção de Comandos, procedimento, funções, operadores, etc... 
 ESCREVAL("DIGITE UMA LETRA::") 
 LEIA(LETRA) 
 SE (LETRA="A")OU(LETRA="E")OU(LETRA="I")OU(LETRA="O")OU(LETRA="U")ENTAO 
 ESCREVAL("VOGAL") 
 SENAO 
 ESCREVAL("CONSOANTE") 
 FIMSE 
 
DISCIPLINA: ALGORITMOS E LÓGICA DE PROGRAMAÇÃO 
//2.5 Faça um programa para a leitura de duas notas parciais de 
//um aluno. O programa deve calcular a média alcançada por aluno e 
//apresentar: 
//* A mensagem "Aprovado", se a média alcançada for maior ou igual a 
//sete; 
//* A mensagem "Reprovado", se a média for menor do que sete; 
//* A mensagem "Aprovado com Distinção", se a média for igual a dez. 
 
Algoritmo "EXERCICIO2.5" 
// Disciplina : ALGORITMOS 
// Professor : ANGELO DA CUNHA SÁ 
// Descrição : Aqui você descreve o que o programa faz! (função) 
// Autor(a) : Nome do(a) aluno(a) 
// Data atual : 25/08/2016 
Var 
// Seção de Declarações das variáveis 
 NP1,NP2,MEDIA:REAL 
 
Inicio 
// Seção de Comandos, procedimento, funções, operadores, etc... 
 ESCREVAL("DIGITE AS DUAS NOTAS PARCIAIS DO ALUNO:" ) 
 LEIA(NP1,NP2) 
 MEDIA<-(NP1+NP2)/2 
 SE MEDIA=10 ENTAO 
 ESCREVAL ("ALUNO APROVADO COM DISTINÇÃO") 
 SENAO 
 SE MEDIA>=7 ENTAO 
 ESCREVAL("ALUNO APROVADO") 
 SENAO 
 ESCREVAL("ALUNO REPROVADO") 
 FIMSE 
 FIMSE 
 
 
Fimalgoritmo 
 
DISCIPLINA: ALGORITMOS E LÓGICA DE PROGRAMAÇÃO 
//2.6 Faça um Programa que leia três números e mostre o maior deles. 
 
Algoritmo "MAIOR ENTRE TRES" 
// Disciplina : ALGORITMOS 
// Professor : ANGELO DA CUNHA SÁ 
// Descrição : Aqui você descreve o que o programa faz! (função) 
// Autor(a) : Nome do(a) aluno(a) 
// Data atual : 25/08/2016 
Var 
// Seção de Declarações das variáveis 
 N1,N2,N3,MAIOR:REAL 
 
Inicio 
// Seção de Comandos, procedimento, funções, operadores, etc... 
 ESCREVAL("DIGITE TRES NUMEROS...") 
 LEIA(N1,N2,N3) 
 MAIOR<-N1 
 SE N2>N1 ENTAO 
 MAIOR<-N2 
 FIMSE 
 SE N3>MAIOR ENTAO 
 MAIOR<-N3 
 FIMSE 
 ESCREVAL("O MAIOR NUMERO É:...",MAIOR) 
 
 
Fimalgoritmo 
 
DISCIPLINA: ALGORITMOS E LÓGICA DE PROGRAMAÇÃO 
//2.7 Faça um Programa que leia três números e mostre o maior e o 
//menor deles. 
 
Algoritmo "MAIOR E MENOR ENTRE TRES" 
// Disciplina : ALGORITMOS 
// Professor : ANGELO DA CUNHA SÁ 
// Descrição : Aqui você descreve o que o programa faz! (função) 
// Autor(a) : Nome do(a) aluno(a) 
// Data atual : 25/08/2016 
Var 
// Seção de Declarações das variáveis 
 N1,N2,N3,MAIOR,MENOR:REAL 
 
Inicio 
// Seção de Comandos, procedimento, funções, operadores, etc... 
 ESCREVAL("DIGITE TRES NUMEROS...") 
 LEIA(N1,N2,N3) 
 MAIOR<-N1 
 MENOR<-N1 
 SE N2>N1 ENTAO 
 MAIOR<-N2 
 SENAO 
 MENOR<-N2 
 FIMSE 
 SE N3>MAIOR ENTAO 
 MAIOR<-N3 
 SENAO 
 SE N3<MENOR ENTAO 
 MENOR<-N3 
 FIMSE 
 FIMSE 
 ESCREVAL("O MAIOR NUMERO É:...",MAIOR) 
 ESCREVAL("O MENOR NUMERO É:...", MENOR) 
 
 
Fimalgoritmo 
 
DISCIPLINA: ALGORITMOS E LÓGICA DE PROGRAMAÇÃO 
//2.8 Faça um programa que pergunte o preço de três produtos e 
//informe qual produto você deve comprar, 
//sabendo que a decisão é sempre pelo mais barato. 
 
Algoritmo "MAIOR ENTRE TRES" 
// Disciplina : ALGORITMOS 
// Professor : ANGELO DA CUNHA SÁ 
// Descrição : Aqui você descreve o que o programa faz! (função) 
// Autor(a) : Nome do(a) aluno(a) 
// Data atual : 25/08/2016 
Var 
// Seção de Declarações das variáveis 
 N1,N2,N3,MENOR:REAL 
 
Inicio 
// Seção de Comandos, procedimento, funções, operadores, etc... 
 ESCREVAL("DIGITE OS TRES PREÇOS DOS PRODUTOS...") 
 LEIA(N1,N2,N3) 
 MENOR<-N1SE N2<MENOR ENTAO 
 MENOR<-N2 
 FIMSE 
 SE N3<MENOR ENTAO 
 MENOR<-N3 
 FIMSE 
 ESCREVAL("O PRODUTO A SER COMPRADO É O QUE CUSTA. R$",MENOR:4:2) 
 
 
Fimalgoritmo 
 
DISCIPLINA: ALGORITMOS E LÓGICA DE PROGRAMAÇÃO 
//2.9 Faça um Programa que leia três números e mostre-os em 
//ordem decrescente. 
 
Algoritmo "ORDEM DECRESCENTE" 
// Disciplina : ALGORITMOS 
// Professor : ANGELO DA CUNHA SÁ 
// Descrição : Aqui você descreve o que o programa faz! (função) 
// Autor(a) : Nome do(a) aluno(a) 
// Data atual : 25/07/2016 
Var 
// Seção de Declarações das variáveis 
 N1,N2,N3:REAL 
 
Inicio 
// Seção de Comandos, procedimento, funções, operadores, etc... 
 ESCREVAL("DIGITE TRES NUMEROS...") 
 LEIA(N1,N2,N3) 
 
 SE ((N1=N2)OU(N1=N3)OU(N2=N3)) ENTAO 
 ESCREVAL("ALGUM OU TODOS OS NUMEROS SÃO IGUAIS") 
 FIMSE 
 
 SE ((N1>N2)E(N1>N3)) ENTAO 
 SE N2>N3 ENTAO 
 ESCREVAL(N1,N2,N3) 
 SENAO 
 ESCREVAL(N1,N3,N2) 
 FIMSE 
 FIMSE 
 
 SE((N2>N1)E(N2>N3)) ENTAO 
 SE N1>N3 ENTAO 
 ESCREVAL(N2,N1,N3) 
 SENAO 
 ESCREVAL(N2,N3,N1) 
 FIMSE 
 FIMSE 
 
 SE((N3>N1)E(N3>N2)) ENTAO 
 SE N1>N2 ENTAO 
 ESCREVAL(N3,N1,N2) 
 SENAO 
 ESCREVAL(N3,N2,N1) 
 FIMSE 
 FIMSE 
 
 
Fimalgoritmo 
 
DISCIPLINA: ALGORITMOS E LÓGICA DE PROGRAMAÇÃO 
//2.10 Faça um Programa que pergunte em que turno você estuda. 
//Peça para digitar M-matutino ou V-Vespertino ou N- Noturno. 
//Imprima a mensagem "Bom Dia!", "Boa Tarde!" 
//ou "Boa Noite!" ou "Valor Inválido!", conforme o caso. 
 
Algoritmo "EXERCICIO2.10" 
// Disciplina : ALGORITMOS 
// Professor : ANGELO DA CUNHA SÁ 
// Descrição : Aqui você descreve o que o programa faz! (função) 
// Autor(a) : Nome do(a) aluno(a) 
// Data atual : 25/07/2016 
Var 
// Seção de Declarações das variáveis 
 TURNO:CARACTER 
 
Inicio 
// Seção de Comandos, procedimento, funções, operadores, etc... 
 ESCREVAL("EM QUAL TURNO VOCÊ ESTUDA?") 
 ESCREVAL("Digitar M-matutino ou V-Vespertino ou N- Noturno.") 
 LEIA(TURNO) 
 ESCOLHA (TURNO) 
 CASO "M" 
 ESCREVAL("BOM DIA!") 
 CASO "V" 
 ESCREVAL("BOA TARDE!") 
 CASO "N" 
 ESCREVAL("BOA NOITE") 
 OUTROCASO 
 ESCREVAL("OPÇÃO INVÁLIDA") 
 FIMESCOLHA 
 
 
Fimalgoritmo 
 
DISCIPLINA: ALGORITMOS E LÓGICA DE PROGRAMAÇÃO 
//2.12 Faça um programa que recebe o salário de um colaborador 
//e o reajuste segundo o seguinte critério, baseado no salário atual: 
//* salários até R$ 280,00 (incluindo) : aumento de 20% 
//* salários entre R$ 280,00 e R$ 700,00 : aumento de 15% 
//* salários entre R$ 700,00 e R$ 1500,00 : aumento de 10% 
//* salários de R$ 1500,00 em diante : aumento de 5% 
//Após o aumento ser realizado, informe na tela: 
//a. o salário antes do reajuste; 
//b. o percentual de aumento aplicado; 
//c. o valor do aumento; 
//d. o novo salário, após o aumento. 
 
Algoritmo "EXERCICIO2.12" 
// Disciplina : ALGORITMOS 
// Professor : ANGELO DA CUNHA SÁ 
 
Var 
// Seção de Declarações das variáveis 
 SALCOL,SALNOVO,VALAUMENTO:REAL 
 PERC:CARACTER 
Inicio 
// Seção de Comandos, procedimento, funções, operadores, etc... 
 ESCREVAL("DIGITE O SALÁRIO DO COLABORADOR") 
 LEIA(SALCOL) 
 SE SALCOL<=280 ENTAO 
 VALAUMENTO<-SALCOL*0.2 
 SALNOVO<-SALCOL+VALAUMENTO 
 PERC<-"20%" 
 SENAO 
 SE ((SALCOL>280) E (SALCOL<=700)) ENTAO 
 VALAUMENTO<-SALCOL*0.15 
 SALNOVO<-SALCOL+VALAUMENTO 
 PERC<-"15%" 
 SENAO 
 SE ((SALCOL>700) E (SALCOL<=1500)) ENTAO 
 VALAUMENTO<-SALCOL*0.1 
 SALNOVO<-SALCOL+VALAUMENTO 
 PERC<-"10%" 
 SENAO 
 VALAUMENTO<-SALCOL*0.05 
 SALNOVO<-SALCOL+VALAUMENTO 
 PERC<-"5%" 
 FIMSE 
 FIMSE 
 FIMSE 
 
 ESCREVAL("O SALÁRIO ANTES DO REAJUSTE:R$",SALCOL:4:2) 
 ESCREVAL("O PERCENTUAL DE AUMENTO É:",PERC) 
 ESCREVAL("O VALOR DO AUMENTO É:R$",VALAUMENTO:4:2) 
 ESCREVAL("O NOVO SALÁRIO É:R$",SALNOVO:4:2) 
 
DISCIPLINA: ALGORITMOS E LÓGICA DE PROGRAMAÇÃO 
Fimalgoritmo 
//2.13 Faça um programa para o cálculo de uma folha de pagamento, sabendo que os 
descontos são do Imposto de Renda, que depende do salário bruto (conforme tabela abaixo) e 
3% para o Sindicato e que o FGTS corresponde a 11% do Salário Bruto, mas não é descontado 
(é a empresa que deposita). 
//O Salário Líquido corresponde ao Salário Bruto menos os descontos. 
//O programa deverá pedir ao usuário o valor da sua hora e a 
//quantidade de horas trabalhadas no mês. 
//Desconto do IR: 
//* Salário Bruto até 900 (inclusive) - isento 
//* Salário Bruto até 1500 (inclusive)- desconto de 5% 
//* Salário Bruto até 2500 (inclusive)- desconto de 10% 
//* Salário Bruto acima de 2500 - desconto de 20% 
//Imprima na tela as informações, dispostas conforme o exemplo abaixo. No exemplo o valor 
da hora é 5 e a quantidade de hora é 220. 
//Salário Bruto: (5 * 220) : R$ 1100,00 
//(-) IR (5%) : R$ 55,00 
//(-) INSS ( 10%) : R$ 110,00 
//FGTS (11%) : R$ 121,00 
//Total de descontos : R$ 165,00 
//Salário Liquido : R$ 935,00 
 
Algoritmo "EXERCICIO2.13" 
// Disciplina : ALGORITMOS 
// Professor : ANGELO DA CUNHA SÁ 
 
Var 
 // Seção de Declarações das variáveis 
 HFUNC,HTMES,SALBRUTO,IR,SINDICATO,INSS,FGTS,DESCONTOS:REAL 
 SALLIQ:REAL 
Inicio 
 // Seção de Comandos, procedimento, funções, operadores, etc... 
 ESCREVAL("QUAL O VALOR DA HORA DO FUNCIONARIO?") 
 LEIA(HFUNC) 
 ESCREVAL("QUANTAS HORAS TRABALHADAS NO MES?") 
 LEIA(HTMES) 
 SALBRUTO<-HFUNC*HTMES 
 
 //BLOCO PARA CALCULO DO IMPOSTO DE RENDA 
 SE SALBRUTO <=900 ENTAO 
 IR<-0 
 SENÃO 
 SE ((SALBRUTO>900))E((SALBRUTO<=1500)) ENTAO 
 IR<-SALBRUTO*0.05 
 SENAO 
DISCIPLINA: ALGORITMOS E LÓGICA DE PROGRAMAÇÃO 
 SE ((SALBRUTO>1500)E(SALBRUTO<=2500))ENTAO 
 IR<-SALBRUTO*0.1 
 SENAO 
 IR<-SALBRUTO*0,2 
 FIMSE 
 FIMSE 
 FIMSE 
 SINDICATO<-SALBRUTO*0.03 
 INSS<-SALBRUTO*0.1 
 FGTS<-SALBRUTO*0.11 
 DESCONTOS<-IR+INSS 
 SALLIQ<-SALBRUTO-DESCONTOS 
 ESCREVAL("Salário Bruto: .....R$",SALBRUTO:4:2) 
 ESCREVAL("(-) IR :...........R$",IR:4:2) 
 ESCREVAL("(-) INSS ( 10%) :.. R$",INSS:4:2) 
 ESCREVAL("FGTS (11%) : .......R$",FGTS:4:2) 
 ESCREVAL("SINDICATO (3%) : ...R$",SINDICATO:4:2) 
 ESCREVAL("Total de descontos :R$",DESCONTOS:4:2) 
 ESCREVAL 
 ESCREVAL("Salário Liquido :...R$",SALLIQ:4:2) 
 
Fimalgoritmo 
 
DISCIPLINA: ALGORITMOS E LÓGICA DE PROGRAMAÇÃO 
//2.14 Faça um Programa que leia um número e exiba o dia 
//correspondente da semana. (1-Domingo, 2- Segunda, etc.), 
//se digitar outro valor deve aparecer valor inválido. 
Algoritmo "exercicio 2.14" 
// Disciplina : ALGORITMOS 
// Professor : ANGELO DA CUNHA SÁ 
// Descrição : Aqui você descreve o que o programa faz! (função) 
// Autor(a) : Nome do(a) aluno(a) 
// Data atual : 26/08/2016 
Var 
// Seção de Declarações das variáveis 
 NUM:CARACTER 
 
Inicio 
// Seção de Comandos, procedimento, funções, operadores, etc... 
 ESCREVAL("DIGITE UM NUMERO ENTRE 1 E 7 PARA SABER QUAL O DIA DA SEMANA") 
 LEIA(NUM) 
 ESCOLHA (NUM) 
 CASO "1" 
 ESCREVAL("DOMINGO") 
 CASO "2" 
 ESCREVAL("SEGUNDA") 
 CASO "3" 
 ESCREVAL("TERÇA") 
 CASO "4" 
 ESCREVAL("QUARTA") 
 CASO "5"ESCREVAL("QUINTA") 
 CASO "6" 
 ESCREVAL("SEXTA") 
 CASO "7" 
 ESCREVAL("SÁBADO") 
 OUTROCASO 
 ESCREVAL("VALOR INVÁLIDO") 
 FIMESCOLHA 
 
 
Fimalgoritmo 
 
DISCIPLINA: ALGORITMOS E LÓGICA DE PROGRAMAÇÃO 
//2.15 Faça um programa que lê as duas notas parciais obtidas por um aluno numa disciplina 
ao longo de um semestre, e calcule a sua média. A atribuição de conceitos obedece à tabela 
abaixo: 
//Média de Aproveitamento Conceito 
//Entre 9.0 e 10.0--- A 
//Entre 7.5 e 9.0--- B 
//Entre 6.0 e 7.5 ---C 
//Entre 4.0 e 6.0 ---D 
//Entre 4.0 e zero ---E 
Algoritmo "EXERCICIO2.15" 
// Disciplina : ALGORITMOS 
// Professor : ANGELO DA CUNHA SÁ 
Var 
// Seção de Declarações das variáveis 
 NOTA1,NOTA2,MEDIA:REAL 
 
Inicio 
// Seção de Comandos, procedimento, funções, operadores, etc... 
 ESCREVAL("DIGITE A NOTA 1 DO ALUNO") 
 LEIA(NOTA1) 
 ESCREVAL("DIGITE A NOTA 2 DO ALUNO") 
 LEIA(NOTA2) 
 ESCREVAL 
 MEDIA<-(NOTA1+NOTA2)/2 
 SE MEDIA<4 ENTAO 
 ESCREVAL("SEU CONCEITO É:..E") 
 SENAO 
 SE ((MEDIA>=4)E(MEDIA<6)) ENTAO 
 ESCREVAL("SEU CONCEITO É:...D") 
 ESCREVAL 
 SENAO 
 SE ((MEDIA>=6)E(MEDIA<7.5))ENTAO 
 ESCREVAL("SEU CONCEITO É:..C") 
 ESCREVAL 
 SENAO 
 SE ((MEDIA>=7.5)E(MEDIA<9)) ENTAO 
 ESCREVAL("SEU CONCEITO É:...B") 
 SENAO 
 ESCREVAL("SEU CONCEITO É:...A") 
 FIMSE 
 FIMSE 
 FIMSE 
 FIMSE 
 
Fimalgoritmo 
DISCIPLINA: ALGORITMOS E LÓGICA DE PROGRAMAÇÃO 
//2.16 O algoritmo deve mostrar na tela as notas, a média, o conceito correspondente e a 
mensagem “APROVADO” se o conceito for A, B ou C ou “REPROVADO” se o conceito for D ou 
E. 
 
 
Algoritmo "EXERCICIO2.16" 
// Disciplina : ALGORITMOS 
// Professor : ANGELO DA CUNHA SÁ 
// Descrição : Aqui você descreve o que o programa faz! (função) 
// Autor(a) : Nome do(a) aluno(a) 
// Data atual : 26/08/2016 
Var 
// Seção de Declarações das variáveis 
 NOTA1,NOTA2,MEDIA:REAL 
 
Inicio 
// Seção de Comandos, procedimento, funções, operadores, etc... 
 ESCREVAL("DIGITE A NOTA 1 DO ALUNO") 
 LEIA(NOTA1) 
 ESCREVAL("DIGITE A NOTA 2 DO ALUNO") 
 LEIA(NOTA2) 
 ESCREVAL("A PRIMERIA NOTA DO ALUNO É:",NOTA1) 
 ESCREVAL("A SEGUNDA NOTA DO ALUNO É:",NOTA2) 
 MEDIA<-(NOTA1+NOTA2)/2 
 ESCREVAL("A MEDIA DO ALUNO É:",MEDIA) 
 SE MEDIA<4 ENTAO 
 ESCREVAL("SEU CONCEITO É:..E") 
 ESCREVAL("ALUNO REPROVADO") 
 SENAO 
 SE ((MEDIA>=4)E(MEDIA<6)) ENTAO 
 ESCREVAL("SEU CONCEITO É:...D") 
 ESCREVAL("ALUNO REPROVADO") 
 SENAO 
 SE ((MEDIA>=6)E(MEDIA<7.5))ENTAO 
 ESCREVAL("SEU CONCEITO É:..C") 
 ESCREVAL("ALUNO APROVADO") 
 SENAO 
 SE ((MEDIA>=7.5)E(MEDIA<9)) ENTAO 
 ESCREVAL("SEU CONCEITO É:...B") 
 ESCREVAL("ALUNO APROVADO") 
 SENAO 
 ESCREVAL("SEU CONCEITO É:...A") 
 ESCREVAL("ALUNO APROVADO") 
 FIMSE 
 FIMSE 
 FIMSE 
 FIMSE 
 
 
Fimalgoritmo 
DISCIPLINA: ALGORITMOS E LÓGICA DE PROGRAMAÇÃO 
//2.17 Faça um Programa que peça os 3 lados de um triângulo. O programa deverá 
//informar se os valores podem ser um triângulo. Indique, caso os lados formem 
//um triângulo, se o mesmo é: equilátero, isósceles ou escaleno. 
//Dicas: 
//a. Três lados formam um triângulo quando a soma de quaisquer dois lados 
//for maior que o terceiro; 
//b. Triângulo Equilátero: três lados iguais; 
//c. Triângulo Isósceles: quaisquer dois lados iguais; 
//d. Triângulo Escaleno: três lados diferentes; 
Algoritmo "exercício 2.17" 
// Disciplina : ALGORITMOS 
// Professor : ANGELO DA CUNHA SÁ 
// Descrição : Aqui você descreve o que o programa faz! (função) 
// Autor(a) : Nome do(a) aluno(a) 
// Data atual : 26/07/2016 
Var 
// Seção de Declarações das variáveis 
 
 L1,L2,L3,SOMA1,SOMA2,SOMA3:REAL 
Inicio 
// Seção de Comandos, procedimento, funções, operadores, etc... 
 ESCREVAL("DIGITE OS TRÊS LADOS DO TRIANGULO..") 
 LEIA(L1,L2,L3) 
 SOMA1<-L1+L2 
 SOMA2<-L1+L3 
 SOMA3<-L2+L3 
 SE ((SOMA1>L3) e (SOMA2>L2) e (SOMA3>L1)) ENTAO 
 SE (L1=L2) E (L1=L3) ENTAO 
 ESCREVAL("TRIANGULO EQUILATERO") 
 SENAO 
 SE ((L1<>L2)e(L1<>L3)E(L2<>L3)) ENTAO 
 ESCREVAL("TRIANGULO ESCALENO") 
 SENAO 
 ESCREVAL("TRIANGULO ISOSCELES") 
 FIMSE 
 FIMSE 
 SENAO 
 ESCREVAL("OS NUMEROS NÃO REPRESENTAM UM TRIANGULO") 
 FIMSE 
Fimalgoritmo 
DISCIPLINA: ALGORITMOS E LÓGICA DE PROGRAMAÇÃO 
2.18 Faça um programa que calcule as raízes de uma equação do segundo grau, na forma 
ax2 + bx + c. O programa deverá pedir os valores de a, b e c e fazer as consistências, 
informando ao usuário nas seguintes situações: 
a. Se o usuário informar o valor de A igual a zero, a equação não é do segundo grau e o 
programa não deve fazer pedir os demais valores, sendo encerrado; 
b. Se o delta calculado for negativo, a equação não possui raízes reais. Informe ao usuário e 
encerre o programa; 
c. Se o delta calculado for igual a zero a equação possui apenas uma raiz real; informe-a ao 
usuário; 
d. Se o delta for positivo, a equação possui duas raiz reais; informe-as ao usuário; 
 
Algoritmo "exercicio2.18" 
 
Var 
 a,b,c,y,delta,x,x1,x2 : real 
 
Inicio 
 escreval("Informe o valor de a") 
 leia(a) 
 se a = 0 entao 
 escreval("Não é equação do 2º grau") 
 senao 
 escreval("Informe o valor de b e c") 
 leia(b,c) 
 delta <- (b^2) - (4*a*c) 
 se delta < 0 entao 
 escreval ("Não existe raiz") 
 senao 
 se delta = 0 entao 
 x <- -b / (2*a) 
 escreval("A raiz é: ",x) 
 senao 
 se delta > 0 entao 
 x1 <- (-b - raizq (delta)) / (2*a) 
 x2 <- (-b + raizq (delta)) / (2*a) 
 escreval ("A raiz x é: ",x1) 
 escreval ("A raiz x' é: ",x2) 
 fimse 
 fimse 
 fimse 
 fimse 
 
Fimalgoritmo 
DISCIPLINA: ALGORITMOS E LÓGICA DE PROGRAMAÇÃO 
//2.19 Faça um Programa que peça um número correspondente a um 
//determinado ano e em seguida informe se este ano é ou não bissexto. 
Algoritmo "EXERCICIO 2.19" 
// Disciplina : ALGORITMOS 
// Professor : ANGELO DA CUNHA SÁ 
// Descrição : 
//Para ser bissexto, o ano deve ser: 
 
//Divisível por 4. 
 
//Não pode ser divisível por 100. 
 
//Pode ser que seja divisível por 400. 
 
 
//Aqui você descreve o que o programa faz! (função) 
// Autor(a) : Nome do(a) aluno(a) 
// Data atual : 23/08/2016 
Var 
// Seção de Declarações das variáveis 
 ANO:INTEIRO 
 RESTO1,RESTO2,RESTO3:REAL 
Inicio 
// Seção de Comandos, procedimento, funções, operadores, etc... 
 ESCREVAL("DIGITE UM ANO QUALQUER PARA SABER SE ELE É BISSEXTO") 
 LEIA(ANO) 
 RESTO1<-ANO MOD 4 
 RESTO2<-ANO MOD 100 
 RESTO3<-ANO MOD 400 
 SE ((RESTO1 = 0) E (RESTO2<>0) OU (RESTO3=0))ENTAO 
 ESCREVAL("ANO BISSEXTO") 
 SENAO 
 ESCREVAL("ANO NÃO BISSEXTO") 
 FIMSE 
Fimalgoritmo 
DISCIPLINA: ALGORITMOS E LÓGICA DE PROGRAMAÇÃO 
//2.20 Faça um Programa que peça uma data no formato dd/mm/aaaa e determine se a 
mesma //é uma data válida. 
Algoritmo "EXECRICIO2.20" 
// Disciplina : ALGORITMOS 
// Professor : ANGELO DA CUNHA SÁ// Descrição : Aqui você descreve o que o programa faz! (função) 
// Autor(a) : Nome do(a) aluno(a) 
// Data atual : 22/08/2016 
Var 
 // Seção de Declarações das variáveis 
 DIA,ANO:INTEIRO 
 MES,MES1:CARACTER 
 
Inicio 
 // Seção de Comandos, procedimento, funções, operadores, etc... 
 ESCREVAL("DIGITE O DIA ") 
 LEIA(DIA) 
 ESCREVAL("DIGITE O MES EM NUMERO") 
 LEIA(MES) 
 ESCREVAL("DIGITE O ANO COM QUATRO ALGARISMOS") 
 LEIA(ANO) 
 SE ((DIA>0) E (DIA<=31)) ENTAO 
 SE ((MES>0)E(MES<=12)) ENTAO 
 SE(ANO>=0)ENTAO 
 ESCOLHA MES 
 CASO "1" 
 MES1<-"JANEIRO" 
 CASO "2" 
 MES1<-"FEVEREIRO" 
 CASO "3" 
 MES1<-"MARÇO" 
 CASO "4" 
 MES1<-"ABRIL" 
 CASO "5" 
 MES1<-"MAIO" 
 CASO "6" 
 MES1<-"JUNHO" 
 CASO "7" 
 MES1<-"JULHO" 
 CASO "8" 
 MES1<-"AGOSTO" 
 CASO "9" 
 MES1<-"SETEMBRO" 
 CASO "10" 
 MES1<-"OUTUBRO" 
DISCIPLINA: ALGORITMOS E LÓGICA DE PROGRAMAÇÃO 
 CASO "11" 
 MES1<-"NOVEMBRO" 
 CASO "12" 
 MES1<-"DEZEMBRO" 
 FIMESCOLHA 
 ESCREVAL(" A DATA É:..",DIA," DE ",MES1," DE ",ANO) 
 FIMSE 
 FIMSE 
 SENAO 
 ESCREVAL("DATA INVALIDA") 
 FIMSE 
 
Fimalgoritmo 
 
DISCIPLINA: ALGORITMOS E LÓGICA DE PROGRAMAÇÃO 
//2.22 Faça um Programa para leitura de três notas parciais de um aluno. O programa 
//deve calcular a média alcançada por aluno e Apresentar: 
//a. A mensagem "Aprovado", se a média for maior ou igual a 7, com a 
//respectiva média alcançada; 
//b. A mensagem "Reprovado", se a média for menor do que 7, com a 
//respectiva média alcançada; 
//c. A mensagem "Aprovado com Distinção", se a média for igual a 10. 
Algoritmo "EXERCICIO 2.22" 
// Disciplina : ALGORITMOS 
// Professor : ANGELO DA CUNHA SÁ 
// Descrição : Aqui você descreve o que o programa faz! (função) 
// Autor(a) : Nome do(a) aluno(a) 
// Data atual : 27/08/2016 
Var 
// Seção de Declarações das variáveis 
 NOTA1,NOTA2,NOTA3,MEDIA:REAL 
 
Inicio 
// Seção de Comandos, procedimento, funções, operadores, etc... 
 ESCREVAL("DIGITE AS TRES NOTAS PARCIAIS DO ALUNO..") 
 LEIA(NOTA1,NOTA2,NOTA3) 
 MEDIA<-(NOTA1+NOTA2+NOTA3)/3 
 SE MEDIA<7 ENTAO 
 ESCREVAL("ALUNO REPROVADO") 
 SENAO 
 SE MEDIA=10 ENTAO 
 ESCREVAL("ALUNO APROVADO COM DISTINÇÃO") 
 SENAO 
 ESCREVAL("ALUNO APROVADO") 
 FIMSE 
 FIMSE 
 
Fimalgoritmo 
 
DISCIPLINA: ALGORITMOS E LÓGICA DE PROGRAMAÇÃO 
//2.24 Faça um Programa que peça um número inteiro e determine se ele é par ou impar. 
//Dica: utilize o operador módulo (resto da divisão). 
Algoritmo "EXERCICIO 2.24" 
// Disciplina : ALGORITMOS 
// Professor : ANGELO DA CUNHA SÁ 
// Descrição : Aqui você descreve o que o programa faz! (função) 
// Autor(a) : Nome do(a) aluno(a) 
// Data atual : 27/08/2016 
Var 
// Seção de Declarações das variáveis 
 NUM:INTEIRO 
 RESULTADO:REAL 
 
Inicio 
// Seção de Comandos, procedimento, funções, operadores, etc... 
 ESCREVAL("DIGITE UM NUMERO INTEIRO") 
 LEIA(NUM) 
 SE NUM<>0 ENTAO 
 RESULTADO<-NUM MOD 2 
 SE RESULTADO= 0 ENTAO 
 ESCREVAL("O NUMERO É PAR") 
 SENAO 
 ESCREVAL("O NUMERO É IMPAR") 
 FIMSE 
 SENAO 
 ESCREVAL("O NUMERO DIGITADO FOI ZERO") 
 FIMSE 
Fimalgoritmo 
 
DISCIPLINA: ALGORITMOS E LÓGICA DE PROGRAMAÇÃO 
//2.27 Faça um programa que faça 5 perguntas para uma pessoa 
//sobre um crime. As perguntas são: 
//a. "Telefonou para a vítima?" 
//b. "Esteve no local do crime?" 
//c. "Mora perto da vítima?" 
//d. "Devia para a vítima?" 
//e. "Já trabalhou com a vítima?" 
 
//2.28 O programa deve no final emitir uma classificação sobre a 
//participação da pessoa no crime. 
//Se a pessoa responder positivamente a 2 questões ela 
//deve ser classificada como "Suspeita", entre 3 e 4 como "Cúmplice" 
//e 5 como "Assassino". 
//Caso contrário, ele será classificado como "Inocente". 
 
Algoritmo "exercicios 2.27 e 2.28" 
// Disciplina : ALGORITMOS 
// Professor : ANGELO DA CUNHA SÁ 
// Descrição : Aqui você descreve o que o programa faz! (função) 
// Autor(a) : Nome do(a) aluno(a) 
// Data atual : 28/08/2016 
Var 
 // Seção de Declarações das variáveis 
 R:caracter 
 Cont:inteiro 
 
Inicio 
 // Seção de Comandos, procedimento, funções, operadores, etc... 
 Escreval("Telefonou para a vítima?") 
 Leia(R) 
 Se (R = "Sim") Entao 
 Cont <-Cont+1 
 FimSe 
 Escreval("Esteve no local do crime?") 
 Leia(R) 
 Se (R="Sim") Entao 
 Cont <-Cont+1 
 FimSe 
 Escreval("Mora perto da vítima?") 
 Leia(R) 
 Se (R = "Sim") Entao 
 Cont <-Cont+1 
 FimSe 
 Escreval("Devia para a vítima?") 
 Leia(R) 
DISCIPLINA: ALGORITMOS E LÓGICA DE PROGRAMAÇÃO 
 Se (R ="Sim") Entao 
 Cont <-Cont+1 
 FimSe 
 Escreval("Já trabalhou com a vítima?") 
 Leia(R) 
 Se (R ="Sim") Entao 
 Cont <-Cont+1 
 Fimse 
 Se (Cont=2)entao 
 Escreval("Suspeita") 
 FimSe 
 Se ((Cont=3) ou (Cont=4))Entao 
 Escreval("Cumplice") 
 FimSe 
 Se (Cont=5 )Entao 
 Escreval("Assassino") 
 fimse 
 Se ((Cont=1)ou(cont=0)) entao 
 Escreval("Inocente") 
 Fimse 
 
Fimalgoritmo 
 
DISCIPLINA: ALGORITMOS E LÓGICA DE PROGRAMAÇÃO 
//2.29 Um posto está vendendo combustíveis com a seguinte tabela de descontos: 
//a. Álcool: 
//b. até 20 litros, desconto de 3% por litro 
//c. acima de 20 litros, desconto de 5% por litro 
//d. Gasolina: 
//e. até 20 litros, desconto de 4% por litro 
//f. acima de 20 litros, desconto de 6% por litro 
Escreva um algoritmo que leia o número de litros vendidos, //o tipo de combustível (codificado 
da seguinte forma: A-álcool, G-gasolina), calcule e imprima o valor a ser pago pelo cliente 
sabendo-se que o preço do litro da gasolina é R$ 2,50 o preço do litro do álcool é R$ 1,90. 
 
Algoritmo "EXERCICIO 2.29" 
Var 
 TIPOCOMB:CARACTER 
 QTDCOMB,VALPARCIAL,VALFIN:REAL 
 
Inicio 
ESCREVAL("QUAL O TIPO DE COMBUSTIVEL DESEJADO?") 
ESCREVAL("ESCOLHA: A --- ALCOOL G --- GASOLINA") 
LEIA (TIPOCOMB) 
ESCOLHA TIPOCOMB 
 CASO "G" 
 ESCREVAL("QUANTOS LITROS DE GASOLINA?") 
 LEIA(QTDCOMB) 
 VALPARCIAL<-QTDCOMB*2.5 
 SE QTDCOMB>20 ENTAO 
 VALFIN<-VALPARCIAL-VALPARCIAL*0.06 
 SENAO 
 VALFIN<-VALPARCIAL-VALPARCIAL*0.04 
 FIMSE 
 CASO "A" 
 ESCREVAL("QUANTOS LITROS DE ALCOOL?") 
 LEIA(QTDCOMB) 
 VALPARCIAL<-QTDCOMB*1.9 
 SE QTDCOMB>20 ENTAO 
 VALFIN<-VALPARCIAL-VALPARCIAL*0.05 
 SENAO 
 VALFIN<-VALPARCIAL-VALPARCIAL*0.03 
 FIMSE 
 OUTROCASO 
 ESCREVAL("VOCÊ NÃO ESCOLHEU O TIPO CERTO") 
FIMESCOLHA 
ESCREVAL("O VALOR A SER PAGO É:..R$",VALFIN:4:3) 
 
Fimalgoritmo 
DISCIPLINA: ALGORITMOS E LÓGICA DE PROGRAMAÇÃO 
//2.30Uma fruteira está vendendo frutas com a seguinte tabela de preços: 
// Até 5 Kg Acima de 5Kg 
//Morango R$2,50 por Kg R$ 2,20 por Kg 
//Maçã R$1,80 por Kg R$ 1,50 por Kg 
 
//2.30 Se o cliente comprar mais de 8 Kg em frutas ou o valor total da compra ultrapassar R$ 
25,00, receberá ainda um desconto de 10% sobre este total. 
//Escreva um algoritmo para ler a quantidade (em Kg) de morangos e a quantidade (em Kg) de 
maças adquiridas e escreva o valor a ser pago pelo cliente. 
Algoritmo "EXERCICIO 2.30" 
Var 
OPCAO1,OPCAO2:CARACTER 
QTDMORANGO,QTDMACA,VALMORANGO,VALMACA,TOTALCOMPRA:REAL 
 
Inicio 
ESCREVAL("VOCE DESEJA COMPRAR MORANGOS? --->> SIM OU NÃO") 
LEIA(OPCAO1) 
SE OPCAO1="SIM" ENTAO 
 ESCREVAL("QUAL A QUANTIDADE EM KILOS?") 
 LEIA(QTDMORANGO) 
 SE QTDMORANGO>5 ENTAO 
 VALMORANGO<-QTDMORANGO*2.2 
 SENAO 
 VALMORANGO<-QTDMORANGO*2.5 
 FIMSE 
FIMSE 
ESCREVAL("VOCE DESEJA COMPRAR MAÇÃS? --->> SIM OU NÃO") 
LEIA(OPCAO2) 
SE OPCAO2="SIM" ENTAO 
 ESCREVAL("QUAL A QUANTIDADE EM KILOS?") 
 LEIA(QTDMACA) 
 SE QTDMACA>5 ENTAO 
 VALMACA<-QTDMACA*1.8 
 SENAO 
 VALMACA<-QTDMACA*1.5 
 FIMSE 
FIMSE 
SE ((QTDMORANGO+QTDMACA>8)OU(VALMORANGO+VALMACA>25)) ENTAO 
 TOTALCOMPRA<-(VALMORANGO+VALMACA)-(VALMORANGO+VALMACA)*0.1 
SENAO 
 TOTALCOMPRA<-VALMORANGO+VALMACA 
FIMSE 
ESCREVAL("O VALOR A SER PAGO É DE: R$",TOTALCOMPRA:4:2) 
 
Fimalgoritmo 
DISCIPLINA: ALGORITMOS E LÓGICA DE PROGRAMAÇÃO 
//O Hipermercado Tabajara está com uma promoção de carnes que é 
//imperdível. Confira: 
//Até 5 Kg Acima de 5 Kg 
//File Duplo R$ 4,90 por Kg R$ 5,80 por Kg 
//Alcatra R$ 5,90 por Kg R$ 6,80 por Kg 
//Picanha R$ 6,90 por Kg R$ 7,80 por Kg 
 
//2.31 Para atender a todos os clientes, cada cliente poderá levar 
//apenas um dos tipos de carne da promoção, porém não há limites 
//para a quantidade de carne por cliente. 
//Se compra for feita no cartão Tabajara o cliente receberá ainda 
//um desconto de 5% sobre o total a compra. 
//Escreva um programa que peça o tipo e a quantidade de carne 
//comprada pelo usuário e gere um cupom fiscal, 
//contendo as informações da compra: tipo e quantidade de carne, 
//preço total, tipo de pagamento, valor do desconto e valor a pagar. 
 
Algoritmo "EXERCICIO2.31" 
// Disciplina : ALGORITMOS 
// Professor : ANGELO DA CUNHA SÁ 
// Descrição : Aqui você descreve o que o programa faz! (função) 
// Autor(a) : Nome do(a) aluno(a) 
// Data atual : 26/08/2016 
Var 
// Seção de Declarações das variáveis 
 OPCAO,TIPOCARNE,FORMPAG,TIPPAG:CARACTER 
 QTDCARNE,VALORCOMPRA,DESCONTO,PRECOFINAL:REAL 
 
Inicio 
// Seção de Comandos, procedimento, funções, operadores, etc... 
 ESCREVAL("O Hipermercado Tabajara está com uma promoção de carnes") 
 ESCREVAL("Confira:") 
 ESCREVAL 
 MUDACOR("AMARELO","FRENTE") 
 ESCREVAL("Até 5 Kg Acima de 5 Kg") 
 ESCREVAL("File Duplo R$ 4,90 por Kg R$ 5,80 por Kg") 
 ESCREVAL("Alcatra R$ 5,90 por Kg R$ 6,80 por Kg") 
 ESCREVAL("Picanha R$ 6,90 por Kg R$ 7,80 por Kg") 
 ESCREVAL 
 ESCREVAL 
 ESCREVAL("QUAL O TIPO DE CARNE ESCOLHIDA?") 
 ESCREVAL("DIGITE 1 - PARA FILE DUPLO") 
 ESCREVAL("DIGITE 2 - PARA ALCATRA") 
 ESCREVAL("DIGITE 3 - PARA PICANHA") 
 LEIA(OPCAO) 
DISCIPLINA: ALGORITMOS E LÓGICA DE PROGRAMAÇÃO 
 ESCOLHA OPCAO 
 CASO "1" 
 TIPOCARNE<-"FILÉ DUPLO" 
 ESCREVAL("QUAL A QUANTIDADE DESEJADA?") 
 LEIA(QTDCARNE) 
 SE QTDCARNE>5 ENTAO 
 VALORCOMPRA<-QTDCARNE*5.8 
 SENAO 
 VALORCOMPRA<-QTDCARNE*4.9 
 FIMSE 
 CASO "2" 
 TIPOCARNE<-"ALCATRA" 
 ESCREVAL("QUAL A QUANTIDADE DESEJADA?") 
 LEIA(QTDCARNE) 
 SE QTDCARNE>5 ENTAO 
 VALORCOMPRA<-QTDCARNE*6.8 
 SENAO 
 VALORCOMPRA<-QTDCARNE*5.9 
 FIMSE 
 CASO "3" 
 TIPOCARNE<-"PICANHA" 
 ESCREVAL("QUAL A QUANTIDADE DESEJADA?") 
 LEIA(QTDCARNE) 
 SE QTDCARNE>5 ENTAO 
 VALORCOMPRA<-QTDCARNE*7.8 
 SENAO 
 VALORCOMPRA<-QTDCARNE*6.9 
 FIMSE 
 OUTROCASO 
 ESCREVAL("OPÇÃO INVALIDA.... VOCE DEVE ESCOLHER ENTRE 1 E 3") 
 FIMESCOLHA 
 ESCREVAL("QUAL A FORMA DE PAGAMENTO?") 
 ESCREVAL("2 - CARTAO DE CRÉDITO") 
 ESCREVAL 
 ESCREVAL("QUALQUER OUTRA TECLA - PARA PAGAMENTO A VISTA") 
 ESCREVAL 
 LEIA(FORMPAG) 
 SE FORMPAG="2" ENTAO 
 DESCONTO<-VALORCOMPRA*0.05 
 PRECOFINAL<-VALORCOMPRA-DESCONTO 
 TIPPAG<-"CARTÃO DE CRÉDITO" 
 SENAO 
 PRECOFINAL<-VALORCOMPRA 
 TIPPAG<-"PAGAMENTO A VISTA" 
 FIMSE } 
DISCIPLINA: ALGORITMOS E LÓGICA DE PROGRAMAÇÃO 
 LIMPATELA 
 MUDACOR("VERMELHO","FRENTE") 
 ESCREVAL("ææææææææææ HIPERMERCADO TABAJARA ææææææææææ") 
 ESCREVAL 
 ESCREVAL("TIPO DE CARNE:.....................",TIPOCARNE) 
 ESCREVAL 
 ESCREVAL("A QUANTIDADE COMPRADA É:...........",QTDCARNE,"KG") 
 ESCREVAL 
 ESCREVAL("O VALOR TOTAL É DE:................R$",VALORCOMPRA:4:2) 
 ESCREVAL 
 ESCREVAL("A FORMA DE PAGAMENTO É:............",TIPPAG) 
 ESCREVAL 
 ESCREVAL("O VALOR DO DESCONTO É DE:..........R$",DESCONTO:4:2) 
 ESCREVAL 
 ESCREVAL("O VALOR A PAGAR É DE:..............R$",PRECOFINAL:4:2) 
 
 
 
 
Fimalgoritmo 
DISCIPLINA: ALGORITMOS E LÓGICA DE PROGRAMAÇÃO 
 
DISCIPLINA: ALGORITMOS E LÓGICA DE PROGRAMAÇÃO