problema con un algoritmo de pascal
Publicado por kevin (2 intervenciones) el 25/04/2018 02:15:07
Disculpen las molestia.
En el siguiente algoritmo me arroja las fichas de dos jugadores, pero como pueden ver se repiten las fichas en el mismo jugar o con el otro jugador, como puedo alterar ese mismo programa pero que cada jugar tengan fichas diferentes, quien me pueda ayudar se los agradezco demasiado. Gracias.
En el siguiente algoritmo me arroja las fichas de dos jugadores, pero como pueden ver se repiten las fichas en el mismo jugar o con el otro jugador, como puedo alterar ese mismo programa pero que cada jugar tengan fichas diferentes, quien me pueda ayudar se los agradezco demasiado. Gracias.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
program fichas;
uses crt;
var
ficha,n1,n2:string;
x1,x2,opc,i,jug:integer;
begin
randomize;
for jug:=0 to 1 do
begin
write('La ficha del Jugador ', jug+1, ' seran: ');
for i:=0 to 6 do
begin
x1:= random(7);
x2:= random(7);
str (x1,n1);
str(x2,n2);
If (n1>=n2) then
begin
ficha:=n1+'|'+n2
else
begin
ficha:=n2+'|'+n1;
end;
if (i=6) then
writeln(ficha)
else
write(ficha,' , ');
end; //termina 2do for
writeln;
end; //termina 1er for
readln;
readkey;
end.Valora esta pregunta
0