Составить программу, осуществляющую перевод величин из радианной меры в градусную или наоборот
Составить программу, осуществляющую перевод величин из радианной меры в градусную или наоборот. Программа должна запрашивать, какой перевод нужно осуществить, и выполнять указанное действие.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 |
program z1; var x:integer; y,g,r:real; begin writeln ('Осуществить перевод из радианной меры угла в градусную = введите 1'); writeln ('Осуществить перевод из градусной меры угла в радианную = введите 2'); readln (x); If x=1 then begin writeln ('Введите число в градусов'); readln (g); r:=g*0.017; writeln (g,'градусов=',r,'радиан'); end else begin writeln ('Введите число в радианах'); readln (r); g:=r*57.3; writeln (r,'радина=',g,'градусов'); end; end. |
Будем благодарны, если вы поделитесь данной записью со своими друзьями в социальных сетях, оставите отзыв и посмотрите другие материалы на нашем сайте.