https://padlet.com/bia_vicentefaria/ioxbnsmpvb3e en-us 2016-12-06 11:23:58 UTC 2025-11-30 07:34:18 UTC hello@padlet.com bia_vicentefaria https://padlet.com/bia_vicentefaria/ioxbnsmpvb3e/wish/141971158 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.]]> 2016-12-06 11:24:47 UTC https://padlet.com/bia_vicentefaria/ioxbnsmpvb3e/wish/141971158 bia_vicentefaria https://padlet.com/bia_vicentefaria/ioxbnsmpvb3e/wish/141971302 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.

]]> 2016-12-06 11:25:38 UTC https://padlet.com/bia_vicentefaria/ioxbnsmpvb3e/wish/141971302 bia_vicentefaria https://padlet.com/bia_vicentefaria/ioxbnsmpvb3e/wish/143297201 2016-12-13 08:48:21 UTC https://padlet.com/bia_vicentefaria/ioxbnsmpvb3e/wish/143297201 bia_vicentefaria https://padlet.com/bia_vicentefaria/ioxbnsmpvb3e/wish/143297359 2016-12-13 08:49:18 UTC https://padlet.com/bia_vicentefaria/ioxbnsmpvb3e/wish/143297359 bia_vicentefaria https://padlet.com/bia_vicentefaria/ioxbnsmpvb3e/wish/143299281 2016-12-13 09:02:15 UTC https://padlet.com/bia_vicentefaria/ioxbnsmpvb3e/wish/143299281 bia_vicentefaria https://padlet.com/bia_vicentefaria/ioxbnsmpvb3e/wish/143299345 Beatriz Faria: Design
                         Criativa
Maria Nazário: Empreendedora
                           Comunicadora
Jorge Ferreira: Organizador
Especialista técnico ]]> 2016-12-13 09:02:43 UTC https://padlet.com/bia_vicentefaria/ioxbnsmpvb3e/wish/143299345 bia_vicentefaria https://padlet.com/bia_vicentefaria/ioxbnsmpvb3e/wish/143317070 http://prezi.com/m3-lzofcbhpc/?utm_campaign=share&utm_medium=copy]]> 2016-12-13 10:53:37 UTC https://padlet.com/bia_vicentefaria/ioxbnsmpvb3e/wish/143317070 bia_vicentefaria https://padlet.com/bia_vicentefaria/ioxbnsmpvb3e/wish/147482315 2017-01-17 10:03:09 UTC https://padlet.com/bia_vicentefaria/ioxbnsmpvb3e/wish/147482315 bia_vicentefaria https://padlet.com/bia_vicentefaria/ioxbnsmpvb3e/wish/163233658 No programa do sketchup realizei uma piscina em 3D]]> 2017-03-28 18:35:53 UTC https://padlet.com/bia_vicentefaria/ioxbnsmpvb3e/wish/163233658 bia_vicentefaria https://padlet.com/bia_vicentefaria/ioxbnsmpvb3e/wish/163238289 2017-03-28 18:49:59 UTC https://padlet.com/bia_vicentefaria/ioxbnsmpvb3e/wish/163238289 bia_vicentefaria https://padlet.com/bia_vicentefaria/ioxbnsmpvb3e/wish/163238527 2017-03-28 18:50:48 UTC https://padlet.com/bia_vicentefaria/ioxbnsmpvb3e/wish/163238527 bia_vicentefaria https://padlet.com/bia_vicentefaria/ioxbnsmpvb3e/wish/163238621 2017-03-28 18:51:07 UTC https://padlet.com/bia_vicentefaria/ioxbnsmpvb3e/wish/163238621 bia_vicentefaria https://padlet.com/bia_vicentefaria/ioxbnsmpvb3e/wish/175338772 2017-06-06 07:52:08 UTC https://padlet.com/bia_vicentefaria/ioxbnsmpvb3e/wish/175338772 bia_vicentefaria https://padlet.com/bia_vicentefaria/ioxbnsmpvb3e/wish/175339648 https://www.youtube.com/watch?v=Bc4IwxJ0TG0&t=71s]]> 2017-06-06 07:58:31 UTC https://padlet.com/bia_vicentefaria/ioxbnsmpvb3e/wish/175339648 bia_vicentefaria https://padlet.com/bia_vicentefaria/ioxbnsmpvb3e/wish/175339711 https://www.youtube.com/watch?v=lQ_qbxddq78]]> 2017-06-06 07:59:01 UTC https://padlet.com/bia_vicentefaria/ioxbnsmpvb3e/wish/175339711