Помощь - Поиск - Пользователи - Календарь
Полная версия: Значение функции > Информатика / Программирование
Образовательный студенческий форум > Другие дисциплины > Информатика / Программирование
Rыся
Задачка не сложная:
Вычислить значение функции f(a,b ), нужно решить с помощью подпрограмм.

Код
uses crt;

function ONE(x,y:real):real;
var
  k:real;
begin
  k:=sqr(x)+x*y+sqr(y);
  ONE:=sqrt(k);
end;

function TWO(x:real):real;
begin
  TWO:=x+x*x+x*x*x+x*x*x*x;
end;

function THREE(x,y:real):real;
begin
  THREE:=x+y;
end;

var
  a,b,x,y,f,f1,f2,f3,f4:real;
begin
  clrscr;
  writeln ('введите a');
  readln (a);
  writeln ('введите b');
  readln (b);
  a:=x;
  b:=y;
  f1:=THREE(x,y)+ONE(x,y);
  f2:=TWO(x);
  x:=-a/b;
  f3:=TWO(x);
  x:=a/b;
  y:=-b/a;
  f4:=THREE(x,y)+ONE(x,y);
  f:=f1/f3+f4/f2;
  write(f:0:3);
  readln;
end.

Как сделать программу проще, чтоб не надо было вводить все эти f1, f2...
Rыся
функция
Евгений М.
Цитата(Rыся @ 26.2.2010, 0:20) *

Код
f:=f1/f3+f4/f2;


Вместо f1, f2... подставить чему они равны (это с функциями ONE, TWO и т.д.), в качестве параметров этих функций лучше взять комбинации a, b.
Rыся
Цитата(Евгений М. @ 26.2.2010, 3:52) *

Вместо f1, f2... подставить чему они равны (это с функциями ONE, TWO и т.д.), в качестве параметров этих функций лучше взять комбинации a, b.


хорошо найдет допустим ONE значение функции f(a, b )=sqrt(a^2+ab+b^2), но ведь дальше нужно находить значение функции f(a/b; -b/a)=sqrt(a^2/b^2-1+b^2/a^2), а функия ONE имеет параметры a и b, т. у. первое она найдет, а второе???????????
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.
Русская версия Invision Power Board © 2001-2024 Invision Power Services, Inc.