Изучаю Паскаль. Присоединяйтесь.

[B1tik_ZV]

не мертвей чем C++

Да, только почему то нормальный проекты и ОС разрабатывают на Си, и весь ЦОС на плюсах. Ну если нравится пальчики тыкать в дырочки можно баловать питухоном и веб разработкой)

[B1tik_ZV]

такой крутой

Это был рофл, ну для 6 класса пойдет яп, лучше скретчей и питона, хоть узнать основы типизации данных можно и процедурное программирования. А вообще мой опыт начинался с Basic'а, потом пересел на Си\C++ и Асм

[ma][im]

Не надо просто ни кому нынче ни то ни другое, власти США так вообще начали компанию за запрет С++

Все правильно, куда ожиревшим пиндосам ся, нахренячат ещё что-то с памятью, уто по тихоньку на питуне пусть работают со смузи и макбуком, родители 0..N

[PanzerK]

не мертвей чем C++

Да, только почему то нормальный проекты и ОС разрабатывают на Си, и весь ЦОС на плюсах. Ну если нравится пальчики тыкать в дырочки можно баловать питухоном и веб разработкой)

Да да... байки эти я ещё в шараге слышал... )))
Где только эти все мегаразработчики на Си - непонятно, криво правять китайские исходники?
Ну такое себе занятие, по мне так лучше бы не трогали и ограничились переводом интерфейса. 

[B1tik_ZV]

мегаразработчики на Си

Зайди на тот же hh.ru и посмотри кому нужны паскаль разрабы, одно объявление в МСК. ЯП живее всех живых
Все ПО пишется под линухню в сфере ОПК, весь высокоскоростной софт на плюсах. Да его пытаются подменить Rust'ом, но как-то не очень выходит. Советую поучить матчасть и может задуматься, что программирование не твое

[PanzerK]

мегаразработчики на Си

Зайди на тот же hh.ru и посмотри кому нужны паскаль разрабы, одно объявление в МСК. ЯП живее всех живых
Все ПО пишется под линухню в сфере ОПК, весь высокоскоростной софт на плюсах. Да его пытаются подменить Rust'ом, но как-то не очень выходит. Советую поучить матчасть и может задуматься, что программирование не твое

Ну так я и говорю - ни те ни эти никому не нужны)))
А барахло всякое пишут на С++ не от большого ума - просто исходников за 40-50 лет накопилось достаточно для типичного в нашей стране метода программирования Ctrl+C/Ctrl+V.

[Karagy]

Зайди на тот же hh.ru и посмотри

на всех тех кто до сих пор не нашел себе разработчиков.

[LeftUser]

Ну так я и говорю - ни те ни эти никому не нужны)))

Бабку напомнил 
"Ваш интерьнет нахрен никому не нужон!"

Ну а для серьёзно относящихся к вопросу советую прочесть: https://itproger.com/news/chto-ispolzuyut-dlya-napisaniya-koda-v-nasa-i-spacex

 


http://www.youtube.com/watch?v=mGHgzXxL2GM

[LeftUser]

В последнее время про Эрланг много разговоров. Но думаю, что отодвинуть стек С/С++ в ближайшие годы хрен у кого получится.

https://ru.wikipedia.org/wiki/Erlang

[PanzerK]

В последнее время про Эрланг много разговоров. Но думаю, что отодвинуть стек С/С++ в ближайшие годы хрен у кого получится.

https://ru.wikipedia.org/wiki/Erlang

Ну вы всё верно поняли - я просто веселюсь )))
Все эти разговоры напомнили мне о моей студенческой юности, точно такие же "срачи" Pascal vs C шли и 20 лет назад ровно с теми же аргументами сторон.
На самом деле всё куда проще - либо ты пишешь программы и ты программист, либо ты не пишешь программы и в лучшем случае ты кодер перелопачивающий чужой гуано-код. А используемый при этом язык программирования даже не вторичен... он вообще не существенен.
Распространённость же Pascal в наших учебных заведениях младшего звена имеет сугубо исторически-курьёзное происхождение, это первый компилируемый язык программирования с нормальной средой разработки который появился для школьных ПК в конце 80х, с тех пор так и повелось.

