Программа правильно написана? Delphi

[boss89]

Здраствуйте.
Есть код программы но написан в паскале,переписал пару строк чтобы работал в делфи.
Скажите правильно переписал? и есть ли ошибки в коде??
И если не сложно укажите на них.

в паскале:

Код:

var
 i,N,T : integer;
 Pt,C1,C2 : Real;

function Zatrati ( t : Integer ) : Real;
begin
if t = 0 then begin Zatrati := 0; Exit; end;
Zatrati := N * ( C1*Pt*(t) + C2 ) / T;
end;

begin
//readln(N,Pt,C1,C2,T);
N := 100;
Pt := 0.1;
C1 := 10;
C2 := 50;
T := 100;
for i := 1 to T-1 do
 begin
 writeln ( Zatrati(i) );
 if ( Zatrati(i)<Zatrati(i+1) ) and ( Zatrati(i)< Zatrati(i-1) ) then
  begin
  writeln ('Искомый период найден : ', i); Exit;
  end;
 end;
writeln ('Критерий оптимальности не выполняется на заданном числе периодов T');
end.

В делфи:

var
 i,N,T : integer;
 Pt,C1,C2,rez : Real;

function Zatrati ( t : Integer ) : Real;
begin
if t = 0 then begin Zatrati := 0; Exit; end;
Zatrati := N * ( C1*Pt*(t) + C2 ) / T;
end;

begin
N := 100;
Pt := 0.1;
C1 := 10;
C2 := 50;
T := 100;
for i := 1 to T-1 do
 begin
 rez:=( Zatrati(i) );
 if ( Zatrati(i)<Zatrati(i+1) ) and ( Zatrati(i)< Zatrati(i-1) ) then
  begin
  Label1.Caption:= ('Искомый период найден : '+Floattostr(i)); Exit;
  end;
 end;
Label1.Caption:= ('Критерий оптимальности не выполняется на заданном числе периодов T');
end;
end.

P.S.
Вот описание самой проги кому интересно:http://www.programmersforum.ru/showthread.php?t=117627
Может ктонибуть знает почему критерий оптимальности никогда не выполняется!?

Спасибо за внимание.

Народ не проходите мимо ответьте пожалуйста на мои вопросы.

[Stilet]

и есть ли ошибки в коде?

Нет не правильно. В Делфи результат функции возвращается через инструкцию Result
Result := N * ( C1*Pt*(t) + C2 ) / T;

[_-Re@l-_]

Нет не правильно. В Делфи результат функции возвращается через инструкцию Result
Result := N * ( C1*Pt*(t) + C2 ) / T;

Совсем не обязятельно, можно и по имени функции.Вот я, например, никогда не юзаю Result(в паскале привык делать по имени функции, вот и не могу отвыкнуть )

[MadReason]

Result := N * ( C1*Pt*(t) + C2 ) / T;

вопросов нет, так профессиональнее, но с присваиванием результата имени функции тоже будет работать.

[Arigato]

 rez:=( Zatrati(i) );
 if ( Zatrati(i)<Zatrati(i+1) ) and ( Zatrati(i)< Zatrati(i-1) ) then

Нет, так не делается.
Зачем 5 раз вычислять значение функции от одного и того же аргумента? Ресурсы впустую расходуются.
Примерно так надо переписать:

var
 i,N,T : integer;
 Pt,C1,C2,rez : Real;
  Next, Pred: Real;

function Zatrati ( t : Integer ) : Real;
begin
if t <> 0 then Result := N * ( C1*Pt*(t) + C2 ) / T
  else Result := 0;
end;

begin
N := 100;
Pt := 0.1;
C1 := 10;
C2 := 50;
T := 100;
Pred := Zatrati(0);
Next := Zatrati(1);
for i := 1 to T-1 do
 begin
 rez:=Next;
 Next := Zatrati(i+1);
 if ( rez<Next ) and ( rez< Pred ) then
  begin
  Label1.Caption:= ('Искомый период найден : '+Floattostr(i)); Exit;
  end;
  Pred := rez;
 end;
Label1.Caption:= ('Критерий оптимальности не выполняется на заданном числе периодов T');
end;
end.

[boss89]

Спасибо всем за ответы.

Но блин почему етот критерий оптимальности, никогда не выполняется? Когда должен!
Код вроде правильный условия оптимальности тоже соблюдены, а программа не вычисляет(

[Stilet]

Но блин почему етот критерий оптимальности, никогда не выполняется?

А задача то какая? У тебя код

Label1.Caption:= ('Критерий оптимальности не выполняется на заданном числе периодов T');

Будет выполнен всегда. хотя бы потому что он не отсекается никакими условиями...

[boss89]

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

У тебя код
Будет выполнен всегда. хотя бы потому что он не отсекается никакими условиями...

var
i,N,T : integer;
Pt,C1,C2,rez : Real;
Next, Pred: Real;

function Zatrati ( t : Integer ) : Real;
begin
if t <> 0 then Result := N * ( C1*Pt*(t) + C2 ) / T
else Result := 0;
end;

begin
N := 100;
Pt := 0.1;
C1 := 10;
C2 := 50;
T := 100;
Pred := Zatrati(0);
Next := Zatrati(1);
for i := 1 to T-1 do
begin
rez:=Next;
Next := Zatrati(i+1);
if ( rez<Next ) and ( rez< Pred ) then
begin
Label1.Caption:= ('Искомый период найден : '+Floattostr(i)); Exit;
end;
Pred := rez;
end
else
Label1.Caption:= ('Критерий оптимальности не выполняется на заданном числе периодов T');
end;
end.

Исправил, но критерий выполнятся всёравно не хочет.

[Arigato]

А к чему этот else относится, к циклу for что ли?
Приведите для начала код в порядок, что бы были нормально выставлены отступы. Разбираться в коде, написанном таким образом, я даже не хочу.

[MadReason]

сорцы
вероятности поломки компов.zip

unit Unit1;

interface

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

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

var
  Form1: TForm1;
  N,T : integer;
  Pt,C1,C2,rez : Real;
  Nextz, Predz: Real;

implementation

{$R *.dfm}

function Zatrati ( t : Integer ) : Real;
begin
  if t <> 0 then Result := N * ( C1*Pt*Min(random(3),random(3)) + C2 ) / T
  //формула была неверной
  //случайная величина-количество компов сломавшихся в этот момент
  //должна задаваться не так правда, а через биноминальное распределение,
  //так возрастет итоговый номер найди как реализуется или попроси кого нибудь
  //для реалистичности стоит Min(random(3),random(3))
  else Result := 0;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
i:word;
begin
randomize;
memo1.Clear;
N := 100;//количество компов
Pt := 1/n;//вероятность поломки одного(равновероятны)
C2 := 100;//стоимость профилактики
C1 := 1000;//стоимость ремонта
T := 20;//временной промежуток
{Pred := Zatrati(0);}// смысл вызова функции если даст 0 все равно
Predz:=0;
Nextz := Zatrati(1);
Label1.Caption:= ('Критерий оптимальности не выполняется на заданном числе ' +
  'периодов T');
for i := 2 to T do
  begin
    rez:=Nextz;
    memo1.Lines.Add(inttostr(i-1)+':   '+FloatToStr(rez));
    Nextz := Zatrati(i);
    if ( rez<Nextz ) and ( rez< Predz ) then
      begin
        Label1.Caption:= ('Искомый период найден : '+inttostr(i-1));
        memo1.Lines.Add(inttostr(i)+':   '+FloatToStr(nextz));
        Exit;
      end;
    Predz := rez;
  end;
end;

end.