15.03.2011, 14:43 | #1 (permalink) |
Member
Регистрация: 15.03.2011
Сообщений: 21
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
вот задание. Составить программу вычисления значений функции F(x,y) для нескольких значений аргумента x и y при некоторых постоянных значениях a и b. ниже сама формула. И если можно еше блок схему покажите Зарание спасибо |
15.03.2011, 14:43 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Так же вы можете набраться побольше информации, почитав похожие темы Задание в Pascal. Подскажите Задание в паскале. Помогите с решением Задание в паскале с кординатами Задание по циклам Задание подпрограммы Домашнее задание на лето. |
15.03.2011, 15:34 | #2 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Код:
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. |
|
15.03.2011, 16:48 | #3 (permalink) |
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, 15:42 | #4 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
1. Если х=у, то возникают проблемы с вычислением значения функции, причем этих проблем сразу две: во-первых, деление на 0 (там х-у в знаменателе дроби), во-вторых, вычисление корня пятой степени в числителе: это делается через логарифм, а у него нулевой аргумент запрещен. 2. Цикл Repeat..Until в начале программы как раз и позволяет обойти эту ситуацию: если по запросу будут введены равные значения х и у, то будет выдано сообщение об ошибке и запрос на ввод будет повторен. |
|
18.03.2011, 16:48 | #5 (permalink) |
Member
Регистрация: 15.03.2011
Сообщений: 21
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Огромное спасибо, оч помог
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
18.03.2011, 18:08 | #7 (permalink) |
Member
Регистрация: 15.03.2011
Сообщений: 21
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
1 курс колледжа
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|