Aula 4

Exercício 01 :

Program quadrado ;//nome do programa
var n1, resultado: integer;//defini de que tipo são as variáveis

Begin
writeln(‘Digite o primeiro numero’);//escreve na tela a frase entre parenteses
read(n1);//atribui à variavel n1 o valor digitado pelo usuário

resultado := sqr(n1); //indica que o valor da variavel resultado vem da soma de n1²

writeln(‘O resultado do quadrado do numero ‘,n1,’ e ‘,resultado);//escreve na tela o resultado da conta
readkey;//utilizado pra fechar o programa apenas depois que o usuário pressionar enter
End.

Exercício 02

Program soma ;

Var n1, n2, resultado: integer;

Begin

writeln (‘Este programa faz a soma de dois números. Entre com o primeiro número:’);
read(n1);
writeln (‘Entre com o segundo número:’);
read(n2);

resultado := n1 + n2;

writeln (‘O resultado da soma de ‘, n1 ,’ com ‘, n2,’ e ‘,resultado);

readkey;

End.

Exercicio 03

Program SomaIdade;
var
nome1, nome2: String;//define que as variaveis listadas sao do tipo String ou seja, são uma cadeia de caracteres
resultado, id1, id2: integer;

Begin
writeln (‘Este programa faz a soma de idades de duas pessoas. Qual é o nome da 1º:’);
read(nome1);
writeln (‘Idade 1º pessoa:’);
read(id1);
writeln (‘Qual é o nome da 2 pessoa:’);
read(nome2);
writeln (‘Idade da 2 pessoa:’);
read (id2);
resultado := id1+id2;
writeln (‘A soma das idades de ‘, n1,’ com ‘,n2, ‘ é igual a ‘, resultado);
readkey;
End.

Exercicio 04

Program idade;
Var
nome: string;
resultado, AnoNasc, AnoAtual: integer;

Begin
writeln(‘Este programa calcula a idade de uma pessoa. Qual o seu nome ?’);
read(nome);
writeln(‘Digite o ano de nascimento:’);
read(AnoNasc);
writeln (‘Digite o ano atual:’);
read(AnoAtual);
resultado := AnoAtual – AnoNasc;
writeln(nome, ‘tem ‘,resultado,’ anos de idade’);
End
.

Exercicio 05

Program imc ;
Var
Nome: string;
resultado, altura: real;
peso: integer;

Begin
writeln(‘Este programa calcula o IMC de uma pessoa. Qual é o nome da pessoa:’);
read(nome);
writeln(‘Digite o peso:’);
read(peso);
writeln(‘Digite a altura:em M’);
read(altura);
resultado := (peso / sqr(altura)); //o uso de parenteses é facultativo
Writeln(‘O IMC de ‘, nome,’ e: ‘, resultado:2:2);
End.

Exercicio 06

Program Prestacao ;

Var
resultado, valor, taxa: real;//torna o calculo mais preciso
dias: integer; //dias é um dado do tipo inteiro, pois nao temos 1,5 dia

Begin
writeln (‘Este programa calcula o valor da prestação com juros. Qual é o valor da prestação:’); //o comando writeln cria uma nova linha
read(valor);//atribui o valor dado pelo usuario para a variavel valor
writeln(‘Digite o valor da taxa de juros ao dia:’);
read(taxa);
writeln(‘Digite quantos dias de atraso:’);
read(dias);
resultado := (valor + (valor * (taxa / 100) * dias) );//o uso de parenteses na expressão aumenta o grau de acerto
writeln (‘O valor final da prestação é de R$’, resultado:6:2); //o “:6:2” diz ao programa que ele deve mostrar 6 casas para a esquerda
// e 2 para a direita

End.

Exercicio 07

Program CelsiusFahrenheit ;
Var
resultado, Gcelsius: Real ;

Begin
writeln(‘Este programa converte temperatura de graus Celsius para graus Fahrenheit’);
writeln(‘Entre com a temperatura em Celsius:’);
read(Gcelsius);
resultado := ((9 * Gcelsius + 160) / 5);
writeln(Gcelsius:4:2, ‘graus celsius equivale a ‘,resultado:4:2,’ graus fahrenheit.’);
End.

Exercicio 08

Program VolumeLata ;
Var
raio, altura, resultado: Real;

Begin
writeln(‘Este programa calcula o volume de uma lata de óleo. Entre com o raio:’);
read(raio);
writeln(‘Entre com a altura:’);
read(altura);
resultado := (3.14159 * (raio*raio) * altura);
writeln(‘O valor da área da lata é ‘, resultado:4:4, ‘m’);
End.

Exercicio 09

Program VolumeCaixa ;

Var
comprimento, largura, altura, resultado: Real ;

Begin
writeln(‘Este programa calcula o volume de uma caixa. Entre com o comprimento:’);
read(comprimento);
writeln(‘Entre com a largura:’);
read(largura);
writeln(‘Entre com a altura:’);
read(altura);
resultado := comprimento * largura * altura;
writeln(‘O valor da área da caixa é ‘, resultado:2:2);

End.

Exercicio 10


Program TrocaDeValores ;

Var
c, a, b: integer;

Begin

writeln(‘Este programa troca o valor entre duas variáveis.’);
writeln(‘Entre valor da variável A:’);
read(a);
writeln(‘Entre com valor de B:’);
read(b);
c:=a;//aqui atribui o valor da variável ‘a’ à variável ‘c’
a:=b;//aqui atribui o valor da variável ‘b’ à variável ‘a’
b:=c;//aqui atribui o valor da variável ‘c’ à variável ‘b’
writeln(‘O valor de A agora é ‘,a,’ e de B é ‘, b);

End.

Exercico 11

Program IMC2 ;
Var
nome: string;
imc, peso, altura: real;

Begin

writeln(‘Este programa calcula o IMC de uma pessoa’);
writeln(‘Qual é o nome da pessoa:’);
read(nome);
writeln(‘Digite o peso:’);
read(peso);

writeln(‘Digite a altura:’);
read(altura);

imc := (peso / (altura*altura));
//Aqui começa a parte condicional do programa

//se o resultado do imc for menor que 18.5 ele imprime que você está abaixo do peso, e assim por diante
if (imc<18.5) then
writeln(‘Você está  abaixo do peso ideal’)
else//antes de ELSE não pode existir ‘;'(ponto e virgula) isso implica em um erro de sintaxe
if (imc>=18.5) and (imc<=24.9) then
writeln(‘Parabéns – você está  em seu peso normal’)
else
if (imc>=25.0) and (imc<=29.9) then
writeln(‘você está acima de seu peso (sobrepeso)’)
else
if (imc>=30.0) and (imc<=34.9) then
writeln(‘Obesidade grau I’)
else
if (imc>=35.0) and (imc<=39.9) then
writeln(‘Obesidade grau II’)
else
writeln(‘Obesidade grau III’);
readkey;

End.

Anúncios

Deixe uma Resposta

Preencha os seus detalhes abaixo ou clique num ícone para iniciar sessão:

Logótipo da WordPress.com

Está a comentar usando a sua conta WordPress.com Terminar Sessão / Alterar )

Imagem do Twitter

Está a comentar usando a sua conta Twitter Terminar Sessão / Alterar )

Facebook photo

Está a comentar usando a sua conta Facebook Terminar Sessão / Alterar )

Google+ photo

Está a comentar usando a sua conta Google+ Terminar Sessão / Alterar )

Connecting to %s

%d bloggers like this: