# data[].attributes.body
Esta é a lista de códigos do jogo:

Program Jogo_do_Galo ;
uses crt;
var jogada:integer;
vez:char;
posicao:array[1..9] of string;
fim:integer;
i:integer;
vencedor:char;

{=====================================}

procedure teclas;
begin
clrscr;
writeln;
writeln('Teclas do Jogo');
writeln;
writeln('-------------');
writeln('| 1 | 2 | 3 |');
writeln('-------------');
writeln('| 4 | 5 | 6 |');
writeln('-------------');
writeln('| 7 | 8 | 9 |');
writeln('-------------');
end;

{=====================================}

procedure jogo;
begin
gotoxy(30,10);
writeln('Jogo do Galo');
gotoxy(31,12);
writeln('-------------');
gotoxy(30,13);
writeln(' | ',posicao[1],' | ',posicao[2],' | ',posicao[3],' | ');
gotoxy(31,14);
writeln('-------------');
gotoxy(30,15);
writeln(' | ',posicao[4],' | ',posicao[5],' | ',posicao[6],' | ');
gotoxy(31,16);
writeln('-------------');
gotoxy(30,17);
writeln(' | ',posicao[7],' | ',posicao[8],' | ',posicao[9],' | ');
gotoxy(31,18);
writeln('-------------');
end;

{=====================================}

procedure verifica;
begin
if(posicao[1]+posicao[2]+posicao[3]) = 'XXX' then vencedor:='X';
if(posicao[4]+posicao[5]+posicao[6]) = 'XXX' then vencedor:='X';
if(posicao[7]+posicao[8]+posicao[9]) = 'XXX' then vencedor:='X';
if(posicao[1]+posicao[4]+posicao[7]) = 'XXX' then vencedor:='X';
if(posicao[2]+posicao[5]+posicao[8]) = 'XXX' then vencedor:='X';
if(posicao[3]+posicao[6]+posicao[9]) = 'XXX' then vencedor:='X';
if(posicao[1]+posicao[5]+posicao[9]) = 'XXX' then vencedor:='X';
if(posicao[3]+posicao[5]+posicao[7]) = 'XXX' then vencedor:='X';
if(posicao[1]+posicao[2]+posicao[3]) = 'OOO' then vencedor:='O';
if(posicao[4]+posicao[5]+posicao[6]) = 'OOO' then vencedor:='O';
if(posicao[7]+posicao[8]+posicao[9]) = 'OOO' then vencedor:='O';
if(posicao[1]+posicao[4]+posicao[7]) = 'OOO' then vencedor:='O';
if(posicao[2]+posicao[5]+posicao[8]) = 'OOO' then vencedor:='O';
if(posicao[3]+posicao[6]+posicao[9]) = 'OOO' then vencedor:='O';
if(posicao[1]+posicao[5]+posicao[9]) = 'OOO' then vencedor:='O';
if(posicao[3]+posicao[5]+posicao[7]) = 'OOO' then vencedor:='O';
if(i=9) and (vencedor=' ')
then begin
gotoxy(1,13);
writeln('Empate');
writeln;
readln;
fim:=1;
end;
if(vencedor<>' ')
then begin
gotoxy(1,13);
writeln('O jogador',vencedor,'ganhou!');
writeln;
readln;
fim:=1;
end;
end;

{***************************}

begin
vencedor:=' ';
for i := 1 to 9 do
posicao[i]:=' ';
fim:=0;
vez:='O';
i:=0;
while fim <> 1 do
begin
if vez = 'X'
then vez:='O'
else vez := 'X';
teclas;
jogo;
jogada:=0;
while (jogada=0) and (fim <> 1) do
begin
writeln;
write('Vez do jogador ',vez,': ');
readln(jogada);
if jogada=0
then fim:=1;
if posicao[jogada]=' '
then posicao[jogada]:=vez
else jogada:=0;
end;
verifica;
end;
end.

