Pascal/Turbo Pascal - error en areas

   
Vista:

error en areas

Publicado por mery (8 intervenciones) el 30/09/2014 12:49:49
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Var
  radio: real;
  area: integer;
  perimetro: integer;
  pi:real;
  tonta: integer;
 
begin
  writeln ('radio?');
  read (radio);
  writeln('perimetro o area?');
  if not perimetro then
     area:=radio^2*pi
  else
    perimetro:=2radio*pi;
 
  read (tonta);
 
end.

Me dice que ^ no existe y E no lo reconoce como símbolo
gracias!
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 areas

Publicado por ramon (2072 intervenciones) el 30/09/2014 23:17:00
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
{Mira esto}
 
Var
  radio: real;
  area: integer;
  perimetro: integer;
  pi:real;
  tonta: integer;
 
begin
  writeln ('radio?');
  read (radio);
  writeln('perimetro o area?');
  if not perimetro then
   begin
     area := 3.1416 * (radio * 2);
      writeln(area);
    end
  else
       begin
            perimetro := (2 * 3.1416) * radio;
             writeln(perimetro);
 
  readln;
 
end.
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

error en areas

Publicado por ramon (2072 intervenciones) el 30/09/2014 23:41:46
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
29
30
31
32
33
34
35
{Esto es lo que pides}
 
uses
   crt;
 
Var
radio: real;
area: real;
perimetro: real;
pi:real;
tonta: integer;
tt : char;
 
 
begin
clrscr;
perimetro := 0.0;
write('radio?');
readln(radio);
writeln('[P]=perimetro  [A]=area');
repeat
    tt := upcase(readkey);
until tt in['P','A'];
if  tt = 'A' then
begin
area := 3.1416 * (radio * radio);
writeln('  El Area Es = ',area:0:4);
end
else
begin
perimetro := (2 * 3.1416) * radio;
writeln('   El Perimetro Es = ',perimetro:0:4);
end;
readln;
end.
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