Exercicios facebook

13. Escreve o algoritmo e programa em Pascal que:
Determine e escreva o dia da semana por extenso de acordo com o número inserido (de 1 a 7), se
for inserido um número diferente então a mensagem que deverá aparecer é "Foi inserido um nº
inválido".
Sugestão: Utiliza a estrutura de seleção múltipla.
Bom trabalho!
Leia o nome e a nota quantitativa na disciplina de API e que imprima a respectiva classificação
qualitativa conforme a seguinte tabela:
- Se nota estiver entre 0 e 5 valores a classificação é fraco.
- Se nota estiver entre 5,1 e 9,9 valores a classificação é insuficiente....
- Se nota estiver entre 10 e 13 valores a classificação é suficiente.
- Se nota estiver entre 13,1 e 16 valores a classificação é bom.
- Se nota estiver entre 16,1 e 20 valores a classificação é muito bom.
Nota: Resolve o problema usando a estrutura de selecção composta e a estrutura de selecção
múltipla.
Bom trabalho!
Exercício 14
Program Nota_Aluno;
uses Wincrt;
var...
Nome:string;
X:real;
begin
clrscr;
{10. Ler a nota}
Write('Introduza o seu nome: ');readln(Nome);
Write('Insira a sua nota: ');readln(X);
{20. Comparar valores e apresentar valor}
If (X>=0) and (X<=5) then
begin
Write('A nota do ',Nome,' é fraca');
end

else if (X>=5.1) and (X<=9.9) then
begin
Write('A nota do ' ,Nome, 'é insuficiente');
end
else if (X>=10) and (X<=13) then
begin
Write('A nota do ',Nome, ' é suficiente');
end
else if (X>=13.1) and (X<=16) then
begin
Write('A nota do ',Nome, ' é bom');
end
else if (X>=16.1) and (X<=20) then
begin
Write('A nota do ',Nome, ' é muito bom')
end
else if (X<0) then
begin
Write('Desculpe, regresse à primária')
end
else if (X>20) then
begin
Write('Parabéns, rebentou a escala')
end
end.
Leia uma data no formato ("dd" "mm" "aaaa") e verique se esta é válida ou não.
Considerações:...
Fevereiro tem sempre 28 dias;
Abril, Junho, Setembro, Novembro têm 30 dias;
Todos os outros meses têm 31 dias;
NOTA: usa a estrutura de selecção multipla.
Bom trabalho!
Algoritmo verfica data
10 [ Ler dia, m೦s e ano]

Ler (dd)
Ler (mm)
Ler (aaaa)
20 [Verificar se data introduzida ೦ v೦lida]
Select case mm
case 1,3,7,8,10,12: Se (dd>=1) e (dd<=31)
Então Escreve('Data v೦lida')
Senao Escreve ('O dia introduzido ೦ Inválido')
case 2: case 4,6,9,11:
Else
30 [Terminar]
Fim
16. Realiza uma pesquisa na rede sobre:
a) Fluxogramas, o que são e para que servem.
b) A partir de um exercício já resolvido constrói o respectivo fluxograma.
17. Exercícios sobre a estrutura de repetição DO FOR (Fazer Para):
a) Escreva um algoritmo em PORTUGOL que imprima todos os números inteiros de 0 a 50.
b) Escreva um algoritmo em PORTUGOL que imprima todos os números inteiros do intervalo
fechado de 1 a 100....
c) Escreva um algoritmo em PORTUGOL que imprima todos os números inteiros de
100 a 1 (em ordem decrescente).
d) Escreva um algoritmo em PORTUGOL que imprima todos os números inteiros de 100 a 200.
e) Escreva um algoritmo em PORTUGOL que imprima todos os números inteiros de
200 a 100 (em ordem decrescente).
f) Escreva um algoritmo em PORTUGOL que imprima todos os números múltiplos de 5,no intervalo
fechado de 1 a 500.
g) Escreva um algoritmo em PORTUGOL que imprima todos os números pares do intervalo fechado
de 1 a 100.

h) Escreva um algoritmo em PORTUGOL que imprima os 100 primeiros números ímpares.
António Barroso
18. Exercícios sobre a estrutura de repetição DO FOR (Fazer Para):
a) Criar um algoritmo em PORTUGOL que imprima todos os números de 1 até 100, inclusive, e a
média de todos eles.
b) Criar um algoritmo em PORTUGOL que leia um número (NUM), e depois leia NUM números
inteiros e imprima o maior deles. Supõe que todos os números lidos são positivos.
exercicio 18B)
Program n_maior;
Uses wincrt;
...
var
num:integer;
i:integer;
valor:integer;
maior:integer;
{10-Cálculos}
begin
clrscr;
maior:=0;
write('Insira o número de vezes que pretende que o ciclo se repita');read(num);
For i:=1 to num do
begin
write('Insira um número inteiro');read(valor);
begin
If (valor>maior) then
maior:=valor;
end;
end;
{20-Apresentar resultados}
write('O número maior é ',maior);
readln;
{30-terminar}
end.
Program n_maior;
Uses wincrt;

var
num,i,valor,maior:integer;
{Ler valores}
begin
clrscr;
maior:=0;
write('Qual o número de voltas do ciclo? ');
readln(num);
{Calculo do maior}
For i:=1 to num do
begin
write('Insira um número inteiro: ');
readln(valor);
If valor>maior then maior:=valor;
end;
{Apresentar resultados}
write('O número maior é ',maior);
{Terminar}
end.
19. Exercícios sobre a estrutura de repetição DO WHILE (Fazer Enquanto):
a) Escreve um algoritmo em PORTUGOL e programa em Pascal que leia números introduzidos pelo
utilizador e imprima o triplo de cada número. O algoritmo deve terminar quando o número –999 for
digitado.
b) Escreve um algoritmo em PORTUGOL e programa em Pascal que leia números introduzidos pelo
utilizador enquanto eles forem positivos e no final o algoritmo deve imprimir quantos números
foram digitados.
Ajuda para o Exercicio 19 a)
Ler (Num)
do while Num <> -999
Triplo <-- 3*Num
Escrever (Triplo)
Ler (Num)
Exercício 20:
a) Escreve um algoritmo em PORTUGOL e Programa em PASCAL que leia números enquanto eles
forem positivos e no final do algoritmo deve imprimir a média dos números digitados.

b) Escreve um algoritmo em PORTUGOL e Programa em PASCAL que leia vários números e que
imprima quantos números entre 100 e 200 foram digitados. Quando o valor 0 (zero) for lido, o
algoritmo deverá terminar.

Exercicios facebook

Mais conteúdo relacionado

Mais procurados (19)

Semelhante a Exercicios facebook (20)

Mais de António Barroso (8)

Último (20)

Exercicios facebook