Помогите с задачей простенькой. Делфи.

[svobodys]

Вот условие и решение как я понял. А на делфи написать не могу.Scanitto_1.jpg

[svobodys]

Задание:
Var x,y,z:real;
Вычислить z=(signx+signy)*sign(x+y)
Где
=====================0,если А(альфа)=0
==========signA(альфа)=+1,если А(альфа)>0
=====================-1, если А(альфа)<0
(использовать функцию sign)

[Sazary]

А на паскаль переложить не могу

Функция останется без изменений.
Изменится только ввод-вывод.
То есть вводите x,y. Вычисляете и выводите z.

[svobodys]

а КАК ЭТО выглядеть на Делфи будет? просто не разу еще не писал в нем.

[Sazary]

а КАК ЭТО выглядеть на Делфи будет?

А на паскаль переложить не могу

Вы определитесь на чем вам нужно.
На Делфи у вас там на картинке показано. Просто засуньте это в обработчик, например, кнопки.
Ну и добавить еще ввод y (аналогично x) и вывод z.

[svobodys]

ой, на делфи. исправился.
Можете код кинуть?
Просто не разбираюсь еще в этом языке. со всеми его кнопками.

[Sazary]

procedure TForm1.Button1Click(Sender: TObject);
var x,y,z : real;
begin
x := StrToFloat(Edit1.Text);
y := StrToFloat(Edit2.Text);
{--- здесь считаете z ---}
Edit3.Text := FloatToStr(z);

end;

Просто не разбираюсь еще в этом языке. со всеми его кнопками.

Зато задание уже есть. Так что начинайте разбираться.

[svobodys]

=)) спасибо