Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

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

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 21.04.2008, 19:01   #1
nikleb
Форумчанин
 
Регистрация: 04.04.2007
Сообщений: 131
По умолчанию Решить примерчик

Код:
program proverka;
uses crt;
var a:integer;
begin
clrscr;
readln(a);
writeln(cos((180/pi)*a):4:4);
end.
Кароче когда a=8.77 тогда выводиться 0,9854426045 что почти совподает с калькулятором windows 0,988308349175

Когда a=8.76 тогда выводиться 0,7359036204, Виндовс: 0,98833494487470

Так что глючит паскаль, виндовс или я? И как это исправить?
nikleb вне форума Ответить с цитированием
Старый 21.04.2008, 19:08   #2
_Dmitry
Участник клуба
 
Аватар для _Dmitry
 
Регистрация: 02.09.2007
Сообщений: 1,193
По умолчанию

Угол должен быть в радианах.
Если "а" у вас в градусах, то считаем так
Код:
writeln(cos(pi/180*a));
_Dmitry вне форума Ответить с цитированием
Старый 21.04.2008, 19:18   #3
nikleb
Форумчанин
 
Регистрация: 04.04.2007
Сообщений: 131
По умолчанию

Вечно из за таких тупых ошибок целый день голову ломаю. Спасибо
nikleb вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите решить на Си! Serammy Общие вопросы C/C++ 1 19.06.2008 16:25
Решить 4 задачи по си versetty Фриланс 1 28.05.2008 20:14
Не могу решить naMazi Microsoft Office Access 2 08.05.2008 06:37
Помогите решить maximon Помощь студентам 10 26.12.2007 19:25