Задание в Паскале

[Valet]

Сам в программировании плохо шарю, а сыну помочь надо.
вот задание. Составить программу вычисления значений функции F(x,y) для нескольких значений аргумента x и y при некоторых постоянных значениях a и b.

ниже сама формула. И если можно еше блок схему покажите

Зарание спасибо

 

[Vladimir_S]

Сам в программировании плохо шарю, а сыну помочь надо.
вот задание. Составить программу вычисления значений функции 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.

Сожалею, но блок-схемами я не занимаюсь.

 

[Valet]

да извиняюсь за почерк, спасибо за труд.

а для чего нужно вот это if x=y then Writeln('Equal x and y values are forbidden!!!');

и Repeat зачем? извени что так распрашиваю

 

[Vladimir_S]

а для чего нужно вот это if x=y then Writeln('Equal x and y values are forbidden!!!');

и Repeat зачем? извени что так распрашиваю

Прошу прощения за задержку с ответом, поясняю:
1. Если х=у, то возникают проблемы с вычислением значения функции, причем этих проблем сразу две: во-первых, деление на 0 (там х-у в знаменателе дроби), во-вторых, вычисление корня пятой степени в числителе: это делается через логарифм, а у него нулевой аргумент запрещен.
2. Цикл Repeat..Until в начале программы как раз и позволяет обойти эту ситуацию: если по запросу будут введены равные значения х и у, то будет выдано сообщение об ошибке и запрос на ввод будет повторен.

 

[Valet]

Огромное спасибо, оч помог

 

[lexxxa1st]

класс 9ый 10ый ??

класс сына***

 

[Valet]

1 курс колледжа