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