Составить функцию вычисления.Delphi.Тема:Функции.

[tane]

1) задание.Составить функцию вычисления(рис).

function TForm1.Y(x: Real): Real;
begin
  if (x<0) and (x=0) then y:=2 else
  if (0<x) and ((x<2) or (x=2)) then y:=x+2 else
  if x>2 then y:=3;
end;

procedure TForm1.ButtonClick(Sender: TObject);
var a:Real;
begin
a:=y({здесь нужно указывать параметр Х, но в условии его нету,как быть?});
Label1.Caption:=FloatToStr(a);
end;

2-е задание)
Используя ее, вычислить Z(x)=y(x+1)+4y( x-1)+2x для четырех заданных значений x.

Вот,если я правильно понял, фрагмент этого задания

function TForm1.Z(x1,x2,x3,x4: Real): Real;
begin
x1:=strtofloat(memo1.lines.[0]);   //типа,1-й введенный элемент в memo1 
x2:= strtofloat(memo1.lines.[1]);
x3:=  strtofloat(memo1.lines.[2]);
x4:=strtofloat(memo1.lines.[3]);
Z(x1):=y*(x2+1)+4*y(x3-1)+2*x4;
z:=label2.caption(floattostr(z));
end;

(Код не проверял,потому что не ясны нюансы)Что скажите?

[Serge_Bliznykov]

a:=y({здесь нужно указывать параметр Х, но в условии его нету,как быть?});

так его надо ввести!
например, в Edit1:

x := StrToFloat(Edit1.Text);
Label1.Caption := FloatToStr(y(x));

[KoliyR]

function TForm1.Y(x: Real): Real;
begin
  if (x<0) and (x=0) then y:=2 else \\ здесь союз or  нужен
  if (0<x) and ((x<2) or (x=2)) then y:=x+2 else
  if x>2 then y:=3;
end;

\\Я бы всю эту функцию написал

function TForm1.Y(x: Real): Real;
begin
  if x<=0 then y:=2 else 
   if x>2 then y:=3 else  y:=x+2;
 end;

2-е задание)
Используя ее, вычислить Z(x)=y(x+1)+4y( x-1)+2x для четырех заданных значений x.

Я как понял посчитать 4 раза y и z

procedure TForm1.ButtonClick(Sender: TObject);
var i:integer;
begin
memo2.clear;
for i:=0 to memo1.lines.count-1 do 
memo2.lines.add(Y(strtofloat(memo1.lines[i]))*(strtofloat(memo1.lines[i])+1)+4*Y(strtofloat(memo1.lines[i]))*( strtofloat(memo1.lines[i])-1)+2*strtofloat(memo1.lines[i])); 
end;

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[tane]

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

procedure TForm1.ButtonClick(Sender: TObject);
var i:integer;
begin
memo2.clear;
for i:=0 to memo1.lines.count-1 do
memo2.lines.add(Y(strtofloat(memo1. lines[i]))*(strtofloat(memo1.lines[i])+1)+4*Y(strtofloat(memo1.lines[i]))*( strtofloat(memo1.lines[i])-1)+2*strtofloat(memo1.lines[i]));
end;

Выдает ошибку Incompatible types: 'String' and 'Extended'.
Что делать?

[type_Oleg]

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

Выдает ошибку Incompatible types: 'String' and 'Extended'. Что делать?

Исправлять. Здесь memo2.lines.add(Y...
Y - кто по национальности ? Real , а для Lines.Add надо String
А лучше введите промежуточные переменные, а то у вас функция от функции от функции и т.д. Это круто конечно, но легко запутаться.