algoritimo sabah

Prévia do material em texto

Michael Sabah UC13101872
1)
2)
3) principal
	// Declarações
inteiro numero_1,numero_2,numero_3;
	// Instruções
escreva("Digite o primeiro número:");
leia(numero_1);
escreva("Digite o segundo número:");
leia(numero_2);
escreva(" Digite o terceiro número:");
leia(numero_3);
se((numero_1>numero_2) e (numero_1>numero_3))entao
escreva(" Número 1 é o maior");
senao
se((numero_2>numero_1) e (numero_2>numero_3))entao
escreva("Número 2 é o maior");
senao
se((numero_3>numero_1) e (numero_3>numero_2))entao
escreva("Número 3 é o maior");
fimSe
fimSe
fimSe
fimPrincipal
EX 4:
principal
	// Declarações
	inteiro X;
	// Instruções
	escreval("Digite um numero");
	leia(X);
	se(X<0)entao
		escreval("O numero ",X," é negativo");
	fimSe
	se(X>0)entao
		escreva("O numero ",X," é positivo");
	fimSe
	se(X==0)entao
		escreval("O numero ",X," é nulo");
	fimSe
fimPrincipal
EX 5:
principal
	// Declarações
	inteiro X;
	// Instruções
escreval("Digite um numero");
leia(X);
se(X mod 2 ==0)entao
escreval("O numero é par");
senao
escreval("O numero é impar");
fimSe
fimPrincipal
EX 6:
principal
	// Declarações
	inteiro X;
	// Instruções
escreval("Digite um numero");
leia(X);
se((100<X)e(X<200))entao
escreval(" O numero escolhido esta entre o intervalo de 100 e 200:");
senao
escreval(" O numero escolhido não pertence ao intervalo de 100 e 200");
fimSe
fimPrincipal
EX 7:
 principal
	// Declarações
real x,y;
	// Instruções
escreval("Digite a primeira nota");
leia(x);
escreval("Digite a ssegunda nota");
leia(y);
se((x+y)/2>=7)entao
escreval("Aluno Aprovado");
senao
escreval("Aluno Reprovado");
fimSe
fimPrincipal
EX 8:
principal
	// Declarações
real x;
	// Instruções
escreval("Digite sua velocidade");
leia(x);
se(x>=80)entao
escreval("O condutor sera advertido, pois sua velocidade excede ao permitido na via!");
senao
escreval("O condutor não será advertido, pois é prudente!");
fimSe
fimPrincipal
EX 9:
principal
	// Declarações
real salario,prest,total;
	// Instruções
escreval("Digite o valor do salario");
leia(salario);
escreval("Digite o imprestimo");
leia(prest);
total=(salario*0.3);
escreval("O valor máximo do imprestimo é:",total);
se(prest<=total)entao
escreval("O empréstimo PODE ser concedido para o funcionário,pois não ultrapassar 30% do salário bruto");
senao
escreval("O empréstimo NÃO pode ser concedido ao funcionário, pois ultrapassar 30% do salário bruto ");
fimSe
fimPrincipal
EX 10:
principal
	// Declarações
real x,rej1,rej2;
	// Instruções
escreval("Digite o salario, para saber o reajuste");
leia(x);
se(x<=300)entao
rej1=(x*0.5+x);
escreval("O reajuste será para:",rej1);
fimSe
se(x>300)entao
rej2=(x*0.3+x);
escreval("O reajuste será para:",rej2);
fimSe
fimPrincipal
11)
principal
	// Declarações
inteiro L1,L2,L3;
	// Instruções
escreva("Entre com o primeiro lado;");
leia(L1);
escreva("Entre com o segundo lado:");
leia(L2);
escreva("Entre com o terceiro lado:");
leia(L3);
se((L1<L2+L3) e (L2<L1+L3) e (L3<L1+L2))entao
se((L1==L2) e (L1==L3))entao
escreva("Triângulo Equilátero!");
fimSe
se(((L1== L2) e (L1!= L3)) e ((L2== L1) e (L2!= L3)) e ((L3== L1) e (L3!= L2)))entao
escreva("Triângulo isósceles!");
senao
escreva("Triângulo Escaleno!");
fimSe
senao
escreva("Os lados Informados não formam um triângulo");
fimSe
fimPrincipal
11)
principal
	// Declarações
	inteiro L1,L2,L3;
	// Instruções
	escreva("Entre com o primeiro lado:");
	leia(L1);
	escreva("Entre com o segundo lado:");
	leia(L2);
	escreva("Entre com o terceiro lado:");
	leia(L3);
	se((L1<L2+L3) e (L2<L1+L3) e (L3<L1+L2))entao
		se((L1==L2) e (L1==L3))entao
			escreva("Triângulo Equilátero!");
		fimSe
		se(((L1== L2) e (L1!= L3)) ou ((L2== L1) e (L2!= L3)) ou ((L3== L1) e (L3!= L2)))entao
			escreva("Triângulo isósceles!");
		fimSe
		se(((L1!= L2) e (L1!= L3)) e ((L2!=L1) e (L2!=L3)) e ((L3!=L1) e (L3!=L2)))entao
			escreva("Triângulo Escaleno!");
		fimSe
	senao
		escreva("Os lados Informados não formam um triângulo");
	fimSe
fimPrincipal