Pascal/Turbo Pascal - El resultado me salgan dos decimales

   
Vista:

El resultado me salgan dos decimales

Publicado por mery (8 intervenciones) el 06/10/2014 13:24:00
Hola, quiero que en el resultado me salgan dos decimales y me salen en notación científica, que tengo que hacer para que me salgan dos? Muchas gracias
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
begin
 
  writeln (' radio');
  read (radio);
  writeln('perimetro o area?');
  pi:=3.14;
  area:=0;
  perimetro:=1;
  writeln ('area=0 perimetro=1');
  read(area);
  if area=0 then
    resul:=radio*radio*pi
 
  else
    resul:=2*radio*pi;
 
 
  writeln (resul);
  read (tonta);
 
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

El resultado me salgan dos decimales

Publicado por el del ahorcado en Pseint (1 intervención) el 06/10/2014 13:40:18
1
2
3
4
{se puede poner asi:}
writeln('', pi:8:2);
{esto se expresa como 8 cifras en total [incluso ;) el punto] y dos despues del punto decimal;}
{que esté bien}
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

El resultado me salgan dos decimales

Publicado por dario (20 intervenciones) el 06/10/2014 15:33:30
Esto te puede servir

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
uses crt;
const
	pi=3.14;
var
	radio,resul:real;
	opc:char;
begin
	clrscr;
	write('radio: ');
	readln(radio);
	write('perimetro[P] o area[A]: ');
	readln(opc);
	if opc='P' then
		resul:=radio*radio*pi
	else
		resul:=2*radio*pi;
	writeln (resul:5:2);
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