Форум программистов
 
О проблемах, например, с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Ответ
 
Опции темы
Старый 19.02.2009, 14:15   #1
Paul Oakenfold
Пользователь
 
Регистрация: 27.01.2009
Сообщений: 43
Восклицание Не сходится с ответом...

http://pic.co.ua/ru/view/01e8f7c415b...5873ff682f552/
там вторая задачка... на паскале расписать... но ответ для проверки не сошёлся...


Код:
program paul_oakenfold;
var
y,a,c,x,m : real;
flag : boolean;
begin
write ('a= '); readln (a);
write ('c= '); readln (c);
write ('x= '); readln (x);
flag:=false;
if (a>0) or (cos(c)<>0) or (sin(3*x)<>0) then
begin
flag:=true;
m:=4*sqr(cos(5*sqr(sin(x))))*cos(5*sqr(sin(x)))*co s(x)/
(5*sqr(sin(3*x))*sin(3*x))-4*sqrt(a)/(5*sqr(sqr(sin(c)/cos(c)))*
sin(c)/cos(c))
end;

if flag and (m>0) then
y:=3*abs(sqr(a)-5*sqr(sin(sqr(c)))/sqr(cos(sqr(c)))*sin(sqr(c))/cos(sqr(c)))
+sqrt(m);

write ('a c x y'); writeln;
write (a:0:1,' ',c:0:1,' ',x:0:1,' ',y:0:4); writeln;

readln
end.
Где я допустил ошибку? Подскажите пож.

Последний раз редактировалось Stilet; 19.02.2009 в 16:59.
Paul Oakenfold вне форума Ответить с цитированием
Старый 19.02.2009, 14:28   #2
Sazary
В тени
Старожил
 
Аватар для Sazary
 
Регистрация: 19.12.2008
Сообщений: 5,788
По умолчанию

У меня картинка не открывается.
Подозреваю, что неверная ссылка.
Вполне очевидно, чтобы что-то понять, необходимо книги читать.
Не нужно плодить бессмысленных тем. Вас Поиск избавит от многих проблем.

___________________________________ ___________________________________ _______
[=Правила форума=]_____[Поиск]_____[Литература по С++]____[Литература. Паскаль]
Sazary вне форума Ответить с цитированием
Старый 19.02.2009, 15:32   #3
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,260
По умолчанию

Paul Oakenfold,
1) Вы уже второй раз создаёте эту тему...
2) картинку прикладываю (я её взял из прошлого поста, в данной теме она действительно не открывается) и, на будущее, картинку неплохо было хотя бы немного обрезать/сжимать...
3) у меня ответ тоже не сошёлся (получилось 32 с хвостиком..)!
подозреваю, что проблема несовпадения c контрольным примером в том, что по разному задаются параметры тригонометрических функций - в радианах или градусах... (хотя, исключить возможность опечатки тоже нельзя... ;-)

собственно, задание:

Последний раз редактировалось Serge_Bliznykov; 19.02.2009 в 15:38.
Serge_Bliznykov вне форума Ответить с цитированием
Старый 19.02.2009, 16:03   #4
Sazary
В тени
Старожил
 
Аватар для Sazary
 
Регистрация: 19.12.2008
Сообщений: 5,788
По умолчанию

Serge_Bliznykov Спасибо за задание )

Попробовал перевести x и c в градусы
Код:
x:=x*180/pi;
c:=c*180/pi;
и в радианы
Код:
x := x*pi/180;
c := c*pi/180;
Ответы не сходятся.
Думаю, действительно опечатка.
Вполне очевидно, чтобы что-то понять, необходимо книги читать.
Не нужно плодить бессмысленных тем. Вас Поиск избавит от многих проблем.

___________________________________ ___________________________________ _______
[=Правила форума=]_____[Поиск]_____[Литература по С++]____[Литература. Паскаль]
Sazary вне форума Ответить с цитированием
Старый 19.02.2009, 17:01   #5
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,840
По умолчанию

А мож это задачка с подпредвывертом.
Мож правильный результат как раз в том чтоб показать что представленный ответ не верен.
Такими любят кормить на олимпиадах, и ведь попадается больше половины на эту шутку
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 19.02.2009, 18:09   #6
Paul Oakenfold
Пользователь
 
Регистрация: 27.01.2009
Сообщений: 43
По умолчанию

Да нет, это не с олимпиады, простая домашка...)))
Paul Oakenfold вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Не сходится с ответом... Paul Oakenfold Помощь студентам 5 16.02.2009 16:06


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS
Здесь нужно купить рекламу за 7 тыс руб в месяц! )
пишите сюда - alarforum@yandex.ru
ИКС 840