# data[].attributes.body
O vídeo de apresentação da escola encontra-se no YouTube neste link: https://youtu.be/lQ_qbxddq78

O vídeo da minha escola encontra-se neste link: https://youtu.be/HBPs4rCmq8E

# data[].attributes.body
3º Período

# data[].attributes.body
Por último o professor pediu-me para fazer dois vídeos: um para apresentar a minha escola e outro para apresentar a app que eu fiz.

# data[].attributes.body
Aqui estão imagens do trabalho no Tinkercad.

Link: https://tinkercad.com/things/3P0VZcfDYju

# data[].attributes.body
Aqui estão algumas imagens do trabalho no Sketchup.

# data[].attributes.body
Mandaram-me também fazer um desenho em 3D no Sketchup e no Tinkercad.

# data[].attributes.body
O trabalho encontra-se neste link: https://prezi.com/oz4mojsfhkzn/a-teoria-da-interatividade/

# data[].attributes.body
Para o início do 2º Período o professor mandou-me realizar um trabalho acerca da teoria da interatividade.

# data[].attributes.body
Beatriz Faria: Design
Criativa
Maria Nazário: Empreendedora
Comunicadora
Jorge Ferreira: Organizador
Especialista técnico

# data[].attributes.body
Aqui vão encontrar de forma detalhada o progresso da app até ao momento:

http://prezi.com/msralrhsxg54/?utm_campaign=share&utm_medium=copy&rc=ex0share

# data[].attributes.body
Dá para perceber que construir um jogo não é uma tarefa simples.

# data[].attributes.body
Esta é a lista de códigos do jogo:

Program Jogo_do_Galo ;
uses crt;
var jogada:integer;
vez:char;
posicao:array[1..9] of string;
fim:integer;
i:integer;
vencedor:char;

{=====================================}

procedure teclas;
begin
clrscr;
writeln;
writeln('Teclas do Jogo');
writeln;
writeln('-------------');
writeln('| 1 | 2 | 3 |');
writeln('-------------');
writeln('| 4 | 5 | 6 |');
writeln('-------------');
writeln('| 7 | 8 | 9 |');
writeln('-------------');
end;

{=====================================}

procedure jogo;
begin
gotoxy(30,10);
writeln('Jogo do Galo');
gotoxy(31,12);
writeln('-------------');
gotoxy(30,13);
writeln(' | ',posicao[1],' | ',posicao[2],' | ',posicao[3],' | ');
gotoxy(31,14);
writeln('-------------');
gotoxy(30,15);
writeln(' | ',posicao[4],' | ',posicao[5],' | ',posicao[6],' | ');
gotoxy(31,16);
writeln('-------------');
gotoxy(30,17);
writeln(' | ',posicao[7],' | ',posicao[8],' | ',posicao[9],' | ');
gotoxy(31,18);
writeln('-------------');
end;

{=====================================}

procedure verifica;
begin
if(posicao[1]+posicao[2]+posicao[3]) = 'XXX' then vencedor:='X';
if(posicao[4]+posicao[5]+posicao[6]) = 'XXX' then vencedor:='X';
if(posicao[7]+posicao[8]+posicao[9]) = 'XXX' then vencedor:='X';
if(posicao[1]+posicao[4]+posicao[7]) = 'XXX' then vencedor:='X';
if(posicao[2]+posicao[5]+posicao[8]) = 'XXX' then vencedor:='X';
if(posicao[3]+posicao[6]+posicao[9]) = 'XXX' then vencedor:='X';
if(posicao[1]+posicao[5]+posicao[9]) = 'XXX' then vencedor:='X';
if(posicao[3]+posicao[5]+posicao[7]) = 'XXX' then vencedor:='X';
if(posicao[1]+posicao[2]+posicao[3]) = 'OOO' then vencedor:='O';
if(posicao[4]+posicao[5]+posicao[6]) = 'OOO' then vencedor:='O';
if(posicao[7]+posicao[8]+posicao[9]) = 'OOO' then vencedor:='O';
if(posicao[1]+posicao[4]+posicao[7]) = 'OOO' then vencedor:='O';
if(posicao[2]+posicao[5]+posicao[8]) = 'OOO' then vencedor:='O';
if(posicao[3]+posicao[6]+posicao[9]) = 'OOO' then vencedor:='O';
if(posicao[1]+posicao[5]+posicao[9]) = 'OOO' then vencedor:='O';
if(posicao[3]+posicao[5]+posicao[7]) = 'OOO' then vencedor:='O';
if(i=9) and (vencedor=' ')
then begin
gotoxy(1,13);
writeln('Empate');
writeln;
readln;
fim:=1;
end;
if(vencedor<>' ')
then begin
gotoxy(1,13);
writeln('O jogador',vencedor,'ganhou!');
writeln;
readln;
fim:=1;
end;
end;

