вычисление функции по 2-м параметрам вводимых с клавиатуры

[Sashko]

[ d e l e t e d ]

[Лучик_света]

примерно так


uses
crt;

var
s, t, res: real;

function g(a, b: real): real;
var
h: real;
begin
h := a * a + (b * b) / (a * a) + 3 * a * b + 3 * b * b + 4;
g := h;
end;

begin
clrscr;
writeln("Введите число s = ");
read(s);
writeln("Введите число t = ");
read(t);
res := g(1.2, -s) + g(t, s) - g(2 * s - 1, s * t);
writeln("Result = ", res);
readkey;
end.