[B1tik_ZV]

  Просто сливаешься с темы*

[Karagy]

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

[LeftUser]

требует отличного зрения либо вспомогательной оптики.

Что у любого ЛА всегда под рукой 

[Проходящий Кот]

Сианисты   кроме      постоянного  срача  вы хоть что-то сказать можете
Впяпались в  шифровку и хотитк,  что  бы и остальные в неё вляпались.

[LeftUser]

Сианисты   кроме      постоянного  срача  вы хоть что-то сказать можете
Впяпались в  шифровку и хотитк,  что  бы и остальные в неё вляпались.

За комп с монитором и клавой, на котором запущен форум, надо садиться опрятным, трезвым и аккуратным 

[Павел Васильев]

За комп с монитором и клавой, на котором запущен форум, надо садиться опрятным, трезвым и аккуратным

Это верно, с себя надо начинать. Хотя со старыми кодами без пузыря порой трудно разобраться. Вот в первой версии Montenbruck O., Pfleger T.: Astronomie Mit Dem Personal Computer. Springer-Verlag Berlin Heidelberg (1989) все программы были на Паскале, они и сейчас в Delphi отлично компилируются и вполне в годном состоянии, хотя, конечно, надо интерфейс обновлять вместо консоли. А в следующем издании Montenbruck O., Pfleger T.: Astronomy on the Personal Computer. Springer-Verlag Berlin Heidelberg (2000) авторы перешли на Си, но эти консольные программы (их там полтора десятка) теперь в Visual Studio 19 или в C++Builder 12 не билдятся - выдается куча ошибок. Поэтому есть вопрос к знатокам Си среди ЛА - может кто-то эти примеры обновлял для современных сишных компиляторов, тогда поделитесь ссылкой на апгрейд. Я добавил в репозиторий AstroLibrary на Gitverse.ru все оригинальные сишные исходники из второго издания "Астрономия на ПС" здесь https://gitverse.ru/glscene/AstroLibrary/content/master/apex/cpp . Там же заготовка программы AppexC, которые объединит все эти полезные астро- и фотометрические подпрограммы в одну программу с современным GUI и 3д графикой. Всё опенсорс, приглашаются ЛА.
Montenbruck O., Pfleger T.: Astronomy on the Personal Computer. Springer-Verlag Berlin Heidelberg (2000)

[Павел Васильев]

А барахло всякое пишут на С++ не от большого ума - просто исходников за 40-50 лет накопилось достаточно для типичного в нашей стране метода программирования Ctrl+C/Ctrl+V.

В барахле то на свалке тоже иногда бриллианты находят. Редко правда.
Восстанавливать надо хорошие либы.
Вот сборка проекта ApexС.cbproj библиотеки https://gitverse.ru/glscene/AstroLibrary
прошла успешно но с исключением из билда нескольких важных модулей,
которые обращаются к R_x, R_y, R_z
из модуля APC_VecMat3D.h:
    // elementary rotations
    friend Mat3D R_x(double RotAngle);
    friend Mat3D R_y(double RotAngle);
    friend Mat3D R_z(double RotAngle);

Выдаёт такую ошибку:
[bcc32c Error] APC_Kepler.cpp(467): use of undeclared identifier 'R_z'
в функции
Mat3D GaussVec (double Omega, double i, double omega)
{
  return R_z(-Omega) * R_x(-i) * R_z(-omega);
}
Всё включено, но хрень какая-то, компилятор не находит. Уважаемые сишники,
подскажите в чём м.б. проблема? Либа то по астрономии очень полезная,
тем более целая книга на русском языке есть. Надо восстановить работу.
Подключайтесь к отладке.

[Toth]

в чём м.б. проблема?

Это лучше где-то здесь спросить - https://www.programmersforum.ru/
Я в Си не очень , особенно Си с крестиками. Паскаль мне удобнее.

