Os meus trabalhos de API by Jorge Ferreira

jorge_l_ferreira99 — 2016-12-06 10:02:38 UTC

O meu professor de API propôs um dia à turma que criassem uma app.

jorge_l_ferreira99 — 2016-12-06 10:09:39 UTC

O meu grupo pensou em 3 problemas que as pessoas normalmente têm.

jorge_l_ferreira99 — 2016-12-06 10:57:38 UTC

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

jorge_l_ferreira99 — 2016-12-06 11:00:03 UTC

Foi aí que decidimos criar um Boletim de Vacinas digital.

jorge_l_ferreira99 — 2016-12-10 17:10:25 UTC

No princípio começá-mos por fazer programação no Pascalzim.

jorge_l_ferreira99 — 2016-12-10 17:16:38 UTC

O primeiro programa desenvolvido foi um programa de leitura de idade (ou uma espécie de).

jorge_l_ferreira99 — 2016-12-10 17:17:39 UTC

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.

jorge_l_ferreira99 — 2016-12-10 17:25:06 UTC

Como podem ver é um programa simples que meu professor usou para nos iniciar-mos na programação em pascal.

jorge_l_ferreira99 — 2016-12-10 17:25:31 UTC

Depois de termos feito o nosso primeiro programa o professor decidiu por-nos a fazer uma espécie de tabuada.

jorge_l_ferreira99 — 2016-12-10 17:26:52 UTC

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.

jorge_l_ferreira99 — 2016-12-10 17:32:05 UTC

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).

jorge_l_ferreira99 — 2016-12-10 17:36:21 UTC

Após a tabuada, o professor decidiu mandar-nos fazer o jogo do galo em pascal.

jorge_l_ferreira99 — 2016-12-11 17:54:00 UTC

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.

jorge_l_ferreira99 — 2016-12-11 18:00:56 UTC

Dá para perceber que construir um jogo não é uma tarefa simples.

jorge_l_ferreira99 — 2016-12-12 18:20:12 UTC

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

O meu grupo

jorge_l_ferreira99 — 2016-12-13 09:09:40 UTC

Beatriz Faria: Design
Criativa
Maria Nazário: Empreendedora
Comunicadora
Jorge Ferreira: Organizador
Especialista técnico

1º Período

jorge_l_ferreira99 — 2017-01-24 08:51:09 UTC

2º Período

jorge_l_ferreira99 — 2017-01-24 08:51:35 UTC

jorge_l_ferreira99 — 2017-01-24 08:52:24 UTC

Para o início do 2º Período o professor mandou-me realizar um trabalho acerca da teoria da interatividade.

jorge_l_ferreira99 — 2017-01-24 08:55:45 UTC

O trabalho encontra-se neste link: https://prezi.com/oz4mojsfhkzn/a-teoria-da-interatividade/

jorge_l_ferreira99 — 2017-04-04 07:43:08 UTC

Mandaram-me também fazer um desenho em 3D no Sketchup e no Tinkercad.

jorge_l_ferreira99 — 2017-04-04 07:44:32 UTC

Aqui estão algumas imagens do trabalho no Sketchup.

jorge_l_ferreira99 — 2017-04-04 07:46:41 UTC

jorge_l_ferreira99 — 2017-04-07 16:14:46 UTC

Aqui estão imagens do trabalho no Tinkercad.

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

jorge_l_ferreira99 — 2017-04-07 16:16:23 UTC

jorge_l_ferreira99 — 2017-06-06 07:42:12 UTC

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.

jorge_l_ferreira99 — 2017-06-06 07:42:59 UTC

3º Período

jorge_l_ferreira99 — 2017-06-06 07:46:17 UTC

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

almarianabernardo — 2021-03-03 14:36:49 UTC