Pascal/Turbo Pascal - error con un else

   
Vista:

error con un else

Publicado por sergio (2 intervenciones) el 06/03/2018 20:17:15
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
program Project1;
 
{$mode objfpc}{$H+}
 
uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes
  { you can add units after this };
    var pL, sL, tL: Real;
begin
  writeLn('Ingrese el primer lado'); ReadLn(pL);
  writeLn('Ingrese el Segundo lado'); ReadLn(sL);
  writeLn('Ingrese el Tercer lado'); ReadLn(tL);
 
  if((pL=sL) and (sL=tL))then
  writeLn('El triangulo es Equilatero')
  else if((pL=sL) or (pL=tL) or (sL=tL)) then
  writeLn('El triangulo es Isoceles');
    else ((pL <>sl) or (pL <>tL) or (tL <>sL))
     writeLn('EL triangul es escaleno');
     ReadLn;
end.
    { Realizar un programa que, proporcionada tres longitudes, diga si forman un triángulo
tengo un error en el codigo pero no se que sera, Gracias por la ayuda
 }
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

error con un else

Publicado por dario alderaan@ec-red.com (38 intervenciones) el 07/03/2018 05:01:20
Tu mismo codigo arreglado.
Tenias un error en el ELSE, nunca va una condicion despues del ELSE
Tu error: else ((pL <>sl) or (pL <>tL) or (tL <>sL)), si quieres hacerla con condicion entonces tienes que poner un ELSE IF.

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
program Project1;
 
{$mode objfpc}{$H+}
 
uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes
  { you can add units after this };
    var pL, sL, tL: Real;
begin
  writeLn('Ingrese el primer lado'); ReadLn(pL);
  writeLn('Ingrese el Segundo lado'); ReadLn(sL);
  writeLn('Ingrese el Tercer lado'); ReadLn(tL);
 
  if((pL=sL) and (sL=tL))then
	writeLn('El triangulo es Equilatero')
  else if((pL=sL) or (pL=tL) or (sL=tL)) then
	writeLn('El triangulo es Isoceles')
  else
     writeLn('EL triangul es escaleno');
  ReadLn;
end.
    { Realizar un programa que, proporcionada tres longitudes, diga si forman un triángulo
tengo un error en el codigo pero no se que sera, Gracias por la ayuda
 }
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
Revisar política de publicidad