-
Lenguaje
Pascal
-
Descripción
Indicar si el ángulo ingresado por el usuario es un ángulo agudo, recto, llano u obtuso
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
program TipoDeAngulo;
uses crt;
var angulo : integer;
begin
write ('Ingresa el valor de angulo: ');
readln (angulo);
if (angulo>0) and (angulo<90) then
begin
writeln ('Agudo');
end;
if angulo=90 then
begin
writeln ('Recto');
end;
if (angulo>90) and (angulo<180) then
begin
writeln ('Obtuso');
end;
if angulo=180 then
begin
writeln ('Llano');
end;
if (angulo<0) or (angulo>180) then
begin
writeln ('Ninguno');
end;
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var angulo : integer;
begin
write ('Ingresa el valor de angulo: ');
readln (angulo);
if (angulo>0) and (angulo<90) then
begin
writeln ('Agudo');
end;
if angulo=90 then
begin
writeln ('Recto');
end;
if (angulo>90) and (angulo<180) then
begin
writeln ('Obtuso');
end;
if angulo=180 then
begin
writeln ('Llano');
end;
if (angulo<0) or (angulo>180) then
begin
writeln ('Ninguno');
end;
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.