Gabarito Aula 04 Algoritmo

Prévia do material em texto

Algoritmos e Programac¸a˜o
Computacional
Gabarito
Exerc´ıcio 05
Algoritmo 1: soma e produtos dos n primeiros naturais
Entrada: n
Sa´ıda: soma e produto dos n nu´meros naturais
1 in´ıcio
2 declare n, i, soma, prod: inteiro;
3 soma ← 0;
4 prod ← 1;
5 escrever(”Digite um nu´mero natural: ”);
6 ler(n);
7 para i ← 1 ate´ n fac¸a
8 soma ← soma + i;
9 prod ← i*prod;
10 fim
11 escrever(”soma e produto = ”, soma, prod);
12 fim
Algoritmos e Programac¸a˜o
Computacional
Gabarito
Exerc´ıcio 06
Algoritmo 2: Exerc´ıcio 06
Entrada: n coordenadas reais (x ,x)
Sa´ıda: informa se cada coordenada pertence ou na˜o a` regia˜o H
1 in´ıcio
2 declare n, i: inteiro;
3 declare x, y: real;
4 escrever(”Digite o numero de pontos: ”);
5 ler(n);
6 para i ← 1 ate´ n fac¸a
7 escrever(”Digite as coordenadas do ponto :”, i);
8 ler(x, y);
9 se x ≥ 0 e y ≥ 0 e x*x + y*y ≤ 1 enta˜o
10 escrever(”Pertence”);
11 sena˜o
12 escrever(”Nao pertence”);
13 fim
14 fim
15 fim
Algoritmos e Programac¸a˜o
Computacional
Gabarito
Exerc´ıcio 07
Algoritmo 3: Maior nu´mero digitado
Entrada: Sequeˆncia com n nu´meros
Sa´ıda: Maior nu´mero digitado
1 in´ıcio
2 declare num, maior: inteiro;
3 escrever(”Digite o primeiro numero da sequencia: ”);
4 ler(num);
5 maior ← num;
6 enquanto num > 0 fac¸a
7 escrever(”Digite outro numero inteiro: ”);
8 ler(num);
9 se num > maior enta˜o
10 maior ← num;
11 fim
12 fim
13 escrever(”O maior numero eh: ”, maior);
14 fim
Algoritmos e Programac¸a˜o
Computacional
Gabarito
Exerc´ıcio 08
Algoritmo 4: Nu´mero primo
Entrada: num
Sa´ıda: informa se num e´ primo ou na˜o
1 in´ıcio
2 declare num, flag, cont: inteiro
3 /*O nu´mero e´ primo ate´ que se prove o contra´rio*/
4 flag ← 0;
5 escrever(”Digite um numero inteiro: ”);
6 ler(num);
7 para cont ← 2 ate´ num div 2 fac¸a
8 se num mod cont = 0 enta˜o
9 flag ← 1;
10 fim
11 fim
12 se flag = 0 enta˜o
13 escrever(”O numero eh primo”);
14 sena˜o
15 escrever(”O numero nao eh primo”);
16 fim
17 fim
Algoritmos e Programac¸a˜o
Computacional
Gabarito
Exerc´ıcio 09
Algoritmo 5: nu´mero triangular
Entrada: num, prod, aux
Sa´ıda: informa se num e´ tringular ou na˜o
1 in´ıcio
2 declare num, prod, aux: inteiro;
3 aux ← 1;
4 escrever(”Digite um numero: ”);
5 ler(num);
6 prod ← aux*(aux+1)*(aux+2);
7 enquanto prod < num fac¸a
8 aux ← aux + 1;
9 prod ← aux*(aux+1)*(aux+2);
10 fim
11 se prod = num enta˜o
12 escrever(”Eh triangular”);
13 sena˜o
14 escrever(”Nao eh triangular”);
15 fim
16 fim
Algoritmos e Programac¸a˜o
Computacional
Gabarito
Exerc´ıcio 10
Algoritmo 6: bina´rio para decimal
Entrada: bin
Sa´ıda: binario bin em base decimal
1 in´ıcio
2 declare bin, pot, dec: inteiro;
3 escrever(”Digite um nu´mero em base binaria: ”);
4 ler(bin);
5 dec ← 0;
6 pot ← 1;
7 enquanto bin 6= 0 fac¸a
8 dec ← dec + (bin mod 10)*pot;
9 bin ← bin div 10;
10 pot ← pot*2;
11 fim
12 escrever(”Numero em base decimal = ”, dec);
13 fim
Algoritmos e Programac¸a˜o
Computacional
Gabarito
Exerc´ıcio 11
Algoritmo 7: fatores primos
Entrada: n
Sa´ıda: decomposic¸a˜o de n em fatores primos
1 in´ıcio
2 declare n, fator: inteiro;
3 fator ← 2;
4 escrever(”Digite um natural maior que 1: ”);
5 ler(n);
6 enquanto n > 1 fac¸a
7 enquanto n mod fator = 0 fac¸a
8 n ← n div fator;
9 escrever(”fator = ”, fator);
10 fim
11 fator ← fator + 1;
12 fim
13 fim