# data[].attributes.body
https://www.youtube.com/watch?v=lQ_qbxddq78

# data[].attributes.body
https://www.youtube.com/watch?v=Bc4IwxJ0TG0&t=71s

# data[].attributes.attachment_link.title
Nome da Escola - Nome da APP - Inscrição ERs AfG16-17

# data[].attributes.body
No programa do sketchup realizei uma piscina em 3D

# data[].attributes.headline
Trabalho sobre a Teoria da Interatividade

# data[].attributes.subject
Trabalho sobre a Teoria da Interatividade

# data[].attributes.body
http://prezi.com/m3-lzofcbhpc/?utm_campaign=share&utm_medium=copy

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

# data[].attributes.body
Program jogodogalo;
type
matriz=array[1..3,1..3] of char;
var
mat:matriz;
jog1,jog2:char;
i,j,a,b,mov:integer;
{------------------------ Procedimento para ler os valores para a matriz----}
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;
{--------------------------- Fim do procedimento --------}
{------------------------- Procedimento limpar valores da matriz ------ }

procedure limpamat;
begin
for i:=1 to 3 do
for j:=1 to 3 do mat[i,j]:=' ';
end;

procedure jogo;
begin
gotoxy(30,10);
writeln('Jogo do Galo');
gotoxy(30,12);
writeln(' ',mat[1,1],' | ',mat[1,2],' | ',mat[1,3]);
gotoxy(30,13);
writeln('---+---+---');
gotoxy(30,14);
writeln(' ',mat[2,1],' | ',mat[2,2],' | ',mat[2,3]);
gotoxy(30,15);
writeln('---+---+---');
gotoxy(30,16);
writeln(' ',mat[3,1],' | ',mat[3,2],' | ',mat[3,3]);

end;
{-------------------- Fim do Procedimento -------}
Begin
limpamat;
writeln ('O Jogador 1 pretende utilizar o X ou O');
readln(jog1);
if (jog1='x')or(jog1='X') then
begin
jog2:='o';
jog1:='x';
end
else
if (jog1='o')or(jog1='0') then
begin
jog2:='x';
jog1:='0';
end;
{------------------------------- chamada do Procedimento -----}
teclas;
{------------------------------ fim da chamada do Procedimento ---- }
{------------------------------- chamada do Procedimento 2 -----}
jogo;
{------------------------------ fim da chamada do Procedimento ---- }
repeat
clrscr;
teclas;
jogo;
writeln('Qual a posição para o jogador 1? 0 - para sair');
readln(mov);
if (mov=7) then mat[1,1]:=jog1;
if (mov=8) then mat[1,2]:=jog1;
if (mov=9) then mat[1,3]:=jog1;
if (mov=4) then mat[2,1]:=jog1;
if (mov=5) then mat[2,2]:=jog1;
if (mov=6) then mat[2,3]:=jog1;
if (mov=1) then mat[3,1]:=jog1;
if (mov=2) then mat[3,2]:=jog1;
if (mov=3) then mat[3,3]:=jog1;
jogo;
writeln('Qual a posição para o jogador 2? 0 - para sair');
readln(mov);
if (mov=7) then mat[1,1]:=jog2;
if (mov=8) then mat[1,2]:=jog2;
if (mov=9) then mat[1,3]:=jog2;
if (mov=4) then mat[2,1]:=jog2;
if (mov=5) then mat[2,2]:=jog2;
if (mov=6) then mat[2,3]:=jog2;
if (mov=1) then mat[3,1]:=jog2;
if (mov=2) then mat[3,2]:=jog2;
if (mov=3) then mat[3,3]:=jog2;
jogo;
until mov=0;
readln(mov);
End.

# data[].attributes.body
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.