Цитата:
Сообщение от Valet
Сам в программировании плохо шарю, а сыну помочь надо.
вот задание. Составить программу вычисления значений функции F(x,y) для нескольких значений аргумента x и y при некоторых постоянных значениях a и b.
ниже сама формула. И если можно еше блок схему покажите
|
Ну, если я правильно разобрал эти мутные каракули и функция действительно такая:
, то программа - вот:
Код:
CONST
a= ; {Впишите значение константы a}
b= ; {Впишите значение константы b}
p= ; {Впишите значение константы p}
VAR
x,y,z:Real;
BEGIN
Repeat
Write('x= ');
ReadLn(x);
Write('y= ');
ReadLn(y);
if x=y then Writeln('Equal x and y values are forbidden!!!');
Until x<>y;
z:=Exp(ln(SQR(x-y))/5)/((x*x*x-y*y*y)*a*b)*(SQR(Sin((x-a)/p))+
SQR(Cos((y-b)/p)));
WriteLn('F= ',z:10:5);
ReadLn;
END.
Сожалею, но блок-схемами я не занимаюсь.