Lista de exerc cios de Fundamentos da Computa o I

Lista de exercícios de Fundamentos da Computação I

Aluna: Fernanda Luísa Sousa de Sá
RA: A06157431
Curso: Engenharia Civil
Período: 2º

Exercício 1) Escreva um programa para ler 02 valores (considere que não serão informados valores iguais) e escrever o maior deles.

Program ler_valores;
Var
v1,v2,v:real;
Begin
Write ('digite o valor 1 ');
Read (v1);
Write ('digite o valor 2 ');
Read (v2); if (v1=v2) then
Begin
Write('o valor é igual');
End
Else if (v1>v2) then
Begin
v:=v1;
Write ('o valor maior é ', v:0:2); End Else Begin v:=v2; Write ('o maior valor é ',v:0:2); End;
End.

Exercício 2) Escreva um programa que verifique a validade de uma senha fornecida pelo usuário. A senha válida é o número 1234. Devem ser impressas as seguintes mensagens:

ACESSO PERMITIDO, caso a senha seja válida.

ACESSO NEGADO, caso a senha seja inválida.

Program senha;
Var
s:real;
Begin
Write ('digite a senha ');
Read (s); if (s=1234) then
Begin
Write ('ACESSO PERMITIDO'); End Else Begin Write ('ACESSO NEGADO');
End;
End.
Exercício 3) Faça um algoritmo que leia os valores A, B, C e diga se a soma de A + B é menor que C.

Algoritmo soma;
Variaveis
A,B,C:real;
Inicio
Escrever ('digite o valor A ');
Ler (A);
Escrever ('digite o valor B ');
Ler (B);
Escrever ('digite o valor C ');
Ler (C); se (A+B<C) então
Inicio
Escrever ('C é maior que A+B');
Fim
Sessão se (A+B>C) então
Inicio
Escrever ('C é menor que A+B');
Fim
Sessão se (A+B=C) então
Inicio
Escrever ('C é igual a A+B');
Fim;
Fim.