Bárbara Ferreira by Bárbara Ferreira

1º Trabalho: Tabuada - pascal

barbara_ferreira12345 — 2016-12-06 10:59:04 UTC

Program valortabuada3;
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,'x',i,'=',resultado);
End;
readln
End.

2º Trabalho: Jogo do Galo - pascal

barbara_ferreira12345 — 2016-12-06 10:59:55 UTC

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(' 7 | 8 | 9 ');
writeln('---+---+---');
writeln(' 4 | 5 | 6 ');
writeln('---+---+---');
writeln(' 1 | 2 | 3 ');
end;

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

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

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[7]+posicao[5]+posicao[3]) = 'XXX' then vencedor:='X';
if (posicao[1]+posicao[5]+posicao[9]) = '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[7]+posicao[5]+posicao[3]) = 'OOO' then vencedor:='O';
if (posicao[1]+posicao[5]+posicao[9]) = 'OOO' then vencedor:='O';
if (i=9) and (vencedor=' ')
then begin
gotoxy(30,18);
writeln('Empate!');
writeln;
readln;
fim:=1;
end;
if (vencedor<>' ')
then begin
gotoxy(30,18);
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.

Apps for Good - Aplicação a desenvolver: "Localiza-te SOS"

barbara_ferreira12345 — 2016-12-13 08:51:57 UTC

Breve descrição:
Aquando da chamada ao 112 através da aplicação as coordenadas geográficas serão enviadas para o mesmo (ou caso isto não seja possível serão mostradas no ecrã do dispositivo), de modo a facilitar o processo de localização por parte dos serviços de socorro, aumentando assim a probabilidade de sobrevivência dos cidadãos em causa.

Como comunicadora - já fui apresentar o nosso projeto ao resto da turma.
Ajudei a desenvolver a ideia principal da aplicação, e no futuro pretendo divulgar e promover a aplicação que desenvolvemos de modo a que haja uma maior aderência a mesma