![]() |
Здравствуйте, гость ( Вход | Регистрация )
![]() |
Rыся |
![]() ![]()
Сообщение
#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ыся |
![]()
Сообщение
#2
|
Школьник ![]() Группа: Продвинутые Сообщений: 23 Регистрация: 10.1.2010 Из: Москва Город: Москва ![]() |
функция
Эскизы прикрепленных изображений ![]() |
Евгений М. |
![]()
Сообщение
#3
|
Студент ![]() ![]() Группа: Продвинутые Сообщений: 199 Регистрация: 6.11.2009 Город: Уфа Вы: студент ![]() |
|
Rыся |
![]()
Сообщение
#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, т. у. первое она найдет, а второе??????????? |
![]() ![]() |
![]() |
Текстовая версия | Сейчас: 25.5.2025, 17:30 |
Зеркало сайта Решебник.Ру - reshebnik.org.ru