Установка free pascal

[Farsaj]

Kubuntu 11.10 паскаль ставил с репов(версия Free Pascal Compiler version 2.4.4-2ubuntu1 [2011/09/27] for x86_64)

[Vadim]

А Вы, случаем, не 32-ух битную версию FreePascal на 64-ёх битную ОС поставили? Проверьте ещё раз.
И ещё посмотрите, есть ли файл /usr/lib/fpc/2.4.4/ppcx64.

[Farsaj]

файл есть ppcx64, я поставил 64 битную версию, компилер запускается но иде нет, также лазарус не хочет компилить не видет библиотек.

[Mr.Smart]

Код: Выделить всё

sudo apt-get install lazarus-ide
sudo apt-get install fpc-source

[Farsaj]

Уже установлена самая новая версия fpc-source.
fpc-source установлен вручную.
При запуске Лазаруса выскакивает окошко (Проект использует целевую ОС linux и процессор x86_64.
System.ppu для этой цели не был найден в каталогах двоичных файлов FPC.
Убедитесь в том, что FPC установлен корректно для данной цели, и что в файл fpc.cfg вписаны верные каталоги.)

[Vadim]

Farsaj
/etc/fpc.cfg - убедитесь, что в этом файле путь к откомпилированным юнитам fpc правильный.

[Сквозняк]

Иногда в /home/user создаются конфиги паскаля, в том числе скрытые, их надо удалять.

[Farsaj]

Переставил Кубунту. Подскажите в какой последовательности ставить freepascal + lazarus

[Максим]

Сначала ставьте FreePascal, потом - Lazarus.

[Farsaj]

Всем спасибо большое за помощь. Получилось

[serg134]

Скачал fpc-2.6.0.x86_64-win64.exe 18мег
Хочу программить(новичек), после установки ярлык на рабочем столе не создался. В директории установки ppcrossx64.exe запускаю - консоль, ***press enter***в три страницы напичкана. Читаю - вышел новый компилятор 2.6.0 типа этот,но вначале установки написано "Free Pascal x64 Setup" Что докачать нужно чтоб я смог!

[Padre_Mortius]

serg134, не стоит плодить кучу тем с одним и тем же вопросом, особенно если в этих темах есть ответы на ваши вопросы.
Непосредственно 64-х битный компилятор для MS Windows присутствует только в поставке с lazarus. Вы же скачали кросс-компилятор из 32-бит в 64.

[Olechka]

помогите составить программу в Turbo Pascal движение трактора по горизонтали

[Brainenjii]

Код: Выделить всё

program Project1;

{$mode objfpc}{$H+}{$interfaces CORBA}

Uses sysutils, Crt;

Type

  { TCountry }

  TCountry = Class
    Private
      fIsShitty: Boolean;
      fName: String;
      fXPosition: Integer;
    Public
      Property Name: String Read fName;
      Property IsShitty: Boolean Read fIsShitty;
      Property XPosition: Integer Read fXPosition;
      Constructor Create(Const aName: String; Const aIsShitty: Boolean;
        Const aXPosition: Integer);
  End;

Type IDriver = Interface
  Procedure SetXPosition(Const aNewXPosition: Integer);
  Function GetXPosition: Integer;
End;

Type

{ TTransport }

TTransport = Class
  Private
    fDestination: TCountry;
    fDiver: IDriver;
    fDriver: IDriver;
    fName: String;
    fXPosition: Integer;
    Function GetIsReached: Boolean;
    Procedure SetDiver(aValue: IDriver);
  Public
    Property Name: String Read fName;
    Property IsReached: Boolean Read GetIsReached;
    Property Destination: TCountry Read fDestination Write fDestination;
    Property XPosition: Integer Read fXPosition;
    Property Driver: IDriver Read fDriver Write SetDiver;

    Procedure Move;
    Constructor Create(Const aName: String);
End;

Type

{ TPig }

TPig = Class(IDriver)
  Private
    fCountry: TCountry;
    fName: String;
    fXPosition: Integer;
    Procedure SetXPosition(Const aNewXPosition: Integer);
    Function GetXPosition: Integer;
  Public
    Property Name: String Read fName;
    Property Country: TCountry Read fCountry;
    Property XPosition: Integer Read fXPosition;

    Constructor Create(Const aName: String; Const aCountry: TCountry);
End;

{ TPig }

Procedure TPig.SetXPosition(Const aNewXPosition: Integer);
Begin
  fXPosition := aNewXPosition;
End;

Function TPig.GetXPosition: Integer;
Begin
  Result := XPosition;
End;

Constructor TPig.Create(Const aName: String; Const aCountry: TCountry);
Begin
  fName := aName;
  fCountry := aCountry;
End;

{ TTransport }

Function TTransport.GetIsReached: Boolean;
Begin
  Result := XPosition = Destination.XPosition;
end;

Procedure TTransport.SetDiver(aValue: IDriver);
Begin
  If fDriver = aValue Then Exit;
  If Not(XPosition = aValue.GetXPosition) Then
    Raise Exception.Create('Сначала надо подойти к транспорту');
  fDriver := aValue;
End;

Procedure TTransport.Move;
Begin
  If Driver = nil Then Raise Exception.Create('Нет водителя!');
  If XPosition < Destination.XPosition Then fXPosition := fXPosition + 1
  Else fXPosition := fXPosition + 1;
  Driver.SetXPosition(XPosition);
End;

Constructor TTransport.Create(Const aName: String);
Begin
  fName := aName;
End;

{ TCountry }

Constructor TCountry.Create(Const aName: String; Const aIsShitty: Boolean;
  Const aXPosition: Integer);
Begin
  fName := aName;
  fIsShitty := aIsShitty;
  fXPosition := aXPosition;
End;

Var
  aPetr: TPig;
  aTraktor: TTransport;
  aRusska, aAbroad: TCountry;
begin
  aRusska := TCountry.Create('Рашка', TRUE, 0);
  aAbroad := TCountry.Create('Заграница', FALSE, 40);

  aPetr := TPig.Create('Петр', aRusska);

  aTraktor := TTransport.Create('Трактор');
  aTraktor.Driver := aPetr;

  aTraktor.Destination := aAbroad;


  While Not(aTraktor.IsReached) Do
    Begin
      GotoXY(aTraktor.XPosition, 1);
      Write(' ');
      aTraktor.Move;
      GotoXY(aTraktor.XPosition, 1);
      Write('t');
      Sleep(100);
    End;
  WriteLn;
  WriteLn('Трактор доехал по горизонтали');

end.