Перевод радиан в градусы - Помощь студентам

=XAM= · 11.03.2008, 16:47

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

Ввод с помощью компоненты Edit числа, задающего значение угла в радианной мере и вывод нажатием соответствующей кнопки значения этого угла в градусной мере.

=XAM= · 11.03.2008, 17:11

Ну вот просто дали такое задание, а как само действие в коде осуществить не знаю... нужна именно строка, описывающая это действие...

AlDelta · 11.03.2008, 17:32

=XAM=

Код:

Rad:=Grad*Pi/180;//перевод градусов (Grad) в радианы (Rad) 
Grad:=Rad*180/Pi;//обратный перевод

=XAM= · 11.03.2008, 18:27

спасибо!!!!!

=XAM= · 14.03.2008, 12:33

препод не хочет принимать!! говорит, чтоб в результате показывалось не простое дробное число, а градусы минуты секунды! Как такое можно сделать???

B_N · 14.03.2008, 13:38

Цитата:

Сообщение от =XAM=

препод не хочет принимать!! говорит, чтоб в результате показывалось не простое дробное число, а градусы минуты секунды! Как такое можно сделать???

Дробную часть градусов умножить на 60 - получим минуты, новую дробную часть ещё раз умножить на 60 - получим секунды...

puporev · 14.03.2008, 13:46

На спиши, но прочитай учебник геометрии, а то опять не сдашь. Если не нравится вывод, переделай, писал на скорую руку.

Код:

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.

=XAM= · 15.03.2008, 16:59

спасибо, ребят, выручили!

=XAM= · 16.03.2008, 20:25

сделал вот так! никак не могу отобразить в 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;

puporev · 16.03.2008, 22:09

Цитата:

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.

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

11.03.2008, 17:32	#3
AlDelta Реанимируюсь... Участник клуба Регистрация: 19.07.2007 Сообщений: 1,445	=XAM= Код: `Rad:=GradPi/180;//перевод градусов (Grad) в радианы (Rad) Grad:=Rad180/Pi;//обратный перевод` Пишите код так, как будто сопровождать его будет склонный к насилию психопат, который знает, где вы живёте. Правила форума => Правила раздела => Для общего развития => Помощь студентам => Перед тем, как создавать тему, скачайте себе... P.S.: форум не песочница (с) название статьи на сайте MS: "Отмена принудительного отключения автоматического запуска в реестре Windows"

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:=Rd180/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.`

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
перевод в последовательность	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

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

11.03.2008, 18:27	#4
=XAM= Регистрация: 07.03.2008 Сообщений: 9	спасибо!!!!!

14.03.2008, 12:33	#5
=XAM= Регистрация: 07.03.2008 Сообщений: 9	препод не хочет принимать!! говорит, чтоб в результате показывалось не простое дробное число, а градусы минуты секунды! Как такое можно сделать???

15.03.2008, 16:59	#8
=XAM= Регистрация: 07.03.2008 Сообщений: 9	спасибо, ребят, выручили!

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;