-
Lenguaje
Pascal
-
Descripción
Genere una tabla de los cuadrados y los cubos de los números enteros del 1 al 10. La tabla resultante debe tener la siguiente forma:
Número | Cuadrado | Cubo
1 | 1 | 1
2 | 4 | 8
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
program TablaDeCuadradosYCubos;
uses crt;
var i : integer;
var cuadrado, cubo, numero : real;
begin
for i:=1 to 10 do
begin
writeln ('PROCESO ', i);
numero := i;
cuadrado := numero*numero;
cubo := cuadrado*numero;
writeln ('Valor de cuadrado: ', cuadrado:0:6);
writeln ('Valor de cubo: ', cubo:0:6);
writeln ('Valor de numero: ', numero:0:6);
writeln;
end;
end.
uses crt;
var i : integer;
var cuadrado, cubo, numero : real;
begin
for i:=1 to 10 do
begin
writeln ('PROCESO ', i);
numero := i;
cuadrado := numero*numero;
cubo := cuadrado*numero;
writeln ('Valor de cuadrado: ', cuadrado:0:6);
writeln ('Valor de cubo: ', cubo:0:6);
writeln ('Valor de numero: ', numero:0:6);
writeln;
end;
end.