Значение функции |
Здравствуйте, гость ( Вход | Регистрация )
Значение функции |
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, 7:35
Сообщение
#4
|
Школьник Группа: Продвинутые Сообщений: 23 Регистрация: 10.1.2010 Из: Москва Город: Москва |
Вместо 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, т. у. первое она найдет, а второе??????????? |
Текстовая версия | Сейчас: 19.4.2024, 1:40 |
Зеркало сайта Решебник.Ру - reshebnik.org.ru