PS Если кому интересно, например - матрицы вращения с Паскале. Фрагмент, но работающий, в одном модуле. Без классов, просто записи массивы.

Код: [Выделить]

unit astTypes;

interface
uses Math;
type
tVector=record
  X,Y,Z:Double;
 end;
tMatr33=array[1..3]of tVector;
{mt[1].x mt[2].x mt[3].x
 mt[1].y mt[2].y mt[3].y
 mt[1].z mt[2].z mt[3].z}
function mRotX(ug:Double):tMatr33;
implementation
//===============
function CreateVector(xx,yy,zz:Double):tVector;
begin
 Result.X:=xx;
 Result.Y:=yy;
 Result.Z:=zz;
end;
function mRotX(ug:Double):tMatr33;
var s,c:Extended;
begin
 SinCos(ug,s,c);
 Result[1]:=createVector(1,0,0);
 Result[2]:=createVector(0,c,-s);
 Result[3]:=createVector(0,s,c);
end;

end.


[Павел Васильев]

Это лучше где-то здесь спросить - programmersforum
Я в Си не очень , особенно Си с крестиками. Паскаль мне удобнее.

Да нет, там студенты в  основном, а здесь возможно появляются астрономы профессионалы, которые ещё пишут программы на С/C++, а не на JS, Python или Pascal. Я собираю в репозиторий сборник актуальных (а не древних архивов), а главное - нужных позарез для астрономии библиотек, в том числе рекомендованных международным союзом астрономов IAU. Должны быть заинтересованы. 

PS Если кому интересно, например - матрицы вращения с Паскале. Фрагмент, но работающий, в одном модуле. Без классов, просто записи массивы.

Для информации. Если вы программируете в RAD Studio, то там уже давным давно есть кросс-платформенных модуль System.Math.Vectors для Delphi и С++, в котором есть и матрицы, поэтому не стоит изобретать велосипед:

TMatrix = record
  private
    function Scale(const AFactor: Single): TMatrix;
  public
    class function CreateRotation(const AAngle: Single): TMatrix; static;
    class function CreateScaling(const AScaleX, AScaleY: Single): TMatrix; static;
    class function CreateTranslation(const ADeltaX, ADeltaY: Single): TMatrix; static;

    class operator Multiply(const AMatrix1, AMatrix2: TMatrix): TMatrix;
    class operator Multiply(const APoint: TPointF; const AMatrix: TMatrix): TPointF;
    class operator Multiply(const AVector: TVector; const AMatrix: TMatrix): TVector;
    class operator Multiply(const AVector: TPoint3D; const AMatrix: TMatrix): TPoint3D;
    /// <summary>Equal operator, calls to EqualsTo function with a default epsilon.</summary>
    class operator Equal(const RightMatrix, LeftMatrix: TMatrix): Boolean; static;

    function Determinant: Single;
    function Adjoint: TMatrix;
    function Inverse: TMatrix;
    function ExtractScale: TPointF;
    /// <summary>This function returns true if all the values are the same than the given matrix using an epsilon error
    /// threshold, and returns false otherwise.</summary>
    function EqualsTo(const AMatrix: TMatrix; const Epsilon: Single = TEpsilon.Matrix): Boolean;

    case Integer of
      0: (M: TMatrixArray;);
      1: (m11, m12, m13: Single;
          m21, m22, m23: Single;
          m31, m32, m33: Single);
  end;

И в том числе есть функция вращения -
{TMatrix}

class function TMatrix.CreateRotation(const AAngle: Single): TMatrix;
var
  Sine, Cosine: Single;
begin
  SinCosSingle(AAngle, Sine, Cosine);

  Result := Identity;
  Result.m11 := Cosine;
  Result.m12 := Sine;
  Result.m21 := -Sine;
  Result.m22 := Cosine;
end;

Но многие ЛА, программирующие на JS, об этом и не догадываются.

[Toth]

есть кросс-платформенных модуль System.Math.Vectors для Delphi и С++, в котором есть и матрицы, поэтому не стоит изобретать велосипед

Спасибо, посмотрю. Хотя я уже наизобретал кучу ..