-
Lenguaje
Pascal
-
Descripción
Si construir un escalón cuesta $X y por cada metro de altura se necesitan 3 escalones. Para un edificio que mide Z kilómetros de altura ¿Cuántos escalones tendrá el edificio? Y ¿Cuánto cuesta hacer todos los escalones?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
program ConstruccionDeEscalones;
uses crt, math;
var X, Z, costo, escalones : real;
begin
write ('Ingresa el valor de X: ');
readln (X);
write ('Ingresa el valor de Z: ');
readln (Z);
escalones := floor(Z*1000*3);
costo := X*escalones;
writeln ('Valor de costo: ', costo:0:6);
writeln ('Valor de escalones: ', escalones:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt, math;
var X, Z, costo, escalones : real;
begin
write ('Ingresa el valor de X: ');
readln (X);
write ('Ingresa el valor de Z: ');
readln (Z);
escalones := floor(Z*1000*3);
costo := X*escalones;
writeln ('Valor de costo: ', costo:0:6);
writeln ('Valor de escalones: ', escalones:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.