Pessoal  a matéria da próxima aula tratará de erros comuns
Autor: Josue Leite | Publicado: 2012-02-25T08:44:00-08:00



Lógica de Programação Exercício de Fixação

Exercícios sobre a Sintaxe da&nbsp;

Linguagem de Programação PASCAL


Alunos saudações, nessa reta final da&nbsp;disciplina&nbsp;vamos nos concentrar nos erros mais comuns, meu desejo é que todos&nbsp;tivessem&nbsp;o mesmo aproveitamento, mas como&nbsp;não&nbsp;é possível vamos tentar&nbsp;homogeneizar&nbsp;as discrepâncias.Concentraremo-nos apenas nos erros&nbsp;mais&nbsp;frequentes e comuns com o intuito de se aperfeiçoar no pascal e na lógica quem&nbsp;já&nbsp;sabe se&nbsp;prevenira&nbsp;de erros crassos e os que ainda&nbsp;não&nbsp;obtiveram desejável grau de aproveitamento terão a oportunidade de se projetarem ao patamar necessário para a aprovação!

tenho visto com&nbsp;frequência&nbsp;erros de ponto e vírgula.Atenção a isso&nbsp;não&nbsp;tem ";" após o (begin) nem ao (var) pois estas são&nbsp;inícios&nbsp;de seções, identicamente a linha inicial das estruturas condicionais e de repetição, não há ";" após o (if &lt;condição&gt; then) nem após o (for i=1 to ? do) nem a nenhuma outra estrutura similar pois estas &nbsp;necessitam dos comandos respectivos subsequentes ok?Cada estrutura precisa identificar o comando que ela vai executar o ";"&nbsp;encerra cada comando e o "end;" encerra a estrutura ok?Exceto o "end"anterior ao "else" pois este faz parte do comando "if" anterior (if-then-else /se -entao-senao) beleza pura pessoal!

Bons estudos!

Indique os erros em cada um dos programas Pascal abaixo. A partir dos erros encontrados, elabore um
resumo sobre as regras de uso correto dos componentes da linguagem Pascal.
1. Declaração de Variáveis/Constantes, Comando de Atribuição e Expressões
Program Exemplo1;
Const
valor := 90.5 ;
Var
unitario, total, qtde : integer;
nome: char;
teste: boolean;
valor : real;
Begin
qtde:= 1.5;
total:= 3;
unitario := total / qtde ;
quadrado := total ** 2;
nome:= ‘teste’;
True := false;
letra1:= ‘A’ ;
letra2:= ‘B’ ;
teste := letra1 &gt; letra2
Valor := Valor * letra1;
End.
2. Funções do Pascal &nbsp;/ Comandos de Entrada e Saída de Dados (com uso de formatação)
Program Exemplo2;
Var
resp, outro: char;
num1, num2: integer;
resultado : real;
Begin
write(‘Entre os numeros para o calculo’, num1, num2);
resultado := succ num1 + sqrt num2;
write ( resp);
write (‘ Deseja ver os resultados ? (‘S’ / ‘N’)’ ) ;
readln (resp);
resp := ‘S’;
write (‘O resultado da expressao foi resultado’:6:3);
writeln(‘Deseja outro calculo ?’)
upcase(outro):= outro;
End.

3. Estrutura de Seleção (IF .....THEN ......ELSE)
Program Exemplo3;
Var
sexo, resp_carta : char;
idade, num_reserv, mulheres, num_carta, d_val, m_val, a_val : integer;
Begin
read (sexo, idade);
If &nbsp; sexo='M' &nbsp; and &nbsp;idade &gt;= '18' &nbsp;then
write (‘Digite o numero da carteira de reservista: ‘);
read (num_reserv);
else
mulheres:= mulheres + 1;
write (‘Possui carteira de motorista ?’);
read (resp_carta);
If &nbsp;resp_carta = ‘s’ or &nbsp;‘S’ then
write (‘Digite o numero da carteira e a data de validade:’)
read (num_carta, d_val, &nbsp;m_val, &nbsp;a_val);
If a_val = 1996 then
write (‘Atencao ! voce deve renovar sua carteira ! ‘)
else
write (‘Voce deve tirar sua carteira para poder dirigir !’);
End.
4. Estrutura de Repetição (WHILE &nbsp;..... DO)
Program Exemplo4;
Var
peso_ideal, altura : real;
sexo : char;
Begin
write (‘Entre sua altura (-1 para encerrar):’);
read (altura);
While &nbsp;altura &lt;&gt; -1 do
begin
&nbsp;write (‘Sexo:’);
read (sexo);
While (sexo &lt;&gt; ‘F’) or (sexo &lt;&gt; ‘f’) or
&nbsp; &nbsp; &nbsp;(sexo &lt;&gt; ‘M’) or (sexo &lt;&gt; ‘m’) do
&nbsp;write (‘erro : Digite M ou F para o sexo !’)
read (sexo);
If sexo = ‘M’ &nbsp;or sexo = ‘m’ then
peso_ideal := (72.7 * altura) - 58;
else
peso_ideal := (62.1 * altura) - 44.7;
write (‘Seu peso ideal eh ‘, peso_ideal );
end;
End.