простые алгоритмы (Delphi for Microsoft Win32)

[stydent.ivanov]

Здрасте! Я новый, никогда раньше не программировал и совершенно ничего не знаю. МЭИ 1 курс, "высокопрофессиональный уровень" (со слов препода).
Borland Developer Studio 2006 - язык Object Pascal.
Лаба номер 1:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var x, c, p, y: real;
u: integer;
begin
c:=0;
p:=0;
x:= 0.1;
for u:= 1 to 5 do
 begin
    x:= x+0.1;
    y:= (1.5*(pi*x))-(1/(abs((((exp(ln(exp(1))*(8/10)))-sin((1+x)/x)+exp(ln(ln(x))*(1/3))));
    c:= c+y
    p:= p*y
 end;

end.

Ошибки:
[Pascal Error] Unit1.pas(36): E2029 ')' expected but ';' found,
[Pascal Error] Unit1.pas(38): E2066 Missing operator or semicolon
[Pascal Error] Unit1.pas(41): E2029 ';' expected but '.' found,
[Pascal Error] Unit1.pas(43): E2029 Declaration expected but end of file found
[Pascal Fatal Error] Project4.dpr(5): F2063 Could not compile used unit 'Unit1.pas'

Завтра это как бы надо здавать и знать ...
Пожалуйста подскажите, что за бяка такая не дает запустить мою лабу... Бился всю ночь до 3 часов СПАСИБО этому форуму, что тут было написано как задать степень через функцию exp(ln(х)*у) а то и это было серьезной проблемой .

[chesser]

У вас одного "END;" не хватает в процедуре. Он должен стоять перед "END."
Кроме того, надо поставить ';' после "c:=c+y"
Потом, у вас весь этот код работает в обработчике события "Создать форму". А куда все эти вычисления выводятся-то? Может, вам все-таки консольную программу нужно было писать?

[stydent.ivanov]

А да, точно! Совсем забыл про окошко для результата.
Поставил ";" и END;". Теперь ошибок меньше:
Выделяет красным всю строку "y:= (1.5*(pi*x))-(1/(abs((((exp(ln(exp(1))*(8/10)))-sin((1+x)/x)+exp(ln(ln(x))*(1/3))));"

[Pascal Error] Unit1.pas(36): E2029 ')' expected but ';' found
[Pascal Fatal Error] Project4.dpr(5): F2063 Could not compile used unit 'Unit1.pas'

[Gambler]

считай скобки и будет тебе счастье....

[stydent.ivanov]

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

считай скобки и будет тебе счастье....

Спасибо.

Я наглею... На форме есть Edit1, как туда результат вывести

[Mad_Cat]

edit1.text:='p='+floattostr(p)+ ' c='+floattostr(c);

и вот это

p:=0;

я бы заменил на

 p:=1;

[stydent.ivanov]

Спасибо, все добавил, но теперь новая напасть:
First chance exception at $7C812AFB. Exception class EInvalidOp with message 'Invalid floating point operation'. Process Project2.exe (1164)
Строка

y:= (1.5*(pi*x))-(1/(abs(((((exp(ln(exp(1)))*(8/10)))-(sin((1+x)/x))+(exp(ln(ln(x))*(1/3))))))));

пробовал ее поменять на элементарную - х*х все выдает путем, прога работает, а с этой что-то никак

Формулу проверял в Adequate Software Calculator, там все считает без ошибок

[chesser]

Наверное, где-то деление на 0 спряталось
Потом, извини, конечно, но значение переменной p у тебя всегда будет равно 0.

[stydent.ivanov]

Вот итоговая кодяра, ошибки вроде все исправлены. Но при запуске - "NAN" в двух окнах!

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var x, c, p, y, z, b, g, a, h: Real;
u: integer;
begin
c:=0;
p:=1;
x:= 0.1;
for u:= 1 to 5 do
 begin
    x:= x+0.1;
    y:= a-z;
    a:= 1.5*(1/(pi*x));
    z:= 1/abs(b);
    b:= g-(sin((1+x)/x))+h;
    h:= ln(exp((ln(x))*(1/3)));
    g:= exp((ln(exp(1)))*(8/10));
    c:= c+y;
    p:= p*y;
end;
  edit1.text:=floattostr(c);
  edit2.text:=floattostr(p);
end;
end.

Препод 15 вертел не смог исправить поставил выполнение, но сказал чтоб впредь этого не было... А в чем ошибка хоть?

[DIgorevich]

У тебя идет: y:= a-z; но при этом ни "a", ни "z" не инициализированы. Тоже самое и с другими переменными.