• 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
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.