xxxx

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

www.ticmania.net

Pascal

JAVA

VisualBasic

PTE  

HOME

 

 

 

 

 

 

 

 

JAVA

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

 

 

Recursos

 

 

 

 

 

Java

Aula1

 

E-mail

Regras da sala

Pré-requisitos

Profcarlos2006@gmail.com

 

 

 

Introdução ao Java

PPTX

Editor

JDK

http://www.oracle.com/technetwork/java/javase/downloads/index.html

 

Netbeans

https://netbeans.org/downloads/index.html

 

 

 

Estrutura do programa

package aulas;

import java.util.Scanner;

public class testesCarlos {

    public static void main(String[]args){

    

    Scanner input=new Scanner(System.in);   

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

     System.out.println("digite o 1º valor");

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

    

     System.out.println("digite o 2º valor");

     a=input.nextDouble();

   

     soma = a + b;

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

    } 

}

 

 

Output

System.out.println

 

Input

b=input.nextDouble();

 

 

Variáveis

 

Instruções

Os 3 principais tipos de instruções:

Entrada:    b=input.nextDouble();

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

Saída:      System.out.println

 

byte a=127; // números inteiros até ao nº 127 ou seja 8 bits

short b; // números inteiros 16 bits médio

int c;  // números inteiros grande

long d;  // números inteiros  muito grande

 

float e;  // números reais menos preciso

double f; // números reais mais preciso

 

boolean g; // verdadeiro falso true ou false

 char h='a';   // Caracteres entre pelicas

 

 

EXPRESSÕES MATEMÁTICAS

+ adição ; 

- subtração ;

* multiplicação ;

/ divisão ;

% resto

 

System.out.println(" a+b "+soma);

ou

System.out.println("A soma "+(x+y));//soma os valores diretamente no println

 

System.out.println("Juntar os valores "+x+y); //Concatena os valores

 

Operação

Operador

Expressão algébrica

Expressão Java

Adição

+

a + 1

a +1

Subtração

-

b -2

b -2

Multiplicação

*

cm

c * m

Divisão

/

d / e

d / e

Resto

%

f mod g

f % g

 

 

 

 

 

 

 

 

 

 

 

Desafio 1

 

 

1.  Cria uma nova class java dentro do pacote aulas. Cria um programa que execute todas as operações com os operadores acima indicados.

 

 

 

 

 

 

 

 

 

 

 

Aula2 JAVA

Revisões

POO - Classes && Objects PPTX

 

 

aularevjava.docx

POO (programação orientada a objetos) é uma ideia que vê o objeto como uma parte de um programa (como se fossem vários mini programas que juntos fazem um programa).

 

Class – é planta (o projeto da casa mas não é a casa em si)

 

A class é a ideia e o objeto é a coisa em si

Conceito1: Podemos fazer várias casas (objetos) com base numa planta (class)
Conceito2: Não serve de nada criar uma planta (class) se não se vai fazer uma casa(objeto)

 

A class define o Atribute e Behaviour – Se se trata-se de uma pessoa (Atributos – Sexo; idade; altura)   (Behavior – correr; andar; saltar)

 

package aulascon;

class Minhaclass {

 

  static void dizola() {

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

  }

 

  public static void main(String[ ] args) {

    dizola();

  }

}

 

 

 

 

 

 

 

 

 

 

 

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.

 

 

 

 

 

 

 

 

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.

 

 

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.

 

 

 

 

 

 

82

22/25 f

20

 

 

 

 

 

 

 

 

 

 

 

 

86 m

29/03

21

 

 

 

 

 

 

 

 

 

 

Arduino

 

90 m

07/10

22

 

 

 

Java

 

 

 

 

 

Vetor Array

 

Array 2 dimensões ou Matriz

vb

 

94 m

14/07

23

 

 

 

Android

 

 

 

 

 

 

 

 

 m

21/24

21m a 1a

 

 

 

 

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

 

21m a 1a

 

 

 

 

 

 m

29/31

21m a 1a

 

 

 

 

 

 

 

 

 

 

 

 

98 a

4/7

24

 

 

 

 

 

 

 

 

 

 

 

 

102 a

11/14

25

 

 

 

 

 

 

 

 

 

 

 

 

106 a

18/21

+1

26

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

107 tempos

 

 

 

 

 

 

 

 

 

 

Pré-requisitos