imei

cd

sdac

Tradutor

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

ps

ps

ps

BLOG

xxxx

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

11ºL15/16

 

12ºL16/17

 

11ºN16/17

 

 

 

 

 

 

 

 

 

 

 

Relatório EXCEL   --------   PTE   ------  JAVA  -----  VisualBasic

 

CURSO PROFISSIONAL TÉCNICO DE GESTÃO DE EQUIPAMENTOS INFORMÁTICOS

 

 

Recursos

 

 

 

 

 

Aula1

 

E-mail

Regras da sala

Pré-requisitos

Profcarlos2006@gmail.com

 

 

Apresentação aos alunos. Regras de funcionamento da sala de aula. Apresentação do programa da disciplina. Introdução à programação em pascal. Download e instalação do compilador “Lazarus”

 

Introdução ao pascal

PPTX

Editor

Lazarus download

or

 

Estrutura do programa

program somadoisnum;
{programa que soma dois números e exibe o resultado no ecrã}
var n1, n2, result : integer;

begin
  readln(n1);
  readln(n2);
  result := n1 + n2;
  writeln(result);
end.

 

 

Output

writeln(result);

 

 

 

 

Instruções

Os 3 principais tipos de instruções:

Entrada:    ReadLn

Atribuição: area:= base * altura / 2

Saída:      WriteLn

 

 

EXPRESSÕES MATEMÁTICAS

+ adição ; 

- subtração ;

* multiplicação ;

/ divisão ;

DIV divisão

writeln('2 + 5 = ' ,   2+5);

 

Operadores aritméticos reais

 

Operadores aritméticos inteiros

adição

+

 

adição

+

 

subtração

-

 

subtração

-

 

divisão

/

 

divisão

Div

 

multiplicação

*

 

multiplicação

*

exemplo

 

 

 

Resto da divisão

mod

8 mod 2=0

7 mod 2=1

 

 

 

 

 

 

 

 

 

Aula2

Operadores

- Operadores.

- Precedência dos operadores.

Reais ------- div  /

Inteiros --- div

 

Algumas Palavras Reservadas em Pascal:

Until; Boolean; Char; String; Case; Downto; And; While; Write; Do; End; Begin; Integer; Read; Or; For; To; Program; Real; Repeat; If; Else; Go To; Var; Array;

 

Desenvolver algoritmos aplicando operadores matemáticos com recurso a input e output

 

 

Bases do pascal

 

 

 

 

 

Aula3

Variáveis

Tipos de variáveis:

Char

String

Real

Integer

boolean

    var result, potencia, base:real;

begin

  base:=2;

  potencia:=8;

  result:=exp(potencia*ln(base));

  writeln('',result:2:0);

  readln();

end. 

05/10/2015

T1-12

 

09/10/2015

T2-12

Desenvolver algoritmos aplicando operadores matemáticos e variáveis com recurso a input e output. Exercícios com strngs e caracteres.

 

 

 

 

 

 

 

 

 

Constantes

 

PROGRAM exemplo;

CONST { Declaração de constantes }

 PI = 3.1415926;

VAR { Declaração de Variáveis }

 Raio,Area_da_Circunferencia : REAL;

BEGIN { Comandos do Programa }

 write('Forneça o raio: ');

 readln (Raio);

 Area_da_Circunferencia := PI * ( Raio * Raio ); { Area = PI * R2 = PI * R * R }

 writeln('Área = ',Area_da_Circunferencia);

 writeln(PI);

 readln;

END.

 

 

 

 

 

 

 

 

 

 

Aula4

Consolidação

 

Aula 4 (Fichas)

 

Comentários

{ bla, bla, ... }

 

Pascal Não é Case Sensitive (begin = BEGIN = BeGiN)

 

Funções aritméticas standard

SQR

SQRT

ABS

var x, y: integer;

  z:real;

begin

  x:=8;

  y:=25;

  z:=-3;

   writeln('quadrado de x  ', sqr(x) );

   writeln('raiz quadrada de y  ', sqrt(y) );

   writeln('valor absoluto de z  ', abs(z) );

   readln;

