Pascal/Turbo Pascal - Error en el else y no se q esta mal

   
Vista:

Error en el else y no se q esta mal

Publicado por pabloirigo (3 intervenciones) el 30/09/2014 12:51:43
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
var
  radio: real;
  pi: real;
  perimetro: real;
  area: real;
  a:integer;
  z: integer;
 
begin
  pi:= 3.14;
  writeln ('Introduzca radio');
  read (radio);
  writeln ('yes(0) or no(1)');
  read (a);
  if a=0 then
   area:=(pi*radio*radio);
   writeln (area);
 
  else
   perimetro:=(2*pi*radio);
   writeln (perimetro);
  read (z);
 
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

Error en el else y no se q esta mal

Publicado por David (145 intervenciones) el 30/09/2014 23:08:13
Lo que está mal es que en la instrucción anterior al else sobra el punto y coma. Además de lo que creo que es un error de concepto y que te comento en el código

Debería quedar como sigue:

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
var
radio: real;
pi: real;
perimetro: real;
area: real;
a:integer;
z: integer;
 
begin
pi:= 3.14;
writeln ('Introduzca radio');
read (radio);
writeln ('yes(0) or no(1)');
read (a);
if a=0 then {Si no pones begin..end, aquí te mostraría siempre el área elijas la opción que elijas}
begin
area:=(pi*radio*radio);
writeln (area);
 
end
 
else
begin
perimetro:=(2*pi*radio);
writeln (perimetro);
read (z);
end;
end.

Otra cosa que te recomiendo es que para leer variables utilices readln en lugar de read, y dejes este último para la lectura de ficheros binarios.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar

Error en el else y no se q esta mal

Publicado por pabloirigo (3 intervenciones) el 02/10/2014 14:52:51
Grach makina
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