Baixe o app para aproveitar ainda mais
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
Compartilhar