Помощь - Поиск - Пользователи - Календарь
Полная версия: Задачка на функцию :]
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Димас
Добрый вечер! вот такую задачку задали с информатики:

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

б)Изображение



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

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

Заранее Спасибо! smile.gif
Димас
Наверно задачка простая но я могу и ошибатся...

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

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-----------------------------}



но вопрос правильно ли? blink.gif
Артемий
Function bla(n,m:real):real;
var
x:real;
begin
x:=sqrt(n)+m;
bla:=x;
end;

Она вроде должна возвращать..(на счет алгоритма не проверял)(но похоже правильно smile.gif )
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));
...
Димас
Ферштейн! всё понял и разобрался! smile.gif Благодарю! good.gif ЗЫ: второй вариант оказывается красивей...
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.