IPB

Здравствуйте, гость ( Вход | Регистрация )

 
Ответить в эту темуОткрыть новую тему
> Значение функции
Rыся
сообщение 25.2.2010, 19:20
Сообщение #1


Школьник
*

Группа: Продвинутые
Сообщений: 23
Регистрация: 10.1.2010
Из: Москва
Город: Москва



Задачка не сложная:
Вычислить значение функции 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ыся
сообщение 25.2.2010, 19:36
Сообщение #2


Школьник
*

Группа: Продвинутые
Сообщений: 23
Регистрация: 10.1.2010
Из: Москва
Город: Москва



функция


Эскизы прикрепленных изображений
Прикрепленное изображение
Пользователь в офлайнеКарточка пользователяОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
Евгений М.
сообщение 26.2.2010, 3:52
Сообщение #3


Студент
**

Группа: Продвинутые
Сообщений: 199
Регистрация: 6.11.2009
Город: Уфа
Вы: студент



Цитата(Rыся @ 26.2.2010, 0:20) *

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


Вместо f1, f2... подставить чему они равны (это с функциями ONE, TWO и т.д.), в качестве параметров этих функций лучше взять комбинации a, b.
Пользователь в офлайнеКарточка пользователяОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
Rыся
сообщение 26.2.2010, 7:35
Сообщение #4


Школьник
*

Группа: Продвинутые
Сообщений: 23
Регистрация: 10.1.2010
Из: Москва
Город: Москва



Цитата(Евгений М. @ 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, т. у. первое она найдет, а второе???????????
Пользователь в офлайнеКарточка пользователяОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения

Ответить в эту темуОткрыть новую тему
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия Сейчас: 19.4.2024, 1:40

Книжки в помощь: "Сборник заданий по высшей математике" Кузнецов Л.А., "Сборник заданий по высшей математике" Чудесенко В.Ф., "Индивидуальные задания по высшей математике" Рябушко А.П., и другие.




Зеркало сайта Решебник.Ру - reshebnik.org.ru