Начало роботы в Делфи

[ewert]

y:=sqrt(2);
for i:=1 to n-1 do   y:=sqrt(2+y);

[PAV]

PAV:

Темы слиты.

sv2311, не начинайте по Дельфи новых тем, а задавайте свои вопросы только в этой теме.

[sv2311]

как в делфи реализовать подпрограмму-функцию

z=sqr(cos(mx))-1/2*sqr(cos(ny))+5 F=sqr(cos(av))+b

[Student2007]

function NameFunction (mx:real,ny:real):real
begin
NameFunction:=sqr(cos(mx))-1/2*sqr(cos(ny))+5;

end;

function NameFunction2 (av:real,b:real):real;
begin
NameFunction2:=sqr(cos(av))+b;
end;

вообще почитайте про подпрограммы, вопрос совсем детский..

Добавлено спустя 1 минуту 1 секунду:

я не знаю какого типа числа на входе функции, поэтому написал тип real

[sv2311]

а как его в модуль засунуть?

[Student2007]

файл, новый.. выбрать unit..
имеем:

unit unit1;

interface 
//тут обьявляем функции и процедуры

function NameFunction (mx:real,ny:real):real;

implementation
//раздел реализации
function NameFunction (mx:real,ny:real):real 
begin 
NameFunction:=sqr(cos(mx))-1/2*sqr(cos(ny))+5; 

end;
end.

сохраняем... Добавлять модули думаю Вы умеете..
Вторая функция добавляется аналогично: сначала объявляется, а потом реализуется..
на заметку;).. в модуле можно объявлять переменные, константы, типы... в модуль можно подключать другие модули.