Надо перевести код с Паскаля в код Lazarus

[Ляйсан9517]

program metod_kasatel;{Название программы}
 uses Crt;  {Модуль дисплейных функций}
var  {Блок описаний переменных}
 xn,xn1,a,b,c,mx,y0,x0 :real;

function f1(x1:Real): Real; {Основная функция}
 begin
  f1 := x1*x1*x1*(-0.5)-0.05*x1*x1+0.8*x1+0.6;
 end;

function f2(x4:Real): Real; {Производная от основной функции}
 begin
  f2 := x4*x4*x4+0.5*x4*x4+0.1*x4*x4+0.4*x4–1.2;
 end;

begin {Начало основного тела программы}
  Clrscr; {Очистка экрана перед выполнением программы}

 a:=0;b:=1;c:=0.00000001;

 Writeln(' От A=',a,' до B=',b); {Вывод на экран}
 Writeln(' Погрешность с=',c);

Readln; { Ожидание нажатия клавиши Enter}

 xn:=b;
 xn1:= f1(xn);
 y0:=f2(b);

while ABS(y0)>c do {Проверка по точности вычисления корня}

 begin {Тело цикла}
  xn:=xn1;
  xn1:=f1(xn);
  y0:= f2(xn1);

   {Печать промежуточного результата}
   Writeln('xn=',xn,' xn+1=',xn1,' f(xn+1)=',y0); 

  Readln; { Ожидание нажатия клавиши Enter}
end; {Конец тела цикла}

Writeln('Конечные значения'); {Печать полученного результата}
Writeln(' xn+1=',xn1,' f(xn+1)=',y0);

 Readln; { Ожидание нажатия клавиши Enter}
end. {Конец основного тела программы}

Сама пробовала не могу разобраться там есть: ожидание нажатия клавиши, где печать полученного результата, печать промежуточного результата.... не понимаю какую функцию взять

[Streletz]

Lazarus это тоже, по сути, в определённом смысле, Pascal. В чём проблема?

не понимаю какую функцию взять

Для чего?

[Ляйсан9517]

begin {Начало основного тела программы}
Clrscr; {Очистка экрана перед выполнением программы}
вот предположим как это будет в Lazarus
или
Readln; { Ожидание нажатия клавиши Enter}

program metod_kasatel;{Название программы}
 uses Crt;  {Модуль дисплейных функций} что это?
var  {Блок описаний переменных}
 xn,xn1,a,b,c,mx,y0,x0 :real;
function f1(x1:Real): Real; {Основная функция}
 begin
  f1 := x1*x1*x1*(-0.5)-0.05*x1*x1+0.8*x1+0.6;
 end;
function f2(x4:Real): Real; {Производная от основной функции}
 begin
  f2 := x4*x4*x4+0.5*x4*x4+0.1*x4*x4+0.4*x4–1.2;
 end;

begin {Начало основного тела программы}
  Clrscr; {Очистка экрана перед выполнением программы} 

 a:=0;b:=1;c:=0.00000001;

 a:=StrToFloat(Edit1.Text);
 b:=StrToFloat(Edit2.Text); {Вывод на экран}
 c:=StrToFloat(Edit3.Text);

Readln; { Ожидание нажатия клавиши Enter}

 xn:=b;
 xn1:= f1(xn);
 y0:=f2(b);

else(y0)>c then {Проверка по точности вычисления корня}

 begin {Тело цикла}
  xn:=xn1;
  xn1:=f1(xn);
  y0:= f2(xn1);

   {Печать промежуточного результата}
   Writeln('xn=',xn,' xn+1=',xn1,' f(xn+1)=',y0); 

  Readln; { Ожидание нажатия клавиши Enter}
end; {Конец тела цикла}

Writeln('Конечные значения'); {Печать полученного результата}
Writeln(' xn+1=',xn1,' f(xn+1)=',y0);

 Readln; { Ожидание нажатия клавиши Enter}
end. {Конец основного тела программы}

Думаю будет выглядеть примерно так, но есть то что я не понимаю(те как их перевсти )

[Stilet]

program Project1;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes
  { you can add units after this };

var  {Блок описаний переменных}
 xn,xn1,a,b,c,mx,y0,x0 :real;

function f1(x1:Real): Real; {Основная функция}
 begin
  f1 := x1*x1*x1*(-0.5)-0.05*x1*x1+0.8*x1+0.6;
 end;

function f2(x4:Real): Real; {Производная от основной функции}
 begin
  f2 := x4*x4*x4+0.5*x4*x4+0.1*x4*x4+0.4*x4-1.2;
 end;

begin {Начало основного тела программы}

 a:=0;b:=1;c:=0.00000001;

 Writeln(' От A=',a,' до B=',b); {Вывод на экран}
 Writeln(' Погрешность с=',c);

Readln; { Ожидание нажатия клавиши Enter}

 xn:=b;
 xn1:= f1(xn);
 y0:=f2(b);

while ABS(y0)>c do {Проверка по точности вычисления корня}

 begin {Тело цикла}
  xn:=xn1;
  xn1:=f1(xn);
  y0:= f2(xn1);

   {Печать промежуточного результата}
   Writeln('xn=',xn,' xn+1=',xn1,' f(xn+1)=',y0);

  Readln; { Ожидание нажатия клавиши Enter}
end; {Конец тела цикла}

Writeln('Конечные значения'); {Печать полученного результата}
Writeln(' xn+1=',xn1,' f(xn+1)=',y0);

 Readln; { Ожидание нажатия клавиши Enter}
end. {Конец основного тела программы}

Только нужно будет локаль включить а то кракозяблики в консоли будут.

[Streletz]

Если программа консольная, то можно вместо Lazarus, использовать FreePascal. Кстати, Lazarus и основан на нём.
Если нужен графический интерфейс (окна, кнопки и пр.) тогда Lazarus.

[Ляйсан9517]

да мне как раз нужно что был графический интерфейс

[Streletz]

Ввод данных делаете через Edit'ы на форме. Вывод результатов в Edit'ы или Label'ы. Вывод промежуточных результатов в чём-нибудь типа StringGrid'а.
Расчёт выполняйте в обработчике нажатия кнопки.

[Stilet]

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
var  {Блок описаний переменных}
 xn,xn1,a,b,c,mx,y0,x0 :real;

function f1(x1:Real): Real; {Основная функция}
 begin
  f1 := x1*x1*x1*(-0.5)-0.05*x1*x1+0.8*x1+0.6;
 end;

function f2(x4:Real): Real; {Производная от основной функции}
 begin
  f2 := x4*x4*x4+0.5*x4*x4+0.1*x4*x4+0.4*x4-1.2;
 end;
begin
 if not TryStrToFloat(Edit1.Text,a) then begin ShowMessage('Ошибка ввода a'); exit; end;
 if not TryStrToFloat(Edit1.Text,b) then begin ShowMessage('Ошибка ввода b'); exit; end;
 if not TryStrToFloat(Edit1.Text,c) then begin ShowMessage('Ошибка ввода c'); exit; end;

 Memo1.Lines.Clear;
 xn:=b;
 xn1:= f1(xn);
 y0:=f2(b);

while ABS(y0)>c do {Проверка по точности вычисления корня}

 begin {Тело цикла}
  xn:=xn1;
  xn1:=f1(xn);
  y0:= f2(xn1);

   {Печать промежуточного результата}
   Memo1.Lines.Append(format('xn=%10.2f xn+1=%10.2f f(xn+1)=%10.2f',[n,xn1,y0]);

end; {Конец тела цикла}
Memo1.Lines.Append(format('Конечные значения  xn+1=%10.2f f(xn+1)=%10.2f',[xn1,y0]);
end;

end.

Надеюсь все понятно?