Jogo da Velha em linguagem pascal

Prévia do material em texto

UNIVERSIDADE ESTADUAL DE MARINGÁ
CENTRO DE TECNOLOGIA
DEPARTAMENTO DE INFORMÁTICA
Algoritmo e Programação de Computadores - 5259
JOGO DA VELHA NA LINGUAGEM PASCAL
ACADÊMICOS: RA:
LUÍS PAULO BATISTÃO 124528
MARIA FERNANDA RODRIGUES 125149
PEDRO ANTONIO GALACCI REINERT 125101
TURMA: 2 PROFESSOR: CARLOS FRANSLEY SCATAMBULO COSTA
MARINGÁ - PR
2 DE MARÇO DE 2022
Master
Retângulo
Program Jogo_Da_Velha;
Var N, i, j, L1, L2, nj, G, V: integer;
JN1, JN2: string;
P: array[1..3,1..3] of string;
Begin
N := 1;
While (N = 1) do
Begin
Writeln ('Informem os seus nomes');
Writeln ('JOGADOR 1: ');
Read (JN1);
Writeln ('JOGADOR 2: ');
Read (JN2);
Writeln ('O jogador 1,',' ', JN1, ', será o [ J1 ]');
Writeln ('O jogador 2,',' ', JN2, ', será o [ J2 ]');
Writeln ('Pressione qualquer tecla para continuar');
Readkey;
Clrscr;
For i := 1 to 3 do
Begin
For j := 1 to 3 do
Begin
P[i,j] := '[ ]';
End;
End;
L1 := 0;
L2 := 0;
nj := 0;
G := 0;
V := 0;
While (L1 = 0) do
Begin
Repeat
If (L1=0)
Then begin
Repeat
Writeln;
For i := 1 to 3 do
Begin
For j := 1 to 3 do
Begin
Write (P[i,j]);
End;
Writeln;
End;
Writeln;
Writeln (JN1, ', escolha uma LINHA de 1 a 3 para a jogada');
Readln (i);
If (i < 1) or (i > 3)
Then begin
Writeln ('NÚMERO INVÁLIDO!');
end
Else begin
Writeln (JN1, ', escolha uma COLUNA de 1 a 3 para a jogada');
Readln (j);
end;
If (j < 1) or (j > 3)
Then Writeln ('NÚMERO INVÁLIDO!');
Until (i >= 1) and (i <= 3) and (j >= 1) and (j <= 3);
If ((P[i,j] = '[J1]') or (P[i,j] = '[J2]'))
Then begin
Writeln('POSIÇÃO JÁ ESCOLHIDA!');
end
Else begin
Writeln('POSIÇÃO VÁLIDA!');
P[i,j]:= '[J1]';
nj := nj + 1;
L2 := 1;
end;
If (((P[1,1] = '[J1]') and (P[1,2] = '[J1]') and (P[1,3] = '[J1]'))
or ((P[2,1] = '[J1]') and (P[2,2] = '[J1]') and (P[2,3] = '[J1]'))
or ((P[3,1] = '[J1]') and (P[3,2] = '[J1]') and (P[3,3] = '[J1]'))
or ((P[1,1] = '[J1]') and (P[2,2] = '[J1]') and (P[3,3] = '[J1]'))
or ((P[1,3] = '[J1]') and (P[2,2] = '[J1]') and (P[3,1] = '[J1]'))
or ((P[1,1] = '[J1]') and (P[2,1] = '[J1]') and (P[3,1] = '[J1]'))
or ((P[1,2] = '[J1]') and (P[2,2] = '[J1]') and (P[3,2] = '[J1]'))
or ((P[1,3] = '[J1]') and (P[2,3] = '[J1]') and (P[3,3] = '[J1]')))
Then Begin
V :=1;
G := 1;
nj := 0;
L1 := 1;
End;
If (nj=9)
Then begin
G := 3;
L1 := 1;
V := 1;
end;
Writeln ('Pressione qualquer tecla');
Readkey;
Clrscr;
end
Else L2 := 1;
Until (L2 = 1);
L2 := 0;
Repeat
If (L1=0)
Then begin
Repeat
Writeln;
For i := 1 to 3 do
Begin
For j := 1 to 3 do
Begin
Write (P[i,j]);
End;
Writeln;
End;
Writeln;
Writeln (JN2, ', escolha uma LINHA de 1 a 3 para a jogada');
Readln (i);
If (i < 1) or (i > 3)
Then begin
Writeln ('NÚMERO INVÁLIDO!');
end
Else begin
Writeln (JN2, ', escolha uma COLUNA de 1 a 3 para a jogada');
Readln (j);
end;
If (j < 1) or (j > 3)
Then Writeln ('NÚMERO INVÁLIDO!');
Until (i >= 1) and (i <= 3) and (j >= 1) and (j <= 3);
If ((P[i,j] = '[J1]') or (P[i,j] = '[J2]'))
Then begin
Writeln('POSIÇÃO JÁ ESCOLHIDA!');
end
Else begin
Writeln('POSIÇÃO VÁLIDA!');
P[i,j]:= '[J2]';
nj := nj + 1;
L2 := 1;
end;
If (((P[1,1] = '[J2]') and (P[1,2] = '[J2]') and (P[1,3] = '[J2]'))
or ((P[2,1] = '[J2]') and (P[2,2] = '[J2]') and (P[2,3] = '[J2]'))
or ((P[3,1] = '[J2]') and (P[3,2] = '[J2]') and (P[3,3] = '[J2]'))
or ((P[1,1] = '[J2]') and (P[2,2] = '[J2]') and (P[3,3] = '[J2]'))
or ((P[1,3] = '[J2]') and (P[2,2] = '[J2]') and (P[3,1] = '[J2]'))
or ((P[1,1] = '[J2]') and (P[2,1] = '[J2]') and (P[3,1] = '[J2]'))
or ((P[1,2] = '[J2]') and (P[2,2] = '[J2]') and (P[3,2] = '[J2]'))
or ((P[1,3] = '[J2]') and (P[2,3] = '[J2]') and (P[3,3] = '[J2]')))
Then Begin
V :=1;
G := 2;
nj := 0;
L1 := 1;
End;
If (nj=9)
Then begin
G := 3;
L1 := 1;
V := 1;
end;
Writeln ('Pressione qualquer tecla');
Readkey;
Clrscr;
end
Else L2 := 1;
Until (L2 = 1);
L2 := 0;
If (V=1)
Then begin
If (G=1)
Then begin
Writeln ('O vencedor foi o jogador 1');
Writeln ('Parabéns,',' ',JN1,'!');
end
Else begin
If (G=2)
Then begin
Writeln ('O vencedor foi o jogador 2');
Writeln ('Parabéns,',' ',JN2,'!');
end
Else begin
If (G=3)
Then begin
Writeln ('Houve um empate (velha) ');
end;
end;
end;
Writeln ('Caso queiram jogar novamente, digitem o número 1');
Readln (N);
End;
End;
End;
End.