ATPS Algoritimos
Por: Joandrey • 29/9/2015 • Trabalho acadêmico • 2.011 Palavras (9 Páginas) • 241 Visualizações
Aluno: Joandrey de Souza Maia dos Santos ; RA: 2484656183
Curso: Engenharia de Controle e Automação
ATPS de Algoritmos
EXERCÍCIO 1.0:
algoritmo "Calcular area de um triangulo"
// Função :
// Autor : Joandrey de Souza Maia dos Santos; RA: 2484656183
// Data : 16/9/2015
// Seção de Declarações
var
area, base, altura: real
inicio
// Seção de Comandos
{leitura de informacoes}
escreva ("informe o valor da base: ")
leia (base)
escreva ("informe o valor da altura: ")
leia (altura)
{calculo do valor da area do triangulo}
area<- (base*altura)/2
escreva ("valor da area ", area)
fimalgoritmo
EXERCÍCIO 1.1:
LETRA A:
algoritmo "Àrea do triângulo equilatero"
// Autor : Joandrey de Souza Maia dos Santos; RA: 2484656183
// Data : 22/09/2015
// Seção de Declarações
var
area, h, l: real
inicio
// Seção de Comandos
escreva("Informe o lado do triângulo equilatero: ")
leia (l)
escreval("")
h<- l*raizQ(3)/2
escreval("A altura do triangulo é ", h:2:2)
escreval("")
area<- l*h/2
escreva ("Então àrea do triângulo é ", area:2:2)
escreval("")
fimalgoritmo
LETRA B:
algoritmo "Área do triângulo em função do perímetro"
// Função :
// Autor : Joandrey de Souza Maia dos Santos; RA: 2484656183
// Data : 22/09/2015
// Seção de Declarações
var
area, p, a, b, c: real
inicio
// Seção de Comandos
Escreva ("Informe o lado A do triângulo: ")
leia (a)
Escreva ("Informe o lado B do triângulo: ")
leia (b)
Escreva ("Informe o lado C do triângulo: ")
leia (c)
limpatela
p<- a+b+c
escreval ("O perímetro desse triângulo é: ", p)
area<- raizQ(p*(p-a)*(p-b)*(p-c))
escreval("Portanto a área desse triângulo é: ", area:2:2)
fimalgoritmo
LETRA C:
algoritmo "Área do triângulo em função do ângulo interno"
// Função :
// Autor : Joandrey de Souza Maia dos Santos; RA: 2484656183
// Data : 23/09/2015
// Seção de Declarações
var
area,a,b,c:real
vs1,vs2,vs3:real
s_n:caractere
inicio
// Seção de Comandos
escreva ("Você possui o valor de 'A'? (S/N)")
leia (s_n)
se (s_n="S") entao
escreva ("Informe A: ")
leia (a)
escreva ("Você possui o valor de 'B'? (S/N)")
leia (s_n)
se (s_n="S") entao
escreva ("Informe B: ")
leia (b)
escreva ("Informe valor do ângulo interno de 'A' e 'B': ")
leia (vs1)
area<-1/2*a*b*(vs1*pi/180)
escreval ("A área do triângulo é: ", area:2:2)
senao
escreva ("Informe C: ")
leia (c)
escreva ("Informe valor do ângulo interno de 'A' e 'C': ")
leia (vs3)
area<-1/2*a*c*(vs3*pi/180)
escreval ("A área do triângulo é: ", area:2:2)
fimse
senao
escreva ("Informe B: ")
leia (b)
escreva ("Informe C: ")
leia (c)
escreva ("Informe valor do ângulo interno de 'B' e 'C': ")
leia (vs2)
area<-1/2*b*c*(vs2*pi/180)
escreval ("A área do triângulo é: ", area:2:2)
fimse
fimalgoritmo
EXERCÍCIO 2.0:
algoritmo "Sobra do salário após o pagamento das contas"
// Função : Mostrar o quanto resta de seu salário após ele pagar as três contas
// Autor : Joandrey de Souza Maia dos Santos; RA: 2484656183
// Data : 22/09/2015
// Seção de Declarações
var
salario, conta1, conta2, conta3, soma_das_contas, sobra_do_salario: real
inicio
// Seção de Comandos
{leitura de informações}
escreva ("Indique seu salário: ")
leia (salario)
escreva ("Indique o valor de sua conta de água: ")
leia (conta1)
...