-
Lenguaje
Pascal
-
Descripción
Calcular el seno de los grados entre 0 y 360, y los despliegue en una lista de 30 grados en 30 grados.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
program SenoDeLosGradosEntre0Y360;
uses crt, math;
var i : integer;
var grados, seno : real;
begin
for i:=1 to 13 do
begin
writeln ('PROCESO ', i);
grados := (i-1)*30;
seno := sin(grados*PI/180);
writeln ('Valor de grados: ', grados:0:6);
writeln ('Valor de seno: ', seno:0:6);
writeln;
end;
end.
uses crt, math;
var i : integer;
var grados, seno : real;
begin
for i:=1 to 13 do
begin
writeln ('PROCESO ', i);
grados := (i-1)*30;
seno := sin(grados*PI/180);
writeln ('Valor de grados: ', grados:0:6);
writeln ('Valor de seno: ', seno:0:6);
writeln;
end;
end.