Pesquise no PCFórum - Digite sua dúvida aqui
Bem-vindo, Visitante. Por favor efetue Login ou Registre-se
PCFORUM.com.br

    
Notícias:
  Home Fórum Notícias Anuncie AjudaLoginCadastre-se  
 

Pascal Zim(usando procedure) (Lido 4702 vezes)   
mailops


Offline

Indique o PCFORUM
para seus amigos!

Postagens: 2

Pascal Zim(usando procedure)
11.11.2010 às 20:32:00
 
pessoal alguém ai que sabe mexe em pascal pode me judar..é algo simples, mas eu num sei.uahuah  meu professor pediu pra gente programa um jogo da vela nopascal zim usando procedures...ele já montou um estrutura para nos, so precisa terminar de completar alguem pode me ajudar::???posta aew

Program JogoDaVelha;
var i,jogada,vitoriasJogadorX,vitoriasJogadorBola,velha:integer;
jogador,resp:char;
posicoes: array[1..9] of char;

procedure escreverNaPosicao(x,y:integer;texto:char);
begin
    gotoxy(x,y);
    writeln(texto);
end;

procedure emitirMensagem(texto:string);
begin
    gotoxy(30,4);
    writeln(texto);
    gotoxy(30,5);
    writeln('Pressione uma tecla para continuar');
    readkey;
    gotoxy(30,4);
    writeln('                                                                              ');
    gotoxy(30,5);
    writeln('                                                                              ');
end;

procedure ocuparPosicao(posicao:integer;ocupadoPor:char);
begin
end;

function posicaoDisponivel(posicao:integer):boolean;
begin
end;

procedure desenharTela;
begin
end;

procedure desenharJogada(posicao:integer;jogador:char);
begin
end;

procedure inicializarPosicoes;
begin
end;

procedure desenharPlacar;
begin
end;

function reiniciarJogo:boolean;
var retorno:boolean;
begin
end;

procedure iniciarVariaveis;
begin
end;

procedure iniciarJogo;
begin
end;

function existePosicaoDisponivel:boolean;
var retorno:boolean;
begin
end;

function fimDeJogo:boolean;
var retorno:boolean;
begin
end;

procedure inverterJogador;
begin
end;

procedure jogar;
begin
end;

Begin
    for i:=1 to 20 do
    begin
          gotoxy(25,10+i);
          write('=');
          gotoxy(25+i,10);
          write('=');
    end;

End.
Voltar ao topo
 
 
Visualizar Perfil   IP registrado



Visite nossa página inicial e veja mais dicas e conteúdos! Clique aqui!!