Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
) 
program circulos;
const
MAX = 20;
type
TValores = Record
Asignado : boolean;
Color : boolean; { 'True' = Verde; 'False' = Amarillo }
End;
TVertices = array [0..MAX] of TValores;
TCasos = array [1..MAX] of TVertices;
var
nCasos : integer;
nVertices : integer;
nAristas : integer;
inicio, fin : integer;
vertices : TVertices;
casos : TCasos;
flag : boolean;
i : integer;
procedure init_vertices (var c : TCasos);
var
i, j : integer;
begin
for i := 1 to MAX do
for j := 0 to MAX do
begin
c[i][j].Asignado := false;
c[i][j].Color := false;
end;
end;
function evalua (var v : TVertices; inicio, fin : integer) : boolean;
begin
if (v[inicio].Asignado = false) and (v[fin].Asignado = false) then { si ninguno ha sido asignado aun }
begin
v[inicio].Asignado := true;
v[inicio].Color := true;
v[fin].Asignado := true;
v[fin].Color := false;
evalua := true;
end
else
begin
if (v[inicio].Asignado) xor (v[fin].Asignado) then { si uno de los dos esta asignado }
begin
if v[fin].Asignado = false then
begin
v[fin].Asignado := true; { lo marcamos como coloreado }
v[fin].Color := not v[inicio].Color; { y le ponemos el color contrario al del otro vertice }
end
else
begin { en caso de que el que no estuviese coloreado aun fuera el vertice inicial, lo mismo para este }
v[inicio].Asignado := true;
v[inicio].Color := not v[fin].Color;
end;
evalua := true;
end
else
begin { si entramos aqui es porque ambos ya estan coloreados, comprobemos si es incompatible }
if v[inicio].Color = v[fin].Color then
evalua := false
else
evalua := true;
end;
end;
end;
{ -- MAIN --}
begin
init_vertices (casos);
flag := true;
readln (nCasos);
readln (nVertices, nAristas);
for i := 1 to nAristas do
begin
readln (inicio, fin);
flag := flag and (evalua (vertices, inicio, fin));
end;
if flag then
writeln ('Miguel, a pintar')
else
writeln ('No pierdas el tiempo');
end.
Cita de: ghastlyX en 8 Septiembre 2008, 00:43 AM
Si nadie publica nada tendré que dar yo la solución
Y eso me lo se bien )
#include <stdio.h>
int main (void)
{
int i, j, n;
printf ("Introduce altura de la pared: ");
scanf ("%d", &n);
for (i = n; i >= 1; i--) { /* Bucle desde la cima hasta la base */
j = i; /* 'j' servira para saber las veces que se repiten los numeros en cada nivel de la piramide */
while (j <= n) {
printf ("%d ", i); /* Imprimimos el numero del nivel... */
j++;
} /* ...tantas veces como niveles alejados de la cima estemos */
printf ("\n");
}
printf ("\n");
return 0;
}PROGRAM Triangulos;
VAR
i, j, n : Byte;
BEGIN
Write ('Introduce altura de la pared: ');
ReadLn (n);
For i := n DownTo 1 Do
Begin
j := i;
While (j <= n) Do
Begin
Write (i, ' ');
Inc (j);
End;
WriteLn ();
End;
WriteLn ();
END.program bla;
var palabra : string;
begin
write ('introduce palabra: ');
readln (palabra);
writeln (length (palabra));
end.Var
Matriz : Array [1..3, 1..3] of Byte;
i, j : Byte;
Begin
{ Aqui codigo para insertar los numeros }
{ . . . }
For i := 1 To 3 Do
Begin
For j := 1 To 3 Do
Write (Matriz[i][j], ' ');
WriteLn ();
End;
End.i := 1; j := 1;
While (i <= 3) Do
Begin
While (j <= 3) Do
Begin
Write (Matriz[i][j], ' ');
Inc (j);
End;
WriteLn ();
Inc (i);
j := 1;
End;