Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Работа для программиста > Фриланс
Регистрация

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

Ответ
 
Опции темы
Старый 30.09.2017, 13:52   #1
prostor7
 
Регистрация: 01.11.2013
Сообщений: 6
Репутация: 10
По умолчанию Нужно перевести pascal код на assembler

Добрый день нужна помощь. Возможно за вознаграждение.
Функция на Pascal:
Код:

Function GetDistance(StartLat,StartLong,EndLat,EndLongouble):Integer;
const
// Константы, используемые для вычисления смещения и расстояния
D2R: Double = 0.017453; // Константа для преобразования градусов в радианы
R2D: Double = 57.295781; // Константа для преобразования радиан в градусы
a: Double = 6378137.0; // Основные полуоси
b: Double = 6356752.314245; // Неосновные полуоси
e2: Double = 0.006739496742337; // Квадрат эксцентричности эллипсоида
f: Double = 0.003352810664747; // Выравнивание эллипсоида
var
// Передаваемые широта/долгота в градусах и сотых долях
{StartLat: double; // Начальная широта
StartLong: double; // Начальная долгота
EndLat: double; // Конечная широта
EndLong: double; // Конечная долгота}

// Переменные, используемые для вычисления смещения и расстояния
fPhimean: Double; // Средняя широта
fdLambda: Double; // Разница между двумя значениями долготы
fdPhi: Double; // Разница между двумя значениями широты
fAlpha: Double; // Смещение
fRho: Double; // Меридианский радиус кривизны
fNu: Double; // Поперечный радиус кривизны
fR: Double; // Радиус сферы Земли
fz: Double; // Угловое расстояние от центра сфероида
fTemp: Double; // Временная переменная, использующаяся в вычислениях
Distance: Double; // Вычисленное расстояния в метрах
begin
if ((StartLat=EndLat) and (StartLong=EndLong)) then
Begin
Distance:=0;
exit;
End;
// Вычисляем разницу между двумя долготами и широтами и получаем среднюю широту
fdLambda := (StartLong - EndLong) * D2R;
fdPhi := (StartLat - EndLat) * D2R;
fPhimean := ((StartLat + EndLat) / 2.0) * D2R;

// Вычисляем меридианные и поперечные радиусы кривизны средней широты
fTemp := 1 - e2 * (Power(Sin(fPhimean),2));
fRho := (a * (1 - e2)) / Power(fTemp, 1.5);
fNu := a / (Sqrt(1 - e2 * (Sin(fPhimean) * Sin(fPhimean))));

// Вычисляем угловое расстояние
fz :=
Sqrt(Power(Sin(fdPhi/2.0),2)+Cos(EndLat*D2R)*Cos(StartLat*D2R)*
Power(Sin(fdLambda/2.0),2)) ;
fz := 2 * ArcSin(fz);

// Вычисляем смещение
fAlpha := Cos(EndLat * D2R) * Sin(fdLambda) * 1 / Sin(fz);


fAlpha := ArcSin(fAlpha);

// Вычисляем радиус Земли
fR := (fRho * fNu) / ((fRho * Power(Sin(fAlpha),2)) + (fNu * Power(Cos(fAlpha),2)));

// Получаем смещение и расстояние
Distance := (fz * fR);

Result:=ROUND(Distance);
end;


Последний раз редактировалось Alex11223; 30.09.2017 в 13:55.
prostor7 вне форума   Ответить с цитированием
Старый 30.09.2017, 14:30   #2
MansMI
Пользователь
 
Регистрация: 04.07.2012
Сообщений: 26
Репутация: 121
По умолчанию

mansmi@yandex.ru пишите
MansMI вне форума   Ответить с цитированием
Старый 01.10.2017, 09:58   #3
alexcoder
Участник клуба
 
Регистрация: 31.05.2009
Сообщений: 739
Репутация: 410

skype: alexcoder1
По умолчанию

Если актуально, обращайтесь.
__________________
Помощь с программами:
vk.com/alexcoder1
e-mail: informatik101@mail.ru
alexcoder вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
помогите перевести код Pascal в код Lazarus Ляйсан9517 Lazarus, Free Pascal, CodeTyphon 13 22.05.2014 17:19
Перевести код в Assembler qpuTuJlb Assembler 3 19.12.2013 12:17
Нужно перевести код с Delphi на C++ Дима я Общие вопросы C/C++ 2 28.06.2010 21:15


18:43.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru