Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 11.03.2008, 16:47   #1
=XAM=
 
Регистрация: 07.03.2008
Сообщений: 9
По умолчанию Перевод радиан в градусы

Вот такая вот трабла... Не могу разобраться что нужно сделать, подкиньте кто-нить код проги!))))

Ввод с помощью компоненты Edit числа, задающего значение угла в радианной мере и вывод нажатием соответствующей кнопки значения этого угла в градусной мере.
=XAM= вне форума
Старый 11.03.2008, 17:11   #2
=XAM=
 
Регистрация: 07.03.2008
Сообщений: 9
По умолчанию

Ну вот просто дали такое задание, а как само действие в коде осуществить не знаю... нужна именно строка, описывающая это действие...
=XAM= вне форума
Старый 11.03.2008, 17:32   #3
AlDelta
Реанимируюсь...
Участник клуба
 
Аватар для AlDelta
 
Регистрация: 19.07.2007
Сообщений: 1,445
По умолчанию

=XAM=
Код:
Rad:=Grad*Pi/180;//перевод градусов (Grad) в радианы (Rad) 
Grad:=Rad*180/Pi;//обратный перевод
Пишите код так, как будто сопровождать его будет склонный к насилию психопат, который знает, где вы живёте.
Правила форума => Правила раздела => Для общего развития => Помощь студентам => Перед тем, как создавать тему, скачайте себе...
P.S.: форум не песочница (с)
название статьи на сайте MS: "Отмена принудительного отключения автоматического запуска в реестре Windows"
AlDelta вне форума
Старый 11.03.2008, 18:27   #4
=XAM=
 
Регистрация: 07.03.2008
Сообщений: 9
По умолчанию

спасибо!!!!!
=XAM= вне форума
Старый 14.03.2008, 12:33   #5
=XAM=
 
Регистрация: 07.03.2008
Сообщений: 9
По умолчанию

препод не хочет принимать!! говорит, чтоб в результате показывалось не простое дробное число, а градусы минуты секунды! Как такое можно сделать???
=XAM= вне форума
Старый 14.03.2008, 13:38   #6
B_N
Новичок
Джуниор
 
Регистрация: 18.01.2008
Сообщений: 1,720
По умолчанию

Цитата:
Сообщение от =XAM= Посмотреть сообщение
препод не хочет принимать!! говорит, чтоб в результате показывалось не простое дробное число, а градусы минуты секунды! Как такое можно сделать???
Дробную часть градусов умножить на 60 - получим минуты, новую дробную часть ещё раз умножить на 60 - получим секунды...
B_N вне форума
Старый 14.03.2008, 13:46   #7
puporev
Старожил
 
Регистрация: 13.10.2007
Сообщений: 2,740
По умолчанию

На спиши, но прочитай учебник геометрии, а то опять не сдашь. Если не нравится вывод, переделай, писал на скорую руку.
Код:
uses crt;
var Rd,Gr,G,M,S:real;GMS:string;
begin
clrscr;
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.
puporev вне форума
Старый 15.03.2008, 16:59   #8
=XAM=
 
Регистрация: 07.03.2008
Сообщений: 9
По умолчанию

спасибо, ребят, выручили!
=XAM= вне форума
Старый 16.03.2008, 20:25   #9
=XAM=
 
Регистрация: 07.03.2008
Сообщений: 9
По умолчанию

сделал вот так! никак не могу отобразить в Edit2!!!

procedure TForm1.Button1Click(Sender: TObject);
var G,M,S,Rd,Gr:real;
begin
Rd:=strtoint(Edit1.Text);
Gr:=strtoint(Edit1.Text);
G:=int(Gr);
M:=int(frac(Gr)*60);
S:=frac(frac(Gr)*60);
Gr:=Rd*180/pi;
Edit2.Text:=G:3:0,'gr ',M:3:0,'min ',S:3:1,'sec';
end;
=XAM= вне форума
Старый 16.03.2008, 22:09   #10
puporev
Старожил
 
Регистрация: 13.10.2007
Сообщений: 2,740
По умолчанию

Цитата:
Edit2.Text:=G:3:0,'gr ',M:3:0,'min ',S:3:1,'sec';
end;
Это же тебе не Паскаль, здесь надо
Код:
procedure TForm1.Button1Click(Sender: TObject);
var G,M,S,Rd,Gr:real;
begin
Rd:=strtofloat(Edit1.Text); //вещественный тип
Gr:= Rd*180/pi;
G:=int(Gr);
M:=int(frac(Gr)*60);
S:=frac(frac(Gr)*60);
Edit2.Text:=Edit2.Text+floattostrF(G,ffFixed,6,0)+'gr '+floattostrF(M,ffFixed,2,0)+'min '+floattostrF(S,ffFixed,3,1)+'sec';
end;  //floattostrF(S,ffFixed,4,1) форматированный вывод, например здесь 
всего 4 позиции и один знак после запятой

end.
puporev вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
перевод в последовательность Janette Паскаль, Turbo Pascal, PascalABC.NET 2 23.03.2008 14:11
Есть ли функция для cos параметр которого не радианы, а градусы? Gromsky Помощь студентам 6 14.03.2008 16:26
перевод величин Vasya Свободное общение 13 18.11.2007 00:08
перевод числа kommunist Помощь студентам 5 15.10.2007 22:58