Pascal/Turbo Pascal - Error 41

   
Vista:

Error 41

Publicado por Luis Perez (5 intervenciones) el 05/06/2010 19:47:03
Saludos a la comunidad que de verdad me han ayudado bastante, en esta oportunidad me encuentro con ustedes de nuevo para perdir la ayuda tengo el siguiente programa en pascal y meda error 41 que puedo hacer espero su ayuda grande como siempre y gracias de verdad a lo que siempre me ayudan...

Program los_patos;
Uses
crt;
Var
patos : integer;
peso : REAL;
opcion : integer;
c_a : integer;
peso1 : integer;
peso2 : integer;
respuesta : integer;

Begin
Clrscr;

Repeat
Write ('Desea ingresar un pato 1:SI o 2:NO ');
ReadLn (respuesta);

If respuesta = 1 Then
Begin
patos := patos + 1;
Write ('Escriba el peso del pato: ');
ReadLn (peso);
If (peso >= 1.50 AND peso >= 2.00) Then
Begin
peso1 := peso1 + 1;
end
else
Begin
peso2 := peso2 + 1;
peso := peso + 1;
c_a := c_a + 1;
end
end;
Else
WriteLn ('El granjero tiene la siguente cantidad: ');
WriteLn ('Cantidad de patos: ', c_a);
WriteLn ('Patos entre 1.50 Kilos y 2 Kilos: ', peso1);
WriteLn ('Patos que pesan menos 1.50 kilos y Mas de 2 Kilos: ', peso2);
End.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Error 41

Publicado por martin (74 intervenciones) el 06/06/2010 01:41:13
Hola: Son varios los errores cometidos.
El error 41 se refiere exclusivamente al:
if (peso >= 1.50 and peso >= 2.00) then.- No están cerrados los parentesis y el planteamiento no es correcto.
El Repeat no está cerrado con Until.
Creo que sobra un Else.
Y como no me queda claro lo que ha de realizar el programa, pues no puedo ayudar.
Un saludo.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar