Algoritmos prontos
Por: 1d3ls4n • 20/3/2016 • Trabalho acadêmico • 507 Palavras (3 Páginas) • 771 Visualizações
Algoritmo "(a+b)(a-b)"
// Professor: Carlos
// Autor: ADILSON ROMERO RA: 9915000544 2° A ENG. ELÉTRICA
// Data atual : 20/09/2015
Var
a,b,s: real
Inicio
Escreval ("digite o valor de a")
leia(a)
escreval ("digite o valor de b")
leia(b)
s<-a^2-b^2
escreval ("(a+b)(a-b)=",s)
Fimalgoritmo
Algoritmo "(a+b)^2"
// Professor: Carlos
// Autor: ADILSON ROMERO RA: 9915000544 2° A ENG. ELÉTRICA
// Data atual : 20/09/2015
Var
a,b,s: real
Inicio
Escreval ("digite o valor de a")
leia(a)
escreval ("digite o valor de b")
leia(b)
s<-a^2+2*a*b+b^2
escreval ("(a+b)²=",s)
Fimalgoritmo
Algoritmo "(a+b)^3"
// Professor: Carlos
// Autor(a): ADILSON ROMERO RA: 9915000544 2° A ENG. ELÉTRICA
// Data atual : 20/09/2015
Var
a,b,s: real
Inicio
Escreval ("digite o valor de a")
leia(a)
escreval ("digite o valor de b")
leia(b)
s<-a^3+b*a+b^2+3*a^2*b+b^3
escreval ("(a+b)³=",s)
Fimalgoritmo
Algoritmo "(a-b)^2"
// Professor: Carlos
// Autor: ADILSON ROMERO RA: 9915000544 2° A ENG. ELÉTRICA
// Data atual : 20/09/2015
Var
a,b,s: real
Inicio
Escreval ("digite o valor de a")
leia(a)
escreval ("digite o valor de b")
leia(b)
s<-a^2-2*a*b+b^2
escreval ("(a-b)²=",s)
Fimalgoritmo
Algoritmo "área de circunferência"
// Professor: Carlos
// Autor: ADILSON ROMERO RA: 9915000544 2° A ENG. ELÉTRICA
// Data atual : 20/09/2015
Var
a,r,p: real
Inicio
p<-3.14159
escreval ("digite o raio da circunferência")
leia(r)
a<-p*r^2
escreval ("o valor da área da circunferência é de:",a )
Fimalgoritmo
Algoritmo "área do triângulo"
// Professor: Carlos
// Autor: ADILSON ROMERO RA: 9915000544 2° A ENG. ELÉTRICA
// Data atual : 17/09/2015
Var
a,b,h: REAL
Inicio
Escreval ("entre com o valor da base (em CM):")
leia(b)
escreval ("entre com o valor da altura(em CM):")
leia(h)
a<-b*h/2
escreval ("o valor da área do triângulo é de:",a, "CM")
Fimalgoritmo
Algoritmo "área em função do angulo interno"
// Professor: Carlos
// Autor: ADILSON ROMERO RA: 9915000544 2° A ENG. ELÉTRICA
// Data atual : 20/09/2015
Var
a,b,c,teta: real
Inicio
Escreval ("digite o valor da base")
leia(b)
escreval ("digite o valor do lado direito do triângulo")
leia(c)
escreval ("digite o valor do angulo entre a base e o lado direito do triangulo")
leia(teta)
a<-1/2*b*c sen(teta)
escreval ("o valor da área do triângulo em função do angulo interno é:",a)
Fimalgoritmo
Algoritmo "área em função do perímetro"
// Professor: Carlos
// Autor: ADILSON ROMERO RA: 9915000544 2° A ENG. ELÉTRICA
// Data atual : 17/09/2015
Var
p,ar,a,b,c:real
inicio
escreval ("entre com o valor do lado esquerdo, em centímetro")
leia(a)
escreval ("entre com o valor do lado direito, em centímetro")
leia(c)
escreval ("entre com o valor da base, em centímetro")
leia (b)
p<-a+b+c
escreval ("o perímetro do triangulo é:",p)
...