• Lenguaje

    Pascal

  • Descripción

    Dado un radio mayor (R) y el radio menor (r) de un trapecio circular de amplitud en grados igual a g grados, calcule el área del trapecio circular. La ecuación representativa del área (A) del trapecio circular es:
    A = π(R2 − r2)g / 360°

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
program AreaDeUnTrapecioCircular;
uses crt, math;

var area, g, radio_mayor, radio_menor : real;
begin
    write ('Ingresa el valor de g: ');
    readln (g);
    write ('Ingresa el valor de radio mayor: ');
    readln (radio_mayor);
    write ('Ingresa el valor de radio menor: ');
    readln (radio_menor);
    area := PI*(radio_mayor*radio_mayor-radio_menor*radio_menor)*g/360;
    writeln ('Valor de area: ', area:0:6);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.