{***************************}

begin
vencedor:=' ';
for i := 1 to 9 do
posicao[i]:=' ';
fim:=0;
vez:='O';
i:=0;
while fim <> 1 do
begin
if vez = 'X'
then vez:='O'
else vez := 'X';
teclas;
jogo;
jogada:=0;
while (jogada=0) and (fim <> 1) do
begin
writeln;
write('Vez do jogador ',vez,': ');
readln(jogada);
if jogada=0
then fim:=1;
if posicao[jogada]=' '
then posicao[jogada]:=vez
else jogada:=0;
end;
verifica;
end;
end.

# data[].attributes.body
Após a tabuada, o professor decidiu mandar-nos fazer o jogo do galo em pascal.

# data[].attributes.body
Em seguida fez-se uma outra tabuada, esta executa somas ao contrário da outra que executa multiplicações.

Program Tabuada2;
var tabuada,i,resultado:integer;
Begin
writeln('Qual a tabuada?');
readln(tabuada);
i:=0;
while(i<10)do
Begin
i:=i+1;
resultado:=tabuada*i;
writeln(tabuada,'+',i,'=',resultado);
End;
readln
End.

O alcance dos valores que se somam aos números é o de origem (mas tal como na outra só são usados números inteiros).

# data[].attributes.body
Esta foi a primeira versão do programa, a qual eu próprio modifiquei no que toca ao alcance.

Program Tabuada;

var tabuada,i,resultado:integer;

Begin

writeln('Qual a tabuada?');

readln(tabuada);

for i:=-100 to 100 do

Begin

resultado:=tabuada*i;

writeln(tabuada,'x',i,'=',resultado);

End;

readln

End.

A versão original multiplicava qualquer dos valores por números entre 1 e 10 enquanto que esta o faz com valores desde -100 a 100.

# data[].attributes.body
Depois de termos feito o nosso primeiro programa o professor decidiu por-nos a fazer uma espécie de tabuada.

# data[].attributes.body
Como podem ver é um programa simples que meu professor usou para nos iniciar-mos na programação em pascal.

# data[].attributes.body
Eis os códigos usados para o construir.

Program Idade;

var idade:integer;

Begin

writeln('Qual a sua idade?');

readln (idade);

if (idade>=18)

then

writeln('É maior de idade.')

else

writeln('É menor de idade.');

writeln('Fim do programa');

readln;

End.

# data[].attributes.body
O primeiro programa desenvolvido foi um programa de leitura de idade (ou uma espécie de).

# data[].attributes.body
No princípio começá-mos por fazer programação no Pascalzim.

# data[].attributes.body
Foi aí que decidimos criar um Boletim de Vacinas digital.

# data[].attributes.body
Estávamos a pensar em fazer o calendário mas, o nosso professor aconselhou-nos que o boletim teria melhores hipóteses de sucesso.

# data[].attributes.body
O meu grupo pensou em 3 problemas que as pessoas normalmente têm.

# data[].attributes.body
O meu professor de API propôs um dia à turma que criassem uma app.