Технический форум - Задание в Паскале

Технический форум (http://www.tehnari.ru/)

- Delphi, Kylix and Pascal (http://www.tehnari.ru/f43/)

- - Задание в Паскале (http://www.tehnari.ru/f43/t48895/)

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

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

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

Цитата:

Сообщение от Valet (Сообщение 486003)

Ну, если я правильно разобрал эти мутные каракули и функция действительно такая: Вложение 32649, то программа - вот:

Код:

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.

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

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

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

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

Цитата:

Сообщение от Valet (Сообщение 486069)

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

Цитата:

Сообщение от Valet (Сообщение 486070)

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

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

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

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

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

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