Задачка на функцию :], sqrt{n}+m; Опции

[Димас]

Добрый вечер! вот такую задачку задали с информатики:

Расчитать значение x, определив и использовав необходимую функцию. Так для первого из перечисленых ниже заданий целесообразно определить функцию вычисляющую значение:


б)



вот такие дела:[

как быть , помогите?

Заранее Спасибо!

Сообщение отредактировано: Димас - 12.03.2007 1:59

[Димас]

Наверно задачка простая но я могу и ошибатся...

попробовал написать так то:

Program blabla;

uses crt;

Function bla(n,m:real):real;
var
x:real;
begin
x:=sqrt(n)+m;
end;

{------------------main program------------------------}

var x:real;
Begin
clrscr;

x:=bla(8,15)/bla(15,8)+bla(12,6)/bla(6,12)+bla(21,7)/bla(7,21);

writeln('x=',x:5:2);


readkey;
end.
{----------------------end-----------------------------}

но вопрос правильно ли?

[Артемий]

Function bla(n,m:real):real;
var
x:real;
begin
x:=sqrt(n)+m;
bla:=x;
end;

Она вроде должна возвращать..(на счет алгоритма не проверял)(но похоже правильно )

Сообщение отредактировано: Артемий2 - 12.03.2007 2:37

[volvo]

Можно пойти чуть дальше:

function bla(n, m: real): real;
begin
  bla := sqrt(n)+m;
end;

function f(n, m: real): real;
begin
  f := bla(n, m) / bla(m, n)
end;

тогда вычисление основной функции превратится в:

...
WriteLn(f(8,15) + f(12,6) + f(21,7));
...

[Димас]

Ферштейн! всё понял и разобрался! Благодарю! ЗЫ: второй вариант оказывается красивей...