|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Я новичок помогите выразить арккос сутки потратил башка болит
Поправьте меня Арккосинус нечитает
Код:
var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button4Click(Sender: TObject); var x2,x3,x4,x5:integer; y2,y3,y4,y5:integer; d2,d3,d4,d5:real; dx2,dx3,dx4,dx5:real; dy2,dy3,dy4,dy5:real; A1,A2,A3:real; B1,B2,B3:real; begin x2:=StrToint(Edit4.Text); y2:=StrToint(Edit5.Text); x3:=StrToint(Edit6.Text); y3:=StrToint(Edit7.Text); x4:=StrToint(Edit8.Text); y4:=StrToint(Edit9.Text); x5:=StrToint(Edit10.Text); y5:=StrToint(Edit11.Text); dx2:=x5-x2; dy2:=y5-y2; d2:=Sqrt(Sqr(dx2)+Sqr(dy2)); B1:=(dx2/d2); A1:=ArcCos(B1); label17.Caption :='Дальность: '+FloatToStrF(d2,ffFixed,4,2) +#13+FloatToStrF(A1,ffFixed,4,2); end; end. Последний раз редактировалось izunad, 06.02.2010 в 00:39. |
#2
|
|||
|
|||
А зачем? Подключи модуль math - там готовый есть.
|
#3
|
|||
|
|||
Это сложнее чем составить выражение я в программировании первый день)
Извини я просто не понимаю о чем речь) представление не имею где найти этот модуль |
#4
|
||||
|
||||
А что значит не нечитает?
Выдает ошибку на этой строке или результат неправильный? Модуль Math искать не надо просто пишешь Код:
implementation uses Math; |
#5
|
|||
|
|||
Выдает ошибку я так понимаю синтаксическую
|
#6
|
|||
|
|||
Блин чуствую себя идиотом я даже кодом что мне дали не умею пользоваться если кому нетрудно напишите как должно выглядеть выражение в моем случае! второй день с мертвой точки немогу двинутся
сто учебников скачал гугл обшарил немогу решить проблему A-есть угол,В-есть отношение сторон в прямоугольном треугольнике, нужно из отношения сторон возвратить угол а через арккосинус или арксинус неважно вообще просто покажите нубу как правильно написать,может это связано с тем что я неправильно дал свойство значению А? помогите плиз вот упрощеный вариант (система координат) Цитата:
Последний раз редактировалось izunad, 06.02.2010 в 13:13. |
#7
|
|||
|
|||
Добавь модуль
Код:
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Math; |
#8
|
|||
|
|||
Drozh спс доступно объяснил! Спасибо всем кто отозвался на мою проблему! Ловите +
|