end.

 

 

12/10/2015

T1-16

 

16/10/2015

T2-16

Consolidação dos conhecimentos adquiridos.

Resolução de exercícios práticos.

 

 

 

 

 

 

 

 

Aula5

Ciclo IF Estrutura Condicional

IF…THEN

 

Estrutura Condicional simples

SE = IF

ENTÃO = THEN

INÍCIO = BEGIN

FIM = END

var X, Y : Integer;

begin

Writeln ('Digite dois Números:'); { Mostra no ecrã a mensagem}

Readln (X, Y); { Lê os dois números }

If (X > Y) Then {Condição - SE X for maior que Y}

Writeln ('X é Maior que Y, e seu valor é = ', X);

end.

 

OPERADORES RELACIONAIS

Maior

> 

Menor

< 

Maior ou igual

>=

Menor ou igual

<=

Igual

=

Diferente

<> 

v

19/10/2015

T1-20

 

23/10/2015

T2-20

Introdução às estruturas condicionais. Operadores relacionais. Resolução de exercícios relativos aos temas abordados.

 

 

 

 

 

 

 

 

Aula6

Ciclo IF Estrutura Condicional

IF…THEN…ELSE

 

 

Estrutura Condicional composta

SE = IF

ENTÃO = THEN

SENÃO = ELSE

INÍCIO = BEGIN

FIM = END

 

var X, Y : Integer;

   begin

     Writeln ('Entre com dois Números:');    

     Readln (X, Y);    

   If ((X > Y) or (Y <> 0)) Then

     Begin

       Writeln ('X é Maior que Y OU y é diferente de 0');

       Writeln ('O Valor de X é =', X);

     End {FIM}

     else

     writeln ('FALSO nenhuma das condições propostas não se verifica');

       readln;

end.

 

 

OPERADORES LÓGICOS

Multiplicação Lógica

E

AND

Resulta VERDADEIRO se ambas as partes forem verdadeiras

Adição lógica

Ou

OR

Resulta VERDADEIRO se uma das partes é verdadeira.

Negação

Nao

NOT

Nega uma afirmação, invertendo o seu valor lógico: se for

VERDADEIRO torna-se FALSO, se for FALSO torna-se VERDADEIRO

v

26/10/2015

T1-24

 

30/10/2015

T2-24

Estrutura condicional composta. Introdução aos operadores lógicos.

Resolução de exercícios relativos aos temas abordados.

 

Aula7

Exercícios de consolidação

Ciclo IF Estrutura Condicional

ELSE IF

Estrutura Condicional composta

IF …. THEN

ELSE IF… Then

ELSE

var a, b, c:real;

 Begin

  readln(a, b, c);

      If (a>b) and (b>c)then

       writeln('maior a')

       else

       if (b>a) and (b>c) then

      writeln('maior b')

  else

       writeln('maior c');   

 End.

 

 

02/11/2015

T1-28

 

06/11/2015

T2-28

Consolidação dos conhecimentos adquiridos.

Resolução de exercícios práticos. Estrutura condicional composta (ELSE IF).

 

TURNO 2 Visita de estudo “Lisboa Games  Week”

 

 

 

 

 

 

 

 

Aula8

Exercícios de consolidação

Ciclo IF Estrutura Condicional

IF…THEN - IF…THEN - ELSE ELSE

 

Estrutura Condicional Aninhada

 

A estrutura condicional aninhada é semelhante à estrutura condicional com AND

Var X, Y, A, B : Integer;

Begin

  Readln (X,Y,A,B);

  If (X > Y) Then { Entrará no Próximo If apenas se a variável X for maior que a variavel Y }

   If (A > B)

    Then Writeln ('X é maior que Y e A é maior que B') {Sem ";"}

   Else Writeln ('A não é Maior que B')   {Sem ";"}

  Else Writeln ('X não é maior que Y');

  readln;

End.

09/11/2015

T1-32

 

