Форум программистов
Реклама:
Интернет Контроль Сервер: российский межсетевой экран.
Контроль трафика, контент-фильтр, почта, антивирус, VPN, прокси-, веб- и jabber-сервер. Сертификат ФСТЭК
Регистрация  |  Повторная активизация e-mail  |  Правила форума  |  Исходники Delphi  |  Основы Delphi  |  Новости клуба  |  alarforum@yandex.ru

Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам!


Вернуться   Форум программистов > Новички в программировании > Помощь студентам

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Название темы включает слова - "Помогите", "Спасите", "Срочно"
Название темы не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте >>>правила <<< и заново правильно создайте тему.
 
Опции темы
Старый 17.11.2009, 21:10   #1
whatever
a.k.a. Skull
Участник клуба
 
Регистрация: 17.11.2009
Адрес: Красноярск
Сообщений: 969
Репутация: 379

skype: skull_negodue
По умолчанию Нахождение синуса

Сразу хочу извиниться за название темы, ума не дам как описать эту проблему...
Код:

const
n=11;
var
  i:integer;
  z:real;
BEGIN
  write('x':8);
  write('sin':8);
  write('cos':8);
  writeln;
  z:=0;
  for I:=1 to n do
    begin
      write(z:8:3);
      write(sin(z):8:3);
      write(cos(z):8:3);
      writeln;
      z:=z+0.1;
    end;
readln
END.

Эта программа находит значения синуса и косинуса на отрезке [0.1] с шагом в 0.1
Результат такой:
Код:

        x        sin        cos
    0.000    0.000    0.000
    0.100    0.100    0.995
..................................
    1.000    0.841    0.540

А должен быть:
Код:

        x        sin        cos
    0.000    0.000    0.000
    0.100    0.099    0.995
..................................
    1.000    0.842    0.540

Вот теперь вопрос: почему значения синуса находятся неверно? Если в теле программы sin заменить на cos, то значения косинуса выдаются верно, т.е. значения аргумента х подставляются правильные.

Ума ни дам где может быть ошибка...
whatever вне форума  
Старый 17.11.2009, 21:23   #2
whatever
a.k.a. Skull
Участник клуба
 
Регистрация: 17.11.2009
Адрес: Красноярск
Сообщений: 969
Репутация: 379

skype: skull_negodue
По умолчанию

Все, разобрался, округляет он оказывается... Оказалось, что у меня задание так сформулировано, что при х=0,1 округлять не надо, а при х=1 почемуто округлили, что и ввело в заблуждение.

Да, тему можно удалить
whatever вне форума  
Закрытая тема



Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
помогите с вычислением синуса, косинуса, тангенса и котангенса Panika Помощь студентам 10 08.11.2009 17:54
Помогите составить программу вычисления матричного синуса, пожалуйста! Lunatik Помощь студентам 6 31.03.2009 16:59
Реализация синуса angol Помощь студентам 5 07.11.2008 23:00
Генератор синуса Ulex Assembler 1 14.09.2008 12:53
Быстрый алгоритм для вычисления синуса RIO Помощь студентам 10 17.12.2007 15:33




18:38.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2016, Jelsoft Enterprises Ltd.

Пеллетные котлы Emtas


Emtas.net продажа и монтаж отопительного оборудования
Корпусная мебель оптом и под дизайн проект


Низкие цены, высокое качество.
RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru