Меню сайта

Задача №6

Написать программу для вычисления значения функции —f(0.8,a)+f(a,b)-f(2a-1,ab), где —a, —bдействительные числа и


Program func6-

uses crt-

var a,b,z: real-

function f(x,y:real):real-

begin

f:= (sqr(x)-sqr(y))/(sqr(x)-2*x*y +3*sqr(y) +4)-

end-

begin

clrscr-

writeln (‘ введите a,b’)-

readln(a,b)-

z:=f(0.8,a)+f(a,b)-f(2*a-1,a*b)-

writeln(z:4:2)-

readln-

end.

Категория: Подпрограммы | Дата: 30.12.12

Меню раздела
Блок