13/11/2015

T2-32

Consolidação dos conhecimentos adquiridos. Resolução de exercícios práticos. Estrutura condicional composta aninhada (If---THEN   IF...THEN).

 

 

 

 

 

 

 

 

 

 

 

Contabilizadas duas aulas (45+45) para cada turno

16/11 e (20/11 faltei no dia 20)

Consolidação dos conhecimentos adquiridos. Resolução de exercícios práticos. Estrutura condicional CASE ... OF

 

 

 

 

20/11 Falta. A aula será compensada em data e hora a combinar com os alunos da turma. Ensino Profissional.

T1-34

T2-34

 

 

 

 

 

 

 

 

 

 

Aula9

Estrutura Case

Ciclo IF Estrutura Condicional

 

CASE

CASE … OF

 

Case X Of

 

No comando CASE o seletor tem que ser do tipo char, integer ou boolean.

 

O case é muito utilizado na construção de menus

   Var Y, X : Integer;

    Begin

     Readln (X, Y);

     Case X Of

          1 : Begin

                Y := 4;

                Writeln ('Entrou no Primeiro alvo');

              End;

           2 : Begin

                Y := 3;

                Writeln ('Entrou no Segundo alvo');

              End;

           3 : Writeln ('Entrou no Terceiro alvo');

          Else Writeln ('Entrou no Else');

     End;

   End.

23/11/2015

T1-38

 

27/11/2015

T2-38

Consolidação dos conhecimentos adquiridos. Resolução de exercícios práticos. Estrutura condicional CASE ...

 

 

 

 

 

 

 

 

Aula10

Revisões

 

Acentuação no pascal (procurar letra na tabela ascii)

Writeln('Hoje ',chr(138),' dia de'); Hoje é dia de

 

Funções ORD e CHR

writeln('valor absoluto de z  ',  ord('A') );

writeln('valor absoluto de z  ',  chr(65) );

 

Program Program1a_Lesson10;

Uses Crt;

Label Return;  {used respectively with the

                goto statement; beware of it}

Var SEL : Integer;

    YN : Char;     

Begin

 Return: Clrscr;

 Writeln('[1].PLAY GAME');

 WRITELN('[2].LOAD GAME');

 WRITELN('[3].MULTIPLAYER');

 WRITELN('[4].EXIT GAME');

 Writeln('note: Do note press anything except');

 Writeln('numbers; otherwise an error occurs!');

 Readln(SEL);

 If SEL = 1 then

  Begin

   Writeln('Are you able to create a game');

   Writeln('of yourself using pascal??');

   Delay(2000);

   Goto Return;

30/11/2015

T1 - 42

 

03/12/2015

T2 42

 

Aula do turno 2 mudou para 5º feira

Consolidação dos conhecimentos adquiridos. Resolução de exercícios práticos. Ficha de avaliação com consulta.

 

 

 

 

 

 

 

 

Aula11

Avaliação/ Revisões

 

Program Variables;

Uses Crt;

Var a:String;{texts}

    b:Integer;{-32767..32768}

    c:Byte;{0..255}

    e:Word;{0..65535}

    z:integer;

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.

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('xxx',bb);

readln;

end.

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.

07/12/2015

T1 - 46

 

10/12/2015

T2 - 46

Consolidação dos conhecimentos adquiridos. Resolução de exercícios práticos. Ficha de avaliação.

 

 

 

 

 

 

 

 

Aula12

Autoavaliação

 

var i: integer;

begin

 i:=0;

 repeat

  i:= i+1;

  write(i)

 until i>=5 ;

 readln;

end.

 

14/12/2015

T1 - 50

 

17/12/2015

T2 - 50

Balanço das atividades desenvolvidas ao longo do primeiro período. Preenchimento das fichas de auto-avaliação.

 

 

 

 

FIM do 1º Período

Trabalho por resolver glossário de termos em pascal

 

 

 

 

 

 

 

 

 

 

Aula13

Revisões

Ciclo de repetição

Ciclo While

 

Contador

