Функции

[ZIQVK]

Прошу проверить, беспокоит оглавление функции и опись её

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Memo1: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
function FUT(u,t:real):real;
var max:real;
begin
if u>t then max :=u
else
max:=t;
if max>0 then result:=u+sin(sqr(t))
else result:= result*cos(sqr(u));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
var alfa,a,b,z,f1,f2,f3,f4:real;
begin
alfa :=StrToFloat(Edit1.Text);
a :=StrToFloat(Edit2.Text);
b :=StrToFloat(Edit3.Text);
fut(sin(alfa),a,f1);
fut(cos(sqr(alfa)),sqr(b),f2);
fut(sin(sqr(alfa)-1),a,f3);
fut(sqr(a-alfa),sqr(a+alfa),f4);
z:=f1+f2+f3+f4;
Memo1.Clear;
Memo1.Lines.Add('Результат');
Memo1.Lines.Add('z='+FloatToStr(z))

end;

end.

Не надо код цитировать. Для его выделения есть кнопочка #
Модератор

[newerow1989]

В этой функции 2 параметра:

function FUT(u,t:real):real;

А вызывается 3-мя:

fut(sin(alfa),a,f1);

[type_Oleg]

Вот тут:

else result:= result*cos(sqr(u));

- чему равен result справа ?

И вообще, нежелательно его в правую часть.

[newerow1989]

procedure TForm1.Button1Click(Sender: TObject);
 begin //УБРАТЬ эту строчку
 var alfa,a,b,z,f1,f2,f3,f4:real;
 begin

Чтобы программа была рабочей, надо переделать строчку

procedure FUT(u,t:real; var result:real);

[ZIQVK]

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

procedure TForm1.Button1Click(Sender: TObject);
 begin //УБРАТЬ эту строчку
 var alfa,a,b,z,f1,f2,f3,f4:real;
 begin

Чтобы программа была рабочей, надо переделать строчку

procedure FUT(u,t:real; var result:real);

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

[newerow1989]

function FUT(u,t:real):real;

...

procedure TForm1.Button1Click(Sender: TObject);
 var alfa,a,b,z,f1,f2,f3,f4:real;
 begin
 alfa :=StrToFloat(Edit1.Text);
 a :=StrToFloat(Edit2.Text);
 b :=StrToFloat(Edit3.Text);
 f1:=fut(sin(alfa),a);
 f2:=fut(cos(sqr(alfa)),sqr(b));
 f3:=fut(sin(sqr(alfa)-1),a);
 f4:=fut(sqr(a-alfa),sqr(a+alfa));
 z:=f1+f2+f3+f4;
 Memo1.Clear;
 Memo1.Lines.Add('Результат');
 Memo1.Lines.Add('z='+FloatToStr(z))

 end;

[ZIQVK]

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

Вот тут:

else result:= result*cos(sqr(u));

- чему равен result справа ?

И вообще, нежелательно его в правую часть.

И вправду у меня тут ошибка

[ZIQVK]

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

procedure TForm1.Button1Click(Sender: TObject);
 var alfa,a,b,z,f1,f2,f3,f4:real;
 begin
 alfa :=StrToFloat(Edit1.Text);
 a :=StrToFloat(Edit2.Text);
 b :=StrToFloat(Edit3.Text);
 f1:=fut(sin(alfa),a);
 f2:=fut(cos(sqr(alfa)),sqr(b));
 f3:=fut(sin(sqr(alfa)-1),a);
 f4:=fut(sqr(a-alfa),sqr(a+alfa));
 z:=f1+f2+f3+f4;
 Memo1.Clear;
 Memo1.Lines.Add('Результат');
 Memo1.Lines.Add('z='+FloatToStr(z))

 end;

procedure FUT(u,t:real; var result:real); я про этот код, begin я убрал, то я уже наверное от спешки написал

[ZIQVK]

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

Вот тут:

else result:= result*cos(sqr(u));

- чему равен result справа ?

И вообще, нежелательно его в правую часть.

[Warning] Unit1.pas(40): Return value of function 'FUT' might be undefined можете помочь с этой ошибкой, в методичке такого не указывали, и в интернете много способов для разных случаев

[ViktorR]

Вам явно указали, что в правой части оператора result ставить не стоит.
Сообщение об ошибке/предупреждении следует перевести:
- открыть окно online переводчика
- слева выбираем английский и копируем туда текст ошибки
- справа выбираем русский и читаем:

Возвращаемое значение функции 'FUT' может быть не определено

[Warning] - это предупреждение. Т.е. программу можно запустить, но вот надежды на то, что будет получен правильный результат - нет.
Предупреждение вызвано тем обстоятельством, что на момент использования result не был инициализирован.
Для проверки вставь оператор типа:

result := 1;

перед строкой, в которой применяется result. Предупреждающее сообщение должно пропасть.

Как-то так, ...