Aula 11

Revisões

 

 

 

 

a) Elabore um algoritmo que, mediante a classificação numérica de 0 a 20 atribua os seguintes critérios: (Nota menor que 0 e maior que 20 = erro); (Nota entre 0 e 5 = negativa); (Nota entre 5 e 9 = nega tipo 2); ….. Atribua critérios à sua escolha para as restantes classificações.

b) Compila e explica cada linha do programa abaixo. (Nota: Podes comentar cada linha no próprio programa)

 

Program Program1a_Lesson10;

Uses Crt;

 

var x, y, z: integer;

begin

writeln('digite o valor de x');

read(x);

y:= 3;

if (x > 1) AND (sqrt(x) > 1) then

   if (x > 2) OR ((x * y) div (x mod 2) > 2)  then

   z := (x mod 4)*y

else

z := x + 3

 

else if x+2 < 3then

    z := x *y

 else

    z := y + x mod 3;

 

write(z);

   readln;

readln;

end.

c) Compila e explica cada linha do programa abaixo. (Nota: Podes comentar cada linha no próprio programa)

 

Program Variables;

Uses Crt;

Var a:String;{texts}

    b:Integer;{-32767..32768}

    c:Byte;{0..255}

    e:Word;{0..65535}

    z:integer;

    {etc}

{first you must learn the basics!!!!}

Begin

   ClrScr;{clear screen}

   a:='Turbo Pascal';

   Randomize;{shuffling}

   b:=Random(3000);

   c:=13;

   e:=42000;

   z:=Random(6) ;

   writeln('',b ,'   ', c, '   ',e, '  ',z );

   readln;

End.

d) Completa o seguinte programa

var

mes : integer ;

case mes of

1,3,5,7,8,10,12: writeln(’Meses de 31 dias’);

 

 

end

 

e) Compila e explica cada linha do programa abaixo. (Nota: Podes comentar cada linha no próprio programa)

Program Program1a_Lesson10;

Uses Crt;

var

i,k :  integer ;

x,y :  real ;

bb  :  boolean;

car : char;

begin

i:=  4 ;

x:=  2.3 ;

y:=   1 ;

k:= trunc(x);

y:=  (y + sqr(x)) /  2 ;

x:= i + k;

bb:= true ;

bb:= (y < x) or (3 >= k + sqrt(i));

bb:=(i>4);

writeln('dd',bb);

readln;

end.

f) Compila e explica cada linha do programa abaixo. (Nota: Podes comentar cada linha no próprio programa)

 

program xx;

Uses Crt;

label voltar;

 

var i: integer;

 

begin

 i:=0;

 voltar:clrscr;

  Randomize;

  i:= random(6);

  write(i);

  readln;

 goto voltar;

 

end.

 

 

 

g) Elabora, no Microsoft WORD, um glossário de termos em pascal (palavras reservadas). Divide o glossário entre palavras que já aplicas-te e que não aplicas-te, em casos práticos.

Exemplo:

Termo Pascal

Significado

Writeln

Permite enviar um output para o ecrã do computador, mudando de linha.

Write

 

 

 

 

 

h) Elabora um algoritmo que permita fazer um jogo de dados entre 2 adversários