while  CONDIÇÃO  do

 

 

 

 

program whileLoop;

var

   a: integer;

begin

   a := 10;

   while  a < 20  do

   begin

      writeln('O valor de a é: ', a);

      a := a + 1;

   end;

end

program whileLoop;

 var

    cont: integer;

 begin

    cont := 1;

    while  cont < 11  do

    begin

       writeln('O valor de a é: ', cont);

      writeln('ESSG');

       cont := cont + 1;

    end;

         readln();

end.

 

 

 

 

04/01/2016

T1 - 54

 

07/01/2016

T2 – 54

Revisões de matéria dada. Introdução ao ciclo de repetição “While”. Conceito de contador. Resolução de exercícios práticos.

 

 

 

 

 

 

 

 

Aula13_1

Revisões

CicloWhile

 

 

 

 

 

 

 

 

 

 

 

 

Aula14

Ciclo de repetição

Ciclo repeat

Repeat

..

Programa

..

Until CONDIÇÃO

 

program repeatUntilLoop;

var

   a: integer;

begin

   a := 10;

   repeat

      writeln('value of a: ', a);

      a := a + 1

   until a = 20;

end.

 

 

program FPProgT10_1;

  uses  crt;

  var

  sel:char;

 

begin

  repeat

    write('Make A Selection (A or B): ');

    readln(sel);

  until (sel = 'A') or (sel = 'a') or (sel = 'B') or (sel = 'b');

 

  case sel of

  'A','a':    begin

    writeln('A Was Selected');

    end;

  'B','b':    begin

    writeln('B Was Selected');

    end;

  end;

    writeln;

  writeln;

  writeln('Press <Enter> To Quit');

  readln;

end.

 

 

 

 

 

 

11/01/2016

T1 - 58

 

14/01/2016

T2 – 58

Introdução ao ciclo de repetição “repeat”. Conceito de contador. Resolução de exercícios práticos.

 

 

 

 

 

 

 

 

 

 

 

Formação Android

 

 

 

 

 

 

 

 

 

 

Aula15

For to do

for variável := valor-inicial to valor-final do

 

 

program FPProgT10_1;

  uses  crt;

  var

  x:integer;

 

begin

  for x:=1 to 10 do

  writeln('ola ' , x);

  readln;

end. 

 

program FPProgT10_1;

  uses  crt;

  var

  x:integer;

 

begin

  for x:=10 downto 1 do

  writeln('ola ' , x);

  readln;

end.. 

program FPProgT10_1;

  uses  crt;

  var

  x, y:integer;

 

begin

  for x:=1 to 10 do

  for y:=1 to 2 do

  writeln('ola ' , x);

  readln;

end.

program FPProgT10_1;

  uses  crt;

  var    x,i,j:integer;

 

begin

  writeln('valor de i'); readln(i);

  writeln('valor de j'); readln(j);

  for x:=i to j do

  writeln('ola ' , x);

  readln;

end.

62

18/21 j

Introdução ao ciclo de repetição for Loop. Resolução de exercícios práticos.

Conjugação dos ciclos estudados.

 

 

 

 

 

 

 

 

- Avaliação semana18 a 22 janeiro + semana de 25 a 29

- Data de entrega do glossário 04/02/2015.

- Criar projeto em pascal tentado recorrer às aprendizagens

 

 

 

 

 

 

 

 

 

 

Aula16

PPTX intro. vetores

 

FicheiroVetorMatriz

 

Vetores

VETOR  Sintaxe:

<nome array>: array [dimensão] of <tipo>;

vet:array[1..6] of integer;

 

MATRIZ  Sintaxe:

<nome array>: array [dimensões] of <tipo>;

mat:array[1..5,1..3] of integer; {matriz 19x3}

 

PROGRAM EJER81;

 USES CRT;

 VAR arrnum:ARRAY [4..14] of INTEGER;

  VAR i:INTEGER;

BEGIN

 ClrScr;

 FOR i:=4 TO 14 DO arrnum[i]:=i;

 

     FOR i:=4 TO 14 DO

     BEGIN

      WRITELN('Numero: ',arrnum[i]);

     END;

     readln;

END.

 

program xrray;

  uses crt;

Var

    myVar   : Integer;

    myArray : Array[1..6] of Integer;

Begin

 myArray[2] := 25;

 myArray[3] := 225;

 myArray[4] := 2;

 myVar := myArray[2];

 writeln(myvar, '    ', myArray[3]);

 writeln(myArray[4]);

 readln;

End.

 

arrnum[i]  --- Valor do array

I   ---------- Posição do array

Arrnum   ----- Nome do array

EXEMPLO ------ WRITELN('A posição do array ', i, ‘tem o valor de’,arrnum[i]);

 

66

26/28 janeiro

Revisões. Introdução aos arrays e vetores

 

 

 

 

 

 

 

 

 

 

 

Formação Páginas web básico

67 e 68

Aula extra. Introdução ao funcionamento das páginas web. Ferramentas de edição e transferência de ficheiros. Linguagem de marcação HTML.

 

 

 

 

 

 

 

 

Aula17

PPTX intro. vetores

 

FicheiroVetorMatriz

 

Vetores

GotoXY(10,10);

Program Example6;

uses Crt;

{ Program to demonstrate the GotoXY function. }

begin

  ClrScr;

   GotoXY(10,10);

  Write('posicao coluna 10 linha 10');

  GotoXY(50,20);

  Write('posicao coluna 50 linha 20');

  GotoXY(1,22);

  readln;

end.

 

 

69, 70, 71 72

1/4 fevereiro

Continuação da aula anterior.

Construção do glossário em pascal.

Revisões. Introdução aos arrays e vetores

 

 

 

 

 

 

 

 

 

 

 

Entre 8 e 10 de fevereiro de 2016, inclusive

carnaval

 

 

 

 

 

 

 

 

 

Aula18

11-02-2016

 

Aula de avaliação Pascal

Teste escrito pascal – O teste consiste numa série de programas em pascal. O objetivo é aferir a capacidade de abstração e concentração. Durante a avaliação do teste não será dada importância aos detalhes como (; e outros), mas sim ao raciocínio.

11-02-2016

5º feira

T1-73 74

T2-73 74

Avaliação

 

 

 

 

 

 

 

 

Aula19

FicheiroVetorMatriz

 

 

Matrizes

 

program ex3;

var

   matriz:array[1..2,1..2] of integer;

   poslinha,poscoluna:integer;

Begin

     writeln('Digite os valores');

     for poslinha:=1 to 2 do

         for poscoluna:=1 to 2 do

             readln(matriz[poslinha,poscoluna]);

     for poslinha:=1 to 2 do

         for poscoluna:=1 to 2 do

             writeln(matriz[poslinha,poscoluna]);

      readln;

 end.

1

2

3

4

78

15/18 f

Exercícios com vetores.

Aprofundamento dos conhecimentos sobre matrizes. Resolução de exercícios.

 

 

 

 

 

 

 

 

 

Info de 25/02/2016

 

Entrega do projeto pascal 04 de abril. Apresentação do trabalho dia 07 de abril.

 

Data limite para entrega da correção do teste 29 de fevereiro

 

 

 

 

 

 

 

 

 

 

Aula20

Revisões vetores aula16

 

 

 

82

22/25 f

Aula de revisões sobre vetores. Introdução ao JAVA

 

 

 

 

 

 

 

 

Aula21

Revisões matrizes aula19

 

program ex3;

var

   vet:array[1..4,1..4] of integer;

   posl,posc:integer;

Begin

     writeln('Digite os valores');

     for posl:=1 to 4 do

         for posc:=1 to 4 do

             readln(vet[posl,posc]);

    begin

         for posl:=1 to 4 do

            for posc:=1 to 4 do

         begin

     if (posl=posc) then

     writeln('linha 4 coluna 4 ',vet[posl,posc]    );

                  end;

     readln;

    end;

end.

86 f/m

29/03

Aula de revisões Matrizes. Java, primeiro programa. 

 

 

 

 

 

 

 

 

Aula Extra

 

 

 

T1 -87

T2 -87

04/03/2016

Aula extra. Colaboração com a disciplina de IMEI

 

 

 

 

 

 

 

 

Aula22

Página JAVA JAVA

JAVA

package aulas;

import java.util.Scanner;

public class Aula11 {

    public static void main(String[]args){

    

    Scanner input=new Scanner(System.in);   

     double b, a, area; // Declaração de variáveis

     System.out.println("digite o valor da base");

     b=input.nextDouble(); // Lê o valor da variável b digitada pelo utilizador

    

     System.out.println("digite o valor da altura");

     a=input.nextDouble();

   

     area = a * b;

     System.out.println("  "+area);

         

    }

   

}

88-89-90-91

90 m

07/10

Introdução ao JAVA. Instalação do compilador NetBeans e JDK. Primeiro programa.

 

 

 

 

 

 

 

 

Aula23

Building Applets

JAVA Applets

/*

 * To change this license header, choose License Headers in Project Properties.

 * To change this template file, choose Tools | Templates

 * and open the template in the editor.

 */

package aulascon;

 

/**

 *

 * @author user

 */

 

import java.applet.Applet;

import java.awt.Graphics;

import java.awt.Color;

 

public class SimpleApplet extends Applet{

 

  String text = "I'm a simple applet";

 

  public void init() {

        text = "I'm a simple applet";

        setBackground(Color.cyan);

  }

  public void start() {

        System.out.println("starting...");

  }

  public void stop() {

        System.out.println("stopping...");

  }

  public void destroy() {

        System.out.println("preparing to unload...");

  }

  public void paint(Graphics g){

        System.out.println("Paint");

        g.setColor(Color.blue);

        g.drawRect(0, 0,

                   getSize().width -1,

                   getSize().height -1);

        g.setColor(Color.red);

        g.drawString(text, 15, 25);

  }

}

92-93-94-95

94 m

14/17

Balanço das atividades desenvolvidas ao longo do segundo período. Preenchimento das fichas de auto-avaliação.

 

 

 

 

 

 

 

 

 

Estágio

Mapa de colocação

Documentos para o dossier de estágio (Em execução)

  - Plano de Trabalho Individual.docx

  - Ficha identificação aluno estagiário.doc

  - PROTOCOLO_JRE.docx

  - Relatório.docx

  - Fichas Assiduidade_Avaliação.xlsx

  - Curriculum vitae europeu site -- (Minuta)

 

 

Nota: Os documentos do dossier de estágio devem ser impressos e organizados numa pasta (semelhante à apresentada na imagem).

 

 

 

 

 

Arduino

 

 

 

 

 

Java

 

 

 

 

 

vb

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 m

21/24

21m a 1a

 

 

 

 

Entre 21 de março e 1 de abril de 2016, inclusive (5 dias úteis (seguidos ou interpolados))

Páscoa dia 27 de março

 

21m a 1a

 

 

 

 

 

 m

29/31

21m a 1a

 

 

 

 

 

 

 

 

Aula24

Página JAVA JAVA

 

POO programação orientada a objetos

Classes && Objects

Behaviour && atribute

 

 

package aulascon;

class Minhaclass {

 

  static void dizola() {

    System.out.println("OLÁ mundo!");

  }

 

  public static void main(String[ ] args) {

    dizola();

  }

}

99 a

4/7

Revisões Java. Conceito de POO, Classes e Objects

Behaviour e atribute.

 

 

 

 

 

 

 

 

Aula25

Visual Basic

 

 

103 a

11/14

Introdução ao Visual Studio 2015.

 

 

 

 

 

 

 

 

Aula26

 

 

 

107 a

18/21

Balanço das atividades desenvolvidas ao longo do ano. Preenchimento das fichas de auto-avaliação.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

107 tempos

 

 

 

 

 

 

 

 

 

 

Pré-requisitos