Pascal, ayuda!!

no creo q esta web es la mas indicada para preguntar sobre el pascal.
busca tutoriales de pascal en google

PD: tb encontraras algo en Universia

program monedas;

var
  car,car_ant,continua:char;
  contador_caras,contador_cruces,contador_trama:integer;
  error:boolean;
begin
  repeat
    writeln('Introduce la cadena de 10 tiradas por favor')
    repeat
      leer(car);
      car:=upCase(car);
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;If&nbsp;car<>'c'&nbsp;and&nbsp;car<>'x'&nbsp;and&nbsp;car<>'*'&nbsp;then
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;error=true;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Else
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;If&nbsp;car='c'&nbsp;then
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;contador_caras:=contador_caras+1
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;else&nbsp;If&nbsp;car='x'&nbsp;then
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;contador_cruces:=contador_cruces+1;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;end&nbsp;if

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;If&nbsp;car=car_ant&nbsp;then
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;contador_trama:=contador_trama+1
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;else
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;contador_trama:=0;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;end&nbsp;if

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;If(contador_caras>=(contador_caras+contador_cruces)0.8)&nbsp;or&nbsp;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (contador_cruces>=(contador_caras+contador_cruces)0.8)&nbsp;or
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;contador_trama>=8&nbsp;then
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;writeln ('Tu&nbsp;moneda&nbsp;esta&nbsp;trucada')
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;else
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;writeln ('Tu&nbsp;moneda&nbsp;no&nbsp;esta&nbsp;trucada');
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;end&nbsp;if
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;end&nbsp;if
&nbsp;&nbsp;&nbsp;&nbsp;until&nbsp;car='*'&nbsp;or&nbsp;error=true;

&nbsp;&nbsp;&nbsp;&nbsp;readln;

&nbsp;&nbsp;&nbsp;&nbsp;writeln('Quiere&nbsp;seguir&nbsp;probando&nbsp;monedas? (S)&nbsp;¢ (N):&nbsp;');
&nbsp;&nbsp;&nbsp;&nbsp;readln(continuar);
&nbsp;&nbsp;until (continuar='N')&nbsp;or (continuar='n');
end.

Además de lo de la indentación, que vaya pecado... Va a ser que la comprobación para ver si la tecla es errónea es con And y no con Or... Está mal si es distinto de c Y x Y *. Con Or siempre te va a salir que está mal la tecla...

PD: Falta la funcion "leer" ¿no?

no me dice mas q todo el rato q la moneda esta trucada nose q cojones le pasa.

#8 Anda, no me fijé... Es verdad, hay que poner:

Después de:

    If car=car_ant then
      contador_trama:=contador_trama+1
    else
      contador_trama:=0;
    end if

Esto:

car_ant=car;

El programa, por lo que se ve... comprueba si un lado de la moneda sale un 80% de veces u ocho veces seguidas. Si es así, dice que la moneda está trucada. Si no, supone que está bien... Está un poco limitadito porque se supone que tienen que tender al 50% con muchas tiradas, pero bueno. Algo es algo jeje

Pues a mi me interesa, que estoy haciendo sistemas, y aunk con la programacion no tengo problemas (ya lo traia sabido a la carrera y esoa yuda muchisimo) me gusta meter mano a la programacion.

La programacion se me da bien, pero cálculo y fisica son más jodidillas XD. Ademas, la lengua no es lo mio, si sabes mas de analisis sintactico el Word que yo XD