-
Lenguaje
Pascal
-
Descripción
Hallar la cantidad de metros necesaria para envolver un terreno circular n veces, ingresando adicionalmente como datos de entrada el radio de ese terreno.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
2
3
4
5
6
7
8
9
10
11
12
13
14
15
program TerrenoCircular;
uses crt, math;
var cantidad_de_metros2, n, radio_en_metros : real;
begin
write ('Ingresa el valor de n: ');
readln (n);
write ('Ingresa el valor de radio en metros: ');
readln (radio_en_metros);
cantidad_de_metros2 := PI*radio_en_metros*radio_en_metros*n;
writeln ('Valor de cantidad de metros2: ', cantidad_de_metros2:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt, math;
var cantidad_de_metros2, n, radio_en_metros : real;
begin
write ('Ingresa el valor de n: ');
readln (n);
write ('Ingresa el valor de radio en metros: ');
readln (radio_en_metros);
cantidad_de_metros2 := PI*radio_en_metros*radio_en_metros*n;
writeln ('Valor de cantidad de metros2: ', cantidad_de_metros2:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.