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

Valet · 15.03.2011, 14:43

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

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

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

Vladimir_S · 15.03.2011, 15:34

Цитата:

Сообщение от 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.

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

Valet · 15.03.2011, 16:48

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

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

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

Vladimir_S · 18.03.2011, 15:42

Цитата:

Сообщение от Valet

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

Цитата:

Сообщение от Valet

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

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

Valet · 18.03.2011, 16:48

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

lexxxa1st · 18.03.2011, 17:46

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

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

Valet · 18.03.2011, 18:08

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

15.03.2011, 14:43	#1 (permalink)
Valet Member Регистрация: 15.03.2011 Сообщений: 21 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Сам в программировании плохо шарю, а сыну помочь надо. вот задание. Составить программу вычисления значений функции F(x,y) для нескольких значений аргумента x и y при некоторых постоянных значениях a и b. ниже сама формула. И если можно еше блок схему покажите Зарание спасибо Миниатюры

Опции темы
Версия для печати Отправить по электронной почте
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

15.03.2011, 16:48	#3 (permalink)
Valet Member Регистрация: 15.03.2011 Сообщений: 21 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	да извиняюсь за почерк, спасибо за труд. а для чего нужно вот это if x=y then Writeln('Equal x and y values are forbidden!!!'); и Repeat зачем? извени что так распрашиваю

18.03.2011, 16:48	#5 (permalink)
Valet Member Регистрация: 15.03.2011 Сообщений: 21 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Огромное спасибо, оч помог

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070

18.03.2011, 17:46	#6 (permalink)
lexxxa1st Member Регистрация: 17.03.2011 Сообщений: 17 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	класс 9ый 10ый ?? класс сына***

18.03.2011, 18:08	#7 (permalink)
Valet Member Регистрация: 15.03.2011 Сообщений: 21 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	1 курс колледжа