Exercicio 1

Prévia do material em texto

CURSO DE TGS, SIS e ENGCO 
 ALGORITMOS E TECNICAS DE PROGRAMAÇÃO – 2022/2 
 
Aluno: Lucas Farias Dos Santos 
Turma: Engenharia da computação 
Turno: Matutino 
 
 
 
A) Imprimir a mensagem: “É preciso fazer todos os algoritmos para 
aprender lógica.”. 
 
 Algoritmo "Produto" 
 
 var 
 inicio 
 Escreva ("É preciso fazer todos os algoritmos para aprender lógica.") 
 
 fimalgoritmo 
 
B) Criar um algoritmo que imprima o produto dos números 20 e 40. 
 
 Algoritmo "Produto" 
 
 var 
 pr: inteiro 
 
 inicio 
 pr <- 20 * 40 
 Escreva ("Produto = ",pr) 
 
 fimalgoritmo 
 
 
 
C) Criar um algoritmo que imprima a média aritmética dos números 5, 9 e 7. 
 
algoritmo "Média aritmetica" 
 
var 
Valor1, valor2,Valor3, media:real 
 
inicio 
Valor1<- 5 
Valor2<- 9 
Valor3<- 7 
media<- (Valor1+Valor2+Valor3)/3 
Escreva ("A média aritmética dos numeros", Valor1, Valor2, Valor3, " é" ,media) 
Fimalgoritmo 
 
D) Ler dois números inteiros e imprimi-los. 
algoritmo "Dois números" 
 
var 
 
N1, N2:real 
 
inicio 
Escreva ("Digite um número") 
Leia(N1) 
Escreva ("Digite outro número") 
Leia(N2) 
Escreva (N1,N2) 
fimalgoritmo 
 
E) Ler um número inteiro e imprimir seu sucessor e seu antecessor. 
 
algoritmo " sucessor e seu antecessor b " 
 
var 
N1, Ant,Suc: real 
 
inicio 
Escreva ("Digite um número") 
Leia(N1) 
Ant<-N1-1 
Suc<-N1+1 
Escreva("O Antecessor do número", N1 , " é",Ant ) 
Escreva ("O sucessor do número", N1 , " é",Suc ) 
fimalgoritmo 
 
F) Ler nome, endereço e telefone e imprimi-los. 
 
 Algoritmo " Ler nome, endereço e telefone " 
 
var 
Nome, endereco:caractere 
Tef: inteiro 
 
inicio 
 Escreva ("Digite o seu nome") 
Leia(Nome) 
Escreva ("Digite o seu endereco") 
Leia(endereco) 
Escreva ("Digite o seu telefone") 
Leia(Tef) 
Escreva ("O seu nome é", Nome, ", endereço", endereco, ", telefone", tef ) 
 
fimalgoritmo 
 
 
 
G) Ler dois números inteiros e imprimir a subtração. Antes do resultado, 
deverá aparecer a mensagem: o resultado da subtração é. 
 
algoritmo "Subtração" 
 
var 
Sub, N1, N2: real 
 
inicio 
Escreva ("Digite um numero") 
Leia(N1) 
Escreva ("Digite outro numero") 
Leia(N2) 
Sub<-N1-N2 
Escreva ("o resultado da subtração é", Sub ) 
 
fimalgoritmo 
 
H) Ler um número real e imprimir a quinta parte deste número. 
 
 
Algoritmo "Produto" 
 
var 
Numero: real 
 
inicio 
Numero<-50/5 
 
Escreva ("A quinta parte do numero", Numero,"é") 
 
fimalgoritmo 
 
I) Entrar com dois números inteiros e imprimir a seguinte saída: 
Dividendo:......... 
Divisor: ............ 
Quociente: ......... 
Resto:................. 
 
algoritmo "hora" 
 
VAR 
 
Dividendo, Divisor, Quociente, Resto: real 
 
INICIO 
Escreva ("Digite o primeiro número ") 
Leia (Dividendo) 
Escreva ("Digite o segundo número") 
Leia (Divisor) 
Quociente <- (Dividendo/Divisor) 
Resto <- (Dividendo%Divisor) 
Escreva ("Dividendo", Dividendo) 
Escreva ("Dividendo", Divisor) 
Escreva ("quociente", quociente) 
Escreva ("Resto", resto) 
 
FIMALGORITMO 
 
J) Criar um algoritmo que leia um valor de hora e informe quantos minutos 
se passaram desde o inicio do dia 
 
algoritmo "hora" 
 
hora,minutos, totalminutos, total: real 
 
inicio 
Escreva("Qual a hora atual") 
leia(hora) 
totalminutos<-(hora*60) 
Escreva ("Minutos") 
leia(minutos) 
total<-hora*60 
Escreva("Desde o início do dia até a hora informada já se passaram ", 
total,"minutos") 
 
Fimalgoritmo 
 
K) Efetuar o calculo do valor de uma prestação em atraso, utilizando a 
formula: prestacao = valor + (valor * (taxa/100) * tempo) 
 
algoritmo "prestacao" 
 
VAR 
t: inteiro 
prest, valor, taxa:real 
INICIO 
valor<-1200 
t<-5 
taxa<-2 
Escreva ("Valor da prestação é?", valor) 
prest<- Valor + (valor * (taxa/100) * t); 
Escreva ("Com o atraso, o novo valor da prestação é?", prest) 
 
FIMALGORITMO