-
Lenguaje
Pascal
-
Descripción
Saber cuántos metros debes comprar para cercar un terreno de forma rectangular, dados los siguientes datos: largo, ancho y la cantidad de cerca que tienen en bodega.
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 CercarUnTerreno;
uses crt;
var ancho, largo, metros_comprar, metros_en_bodega : real;
begin
write ('Ingresa el valor de ancho: ');
readln (ancho);
write ('Ingresa el valor de largo: ');
readln (largo);
write ('Ingresa el valor de metros en bodega: ');
readln (metros_en_bodega);
metros_comprar := largo*ancho-metros_en_bodega;
writeln ('Valor de metros comprar: ', metros_comprar:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var ancho, largo, metros_comprar, metros_en_bodega : real;
begin
write ('Ingresa el valor de ancho: ');
readln (ancho);
write ('Ingresa el valor de largo: ');
readln (largo);
write ('Ingresa el valor de metros en bodega: ');
readln (metros_en_bodega);
metros_comprar := largo*ancho-metros_en_bodega;
writeln ('Valor de metros comprar: ', metros_comprar:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.