Ответы
Гость var
a,b,x,y,z: real;
n,i: byte;
begin
write ('Сколько значений функции вы хотите получить? ');
readln (n);
for i:=1 to n do begin
write ('Введите A',i,': ');
readln (a);
write ('Введите B',i,': ');
readln (b);
if (a<>0) and (b<>0)
then begin
x:=a+b;
y:=a*x*x+b;
z:=(a+b+x+y)/((a+x)*(a+x)+(a+y)*(a+y));
//writeln ('x = ',x,' y = ',y,); // Если нужны также значения х и у
writeln ('z = ',z); end
else writeln ('Ошибка: деление на 0');
end;
end.
----------------------Результат:-----------------------
Сколько значений функции вы хотите получить? 3
Введите A1: 1.0
Введите B1: 2.0
z = 0.10625
Введите A2: 3.4
Введите B2: 1.6
z = 0.0118229350252614
Введите A3: 4.0
Введите B3: 3.0
z = 0.00515364142269538
Список предметов
