[Chiara_7z7]

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

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


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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69

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).
И после всех исправлений - неверный алгоритм.

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43

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]

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

[Chiara_7z7]

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

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

Вам легко говорить, когда вы спец! А что делать нам, чайникам?

[angvelem]

Что незнакомо?

Учиться.

[Chiara_7z7]

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

Что незнакомо?

Учиться.

Дык учимся, вот...
Незнакомо Value : Single
Abs это ж функция?
И почему for I := 0 to 4, а не for I:=0 to 6 do, извиняюсь?

[angvelem]

1. В Дельфи тип Real оставлен для совместимости, рекомендуется использовать Single.
2. Abs - возвращает абсолютное значение от числа.
3. Цикл от 0 до 4 равен 5 "шагам" + получение первого делителя (S := Value / 2). Попытка for I:=0 to 6 do ни к чему хорошему не приведёт, так получится 7 "шагов".

[Chiara_7z7]

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

1. В Дельфи тип Real оставлен для совместимости, рекомендуется использовать Single.
2. Abs - возвращает абсолютное значение от числа.
3. Цикл от 0 до 4 равен 5 "шагам" + получение первого делителя (S := Value / 2). Попытка for I:=0 to 6 do ни к чему хорошему не приведёт, так получится 7 "шагов".

Огромное спасибо! Сейчас попробую...

[Chiara_7z7]

Ответы не те...видать формула неверна.

[angvelem]

Посмотреть приведённый вариант сложно?

Код:

1 2 3 4 5 6 7 8 9 10

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;

здесь переменная I как раз локальная, что и "любит" компилятор.

Формула, конечно, неверна. Но направление есть, теперь правьте формулу.

[Chiara_7z7]

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

Посмотреть приведённый вариант сложно?

Код:

здесь переменная I как раз локальная, что и "любит" компилятор.

Формула, конечно, неверна. Но направление есть, теперь правьте формулу.

Да, я после заметила...исправила!

Огромное спасибо! Вы спасли меня от мук!