Трансформация программы в язык Delphi

[Lionel Messi]

Добрый день. Сделал программу для нахождения корня уравнения методом касательных, но теперь необходимо её написать в языке Delphi. С языком практически не знаком, поэтому прошу о небольшой помощи:
если кто знает хороший электронный учебник по Delphi, можете дать ссылкочку на него; и если не составит труда, эту маленькую программку переделать под язык Delphi Буду премного благодарен

Program kasateln;
uses crt;
function f(x:real):real;
 begin
  f:=x*x*x*x-3*x*x*x+2*x*x;
 end;
var eps,x0,x1,a,b,f1,f2,dx:real;
begin
clrscr;
  eps:=0.00000001;
  writeln('x0= ',x0);
  readln(x0);
  repeat
    f1:=(f(x0+eps)-f(x0))/eps;
    x1:=x0-(f(x0)/f1);
    dx:=abs(x0-x1);
    x0:=x1;
    writeln('X= ',x0,' f(x)=',f(x0));
  until (abs(f(x0))<=eps) and (dx<=eps);
  writeln('X= ',x0:3:3,' zna4enie funcii f(x)= ',f(x0):3:3);
  readln;
end.

[Пепел Феникса]

создайте консольный проект в Делфи.
далее выкидываем всего две строчки

uses crt;
clrscr;

затем вводим все чего не хватает в заготовке(Директиву компилятора обязательно оставляем{$...})

http://programmersforum.ru/showthread.php?t=14054 это насчет книг.

[Lionel Messi]

Компилятор отказывается воспринимать Function.

[Пепел Феникса]

program Project1;//имя проекта изменится само при сохранении.

{$APPTYPE CONSOLE}

function f(x:real):real;
 begin
  f:=x*x*x*x-3*x*x*x+2*x*x;
 end;
var eps,x0,x1,a,b,f1,f2,dx:real;
begin
  eps:=0.00000001;
  writeln('x0= ',x0);
  readln(x0);
  repeat
    f1:=(f(x0+eps)-f(x0))/eps;
    x1:=x0-(f(x0)/f1);
    dx:=abs(x0-x1);
    x0:=x1;
    writeln('X= ',x0,' f(x)=',f(x0));
  until (abs(f(x0))<=eps) and (dx<=eps);
  writeln('X= ',x0:3:3,' zna4enie funcii f(x)= ',f(x0):3:3);
  readln;
end.

вот так отлично скомпилировалось

[Андрей.12]

program Project2;

{$APPTYPE CONSOLE}
uses
  SysUtils;
 var s,a:string;
 i,k:integer;
begin
writeln('vvedite stroky');
readln(s);
writeln('vvedite sinvol');
readln(a);
for i:=1 to length(s) do
if s[i]=a then k:=k+1;
write(k);
readln;
end.

изменил, не верно считает, хотя паскаль верно выдает ответ

[Lionel Messi]

Сообщение от Пепел Феникса

program Project1;//имя проекта изменится само при сохранении.

{$APPTYPE CONSOLE}

function f(x:real):real;
 begin
  f:=x*x*x*x-3*x*x*x+2*x*x;
 end;
var eps,x0,x1,a,b,f1,f2,dx:real;
begin
  eps:=0.00000001;
  writeln('x0= ',x0);
  readln(x0);
  repeat
    f1:=(f(x0+eps)-f(x0))/eps;
    x1:=x0-(f(x0)/f1);
    dx:=abs(x0-x1);
    x0:=x1;
    writeln('X= ',x0,' f(x)=',f(x0));
  until (abs(f(x0))<=eps) and (dx<=eps);
  writeln('X= ',x0:3:3,' zna4enie funcii f(x)= ',f(x0):3:3);
  readln;
end.

вот так отлично скомпилировалось

Спасибо, а никаких эелектронных учебников по Delphi не знаете?(бесплатных)

[Lionel Messi]

Выдает ошибку при проверке: Statement expected but 'Function' found

[Пепел Феникса]

http://programmersforum.ru/showthread.php?t=14054 это насчет книг.

я же вам написал.

какая у вас версия Делфи?

вы точно создали консольное приложение?

[Lionel Messi]

Сообщение от Пепел Феникса

я же вам написал.

какая у вас версия Делфи?

вы точно создали консольное приложение?

7 версия, борланд. Я вроде немного разобрался что к чему, вот еще вопрос: у меня есть многострочное окно( Memo1) как мне в нем вывести результат вычисления значений x0, f(x)? Вот что я написал пока:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
Var eps,x0,x1,a,b,f1,f2,dx,x:real;
function f(x:real):real;
 begin
  f:=x*x*x*x-3*x*x*x+2*x*x;
 end;
begin
  eps:=0.0000001;
  x0:=strtofloat(edit1.text);
  repeat
    f1:=(f(x0+eps)-f(x0))/eps;
    x1:=x0-(f(x0)/f1);
    dx:=abs(x0-x1);
    x0:=x1;
  until (abs(f(x0))<=eps) and (dx<=eps);
  Memo1. ??????


end;

[Пепел Феникса]

дык вы в окне, это нормально что не работало.
вам нужно IntToStr FloatToStr(и скорее всего наоборот тоже надо)