Pascal/Turbo Pascal - me falla el cáculo en una parte del programa

   
Vista:

me falla el cáculo en una parte del programa

Publicado por luis (2 intervenciones) el 09/10/2013 21:23:01
Buenas tardes tengo un problema y la parte de introducir datos la tengo clara pero la del cálculo algo falla.


saludos


Deberá realizar un programa que calcule un valor que nos indicará el peso relativo. El programa solicitará al usuario sus datos personales (nombre, edad, sexo, etc), su altura y su peso.
¿Cómo se calcula dicho valor? Dividiendo el peso (en Kg.) con el cuadrado de la altura expresada en metros.

Para elevar al cuadrado una cantidad basta con multiplicarla por ella misma:

altura_al_cuadrado := altura * altura;
Una vez calculado el peso relativo, se debe presentar por pantalla: un resumen de todos los datos de entrada y el valor del peso relativo.





PROGRAM Peso;

VAR

NOMBRE : string [67];
sexo : string ;
edad : integer;
altura : real;
peso : integer;
peso_relativo: real;
altura_al_cuadrado: real;

CONST


BEGIN

WRITE ('introduce tu nombre: ');
readln (nombre);
write ('introduce tu edad: ');
readln (edad);
write ('introduce tu altura: ');
readln (altura);
write ('introduce tu peso: ');
readln (peso);
write ('introduce tu sexo: ');
readln (sexo);




END.

begin

altura_al_cuadrado:= altura*altura
writeln ('la altura es: '); write (altura_al_cuadrado);


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

me falla el cáculo en una parte del programa

Publicado por ramon (2072 intervenciones) el 10/10/2013 12:34:50
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
{Mira a qui tienes lo que as puesto a ver si es esto lo que querías sino aclárame lo que quieres.}
 
PROGRAM Peso12;
uses
   crt;
VAR
   NOMBRE : string [67];
   sexo : string ;
   edad : integer;
  altura : real;
   peso : integer;
  peso_relativo: real;
  altura_al_cuadrado: real;
 
 
 
 
BEGIN
 clrscr;
 WRITE ('introduce tu nombre: ');
 readln (nombre);
 write ('introduce tu edad: ');
 readln (edad);
 write ('introduce tu altura: ');
 readln (altura);
 write ('introduce tu peso: ');
 readln (peso);
 write ('introduce tu sexo: ');
 readln (sexo);
 altura_al_cuadrado:= altura * altura;
 peso_relativo := altura_al_cuadrado / peso;
 writeln('  altura_al_cuadrado es  : ',altura_al_cuadrado:0:2);
 writeln('  peso_relativo          : ',peso_relativo:0:2);
 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

me falla el cáculo en una parte del programa

Publicado por luis (2 intervenciones) el 10/10/2013 19:05:04


buenas tardes Ramón, muchísimas gracias fallaba en los últimos códigos ahora si.

writeln(' altura_al_cuadrado es : ',altura_al_cuadrado:0:2);
writeln(' peso_relativo : ',peso_relativo:0:2);
readln;
end.




saludos
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