Перевести радианы в градусы, минуты и секунды

@suggestion · Регистрация: 04.09.2020

Студворк — интернет-сервис помощи студентам

перевести заданную величину угла из радианной меры в градусную
пример:0,79417329102553 рад=45°30'10"

Добавлено через 2 часа 5 минут
Составить программу на паскале перевода радианной меры угла в градусы, минуты, секунды.

Добавлено через 10 минут

Pascal
1
2
3
4
5
6
7
8
9
10
var Rd,Gr,G,M,S:real;
begin;
write('Rd=');readln(Rd);
Gr:=Rd*180/pi;
G:=int(Gr);
M:=int(frac(Gr)*60);
S:=frac(frac(Gr)*60);
Write(Rd:4:2,'rad= ',G:3:0,'gr ',M:3:0,'min ',S:3:1,'sec');
readln
end.

такая программа считает правильно градусы и минуты, а секунды считает неправильно

@Cyborg Drone · 05.09.2020, 06:47

При расчёте секунд забыли минуты выкинуть, а, скорее всего, просто не сообразили, как будет правильно, поскольку количество секунд у Вас получается менее одной.

Неверные форматы вывода. Градусы могут быть и более трёх цифр, поэтому :0:0 (по описанию формата вывода, при указании :0 для целой части числа эта самая целая часть выводится не в 0 позиций, а в минимально возможное количество позиций). Минуты - это две цифры, значит, :2:0. Секунды... Полагаю, Вы хотели указать :4:1, поскольку 4 - это общее количество позиций, вместе с дробной частью, знаком числа и десятичной точкой. Знак у положительных чисел не выводится, поэтому две позиции - секунды, одна позиция - десятичная точка, и одна позиция - десятые доли секунды. Всего четыре позиции. Желаете больше цифр в дробной части, рассчитывайте для данного случая формат как : (N+3) : N, где N - количество позиций в дробной части числа. Например, при пяти позициях в дробной части формат будет :8:5.

Исправленная программа:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var
  Rd, Gr, G, M, S: real;
begin;
  write('Rd = ');
  readln(Rd);
  Gr := Rd * 180 / pi;
  G := int(Gr);
  M := int(frac(Gr) * 60);
  S := frac(Gr * 60) * 60;
  write(Rd:0:15, 'rad = ', G:0:0, 'gr ', M:2:0, 'min ', S:4:1, 'sec');
  readln
end.

@lartia · 07.09.2020, 09:36

А не проще для этого использовать RadToDeg?

@Puporev · 07.09.2020, 11:16

Сообщение от lartia

А не проще для этого использовать RadToDeg?

Смотря какой Паскаль, и не RadToDeg, a наоборот. И вряд ли получите такой формат

Сообщение от suggestion

рад=45°30'10"

@mr-Crocodile · 08.09.2020, 09:21

lartia, не получится.
функция RadToDeg заменит всего одну строчку кода - конкретно строчку 6

Delphi
1
2
3
4
function RadToDeg(const Radians: Extended): Extended;  { Degrees := Radians * 180 / PI }
begin
  Result := Radians * (180 / PI);
end;

но функция просто вернёт дробное число.
А автору темы нужно получить градусы, минуты и секунды. См. пример у автора в сообщении #1

ну и как правильно отмечено, эта функция далеко не в любом Паскале имеется.

Новые блоги и статьи Все статьи Все блоги /
Первый деплой lagorue 16.01.2026 Не спеша развернул своё 1ое приложение в kubernetes. А дальше мне интересно создать 1фронтэнд приложения и 2 бэкэнд приложения развернуть 2 деплоя в кубере получится 2 сервиса и что-бы они. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит токи на L и напряжения на C в установ. режимах до и. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .	Изучаю kubernetes lagorue 13.01.2026 А пригодятся-ли мне знания kubernetes в России?
Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .	Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .

@lartia 68 / 2 / 0 Регистрация: 09.06.2015 Сообщений: 210
	07.09.2020, 09:36
	А не проще для этого использовать RadToDeg? 0

Перевести радианы в градусы, минуты и секунды

Решение