[Chiara_7z7]

Здравствуйте!
Очень прошу, не кидайте в меня тапками за мои вопросы!
Я совершеннеший новичок в программировании и очень нуждаюсь в помощи!
Задача такова:
"Необходимо высчитать квадратный корень числа (задано число в SpinEdit) вавилонским способом:
1) Нужно, что бы число было больше ноля
2) Что бы число было больше единицы. Если число отрицательное, то необходимо сделать его положительным и запомнить его. Это число нужно разделить на 2 и получить результат, который в сл. шаге будет делителем. Полученное среднее значение будет делителем в сл. шаге. Делитель и среднее значение приводят к приблизительно одному результату, которе и является квадратным корнем. Программа будет прервана после 6 попыток и именно шестая будет наиболее близка к ответу. "

Уфф....если не совсем понятно, что значит по вавилонски, пожалуйста, посмотрите тут:
http://en.wikipedia.org/wiki/Methods...onian_metho d


Вот, мои мучения...позориться нам не привыкать :

Код:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    SpinEdit1: TSpinEdit;
    Button1: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;


var
  Form1: TForm1;
  Zahl1,Zahl2,Wurzel: Real;
  Quadratwurzel:Integer;


implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin

   Zahl1:=StrToFloat(SpinEdit1.Text);


     If Zahl1>1 then

     Wurzel:= Quadratwurzel(Zahl1);

     Label1.Caption:=FloatToStr(Wurzel);
     end;

If Zahl1<1 then

Zahl2:=Zahl1*(1/-1);
Wurzel:=Quadratwurzel(Zahl2);
Label1.Caption:=FloatToStr(Wurzel);


end;

function TForm1.Quadratwurzel:String;

Mittelwert1:= (Zahl1+1)/2;
Mittelwert2:=(Mittelwert1+Zahl1/Mittelwert1);
Mittelwert3:=(Mittelwert2+Zahl1/Mittelwert2);
Mittelwert4:=(Mittelwert3+Zahl1/Mittelwert3);
Mittelwert5:=(Mittelwert4+Zahl1/Mittelwert4);
Mittelwert6:=(Mittelwert5+Zahl1/Mittelwert5);
Ergebnis:=Mittelwert6;
Label1.Caption:=FloatToStr(Ergebnis);

end;

end.

Админ: Пользуемся тегами для оформления кода!

Буду очень признательна за помощь! Уж хочется решить задачку и начать спокойно спать по ночам!

[angvelem]

Хочешь сказать, что этот код компилиться?

[Chiara_7z7]

Нет, не хочу сказать... иначе не просила бы о помощи!
Где моя ошибка? Что я делаю неправильно?

[angvelem]

Для начала: куча неопределённых переменных, несоответствие типов, неверно расставлены операторные скобки (begin/end).
И после всех исправлений - неверный алгоритм.

Мне лень разбираться с алгоритмом, пока только подправил ваш код

Код:

type
  TForm1 = class(TForm)
    Label1: TLabel;
    SpinEdit1: TSpinEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure Quadratwurzel(Value : Single);
  end;

var
  Form1: TForm1;
  Zahl1 : Single;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Zahl1 := StrToFloat(SpinEdit1.Text);
  if Zahl1 > 1 then
    Quadratwurzel(Zahl1);

  if Zahl1 < 1 then
    Quadratwurzel(Abs(Zahl1));
end;

procedure TForm1.Quadratwurzel(Value : Single);
var
  I : Integer;
  S : Single;
begin
  S := Value / 2;
  for I := 0 to 4 do
    S := (S + Value) / S;
  Label1.Caption := FloatToStr(S);
end;

end.

[Chiara_7z7]

Сообщение от angvelem

Для начала: куча неопределённых переменных, несоответствие типов, неверно расставлены операторные скобки (begin/end).
И после всех исправлений - неверный алгоритм.

Про неверный алгоритм я сразу поняла, спасибо...а вот с неопреленной кучей, пожалуй, не соглашусь. Обозвала как могла...при этом дико старалась! Ткните носом, пожалуйста! Я внимательно еще раз все просмотрела и не вижу у себя ошибок (за исключением оп. скобок begin/end)

[angvelem]

Ух как здорово - не согласится. Ну так возьми и откомпилируй. Пусть Дельфи натыкает носом во все неверные места.

[Chiara_7z7]

Спасибо большое... пара слов совсем незнакомы, буду разбираться