Pascal/Turbo Pascal - Problema con número real

 
Vista:
sin imagen de perfil
Val: 11
Ha aumentado su posición en 2 puestos en Pascal/Turbo Pascal (en relación al último mes)
Gráfica de Pascal/Turbo Pascal

Problema con número real

Publicado por Ricardo (6 intervenciones) el 17/10/2016 19:53:36
Buenas tardes,

Estoy haciendo mis primeros programa en Pascal y me surge un problema que no sé solucionar.

El programa adjunto calcula el índice de grasa de una persona. Cuando solicito que ingrese altura y peso, lo solicita en formato científico.... Cómo puedo hacer para que lo pida en formato de número real?

La siguiente duda es que cuando pido la edad, el peso y la altura en pantalla aparece digitos (por ejemplo un "0" ) antes de ingresar el dato. Cómo puedo hacer para que no aparezcan esos dígitos en pantalla?

Gracias por vuestro tiempo.

Ricardo
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

Problema con número real

Publicado por ramon (2127 intervenciones) el 17/10/2016 22:27:08
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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
{Mira tu programa corregido}
 
(*
Nombre:
Email:
Fecha:
Comentario:  Programa que calcula el IMC y
 
muestra en
pantalla todos los datos
*)
 
(* Nombre del programa *)
Program Peso_relativo;
 
uses
   crt;
 
(* Definición de variables *)
Var
   nombre: string;
   edad: integer;
   peso, altura, peso_rel:real;
 
(* Programa principal *)
Begin
 
(* Inicialización de variables *)
   nombre:='';
   edad:=0;
   peso:=0;
   altura:=0;
   peso_rel:=0;
 
(*Introducción de variables *)
     write('Introduzca su nombre : ');
     read(nombre);
     write('Introduzca su edad   : ');
     read(edad);
     write('Introduzca su altura (m.) :');
     read(altura);
     write('Introduzca su peso (kg) : ');
     read(peso);
 
(* Cálculo de resultados *)
     peso_rel:=peso/(altura*altura);
 
(* Presentación de datos en pantalla *)
     writeln(nombre, ' de ', edad, ' años,

tiene un IMC de ', peso_rel:0:2);
 
readkey;
end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
2
Comentar
sin imagen de perfil
Val: 11
Ha aumentado su posición en 2 puestos en Pascal/Turbo Pascal (en relación al último mes)
Gráfica de Pascal/Turbo Pascal

Problema con número real

Publicado por Ricardo (6 intervenciones) el 18/10/2016 16:49:40
Muchas gracias por la respuesta.
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