Округление значения функции

@mordol · Регистрация: 12.05.2015

Студворк — интернет-сервис помощи студентам

Можете проверить код?

Pascal
1
2
3
4
5
6
7
8
9
10
11
Program z2;
Var a,b:integer;
       y:real;
 begin
Writeln('Введите a: ');
Writeln('Введите b: ');
Readln(a);
Readln(b);
y:=sin(abs(a+b))+abs(cos(a-b));
WriteLn('Значение функции = ',round(y));
End.

Мне нужно округлить значение до целого?

@APALoff · 22.10.2015, 16:55

Так Вы уже используете это округление "до целого" - Round
Вот только не видно в этом целесообразности, т.к. результат тригонометрических функций лежит в диапазоне -1..+1

@mordol · 22.10.2015, 16:58 **[ТС]**

То есть я это правильно сделал?

@Puporev · 22.10.2015, 17:01

Так Вы и округляете round(y)

Добавлено через 1 минуту
А зачем это нужно? Ну будете получать 0, 1, 2 и все.

@mordol · 22.10.2015, 17:03 **[ТС]**

по условию задачи надо, надо округлить до целого
я правильно записал код?

@Puporev · 22.10.2015, 17:05

Да правильно... Только это или глупость автора задачи или твое кривое ухо или глаз...

@APALoff · 22.10.2015, 17:06

Может округление имелось в виду до какого-то знака, а не до целого?

Добавлено через 42 секунды

Pascal
1
WriteLn('Значение функции = ',y:8:4);

@mordol · 22.10.2015, 17:06 **[ТС]**

написано округлить результат до ближайшего целого

@APALoff · 22.10.2015, 17:08

Тогда это тот случай, когда условие не соответствует задаче.

Добавлено через 47 секунд
Все равно что попросить измерить длину муравья и округлить до целых метров - смысла 0.

@mordol · 22.10.2015, 17:09 **[ТС]**

есть еще такая же задача но вывести только целую часть при помощи функции inc

@APALoff · 22.10.2015, 17:10

и она "ягодка" того же "поля" - безсмысленно

@mordol · 22.10.2015, 17:12 **[ТС]**

не я такое придумываю

Новые блоги и статьи Все статьи Все блоги /
Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной записи. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .	Контроль уникальности заводского номера - вариант №2 Maks 24.03.2026 В отличие от предыдущего варианта добавлено прерывание циклов, также добавлены новые переменные для сохранения контекста ошибки перед прерыванием цикла: Процедура ПередЗаписью(Отказ, РежимЗаписи,. . .
SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++ 8Observer8 24.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip	Жизнь в неопределённости kumehtar 23.03.2026 Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .	Модель здравоСохранения: работники работают быстрее после её введения. anaschu 23.03.2026 geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .	Контроль уникальности заводского номера - вариант №1 Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере документа выдачи шин для спецтехники с табличной частью в конфигурации КА2. Данные берутся из регистра сведений, по. . .

@APALoff 1648 / 1077 / 1081 Регистрация: 03.07.2013 Сообщений: 4,507
	22.10.2015, 16:55
	Так Вы уже используете это округление "до целого" - Round Вот только не видно в этом целесообразности, т.к. результат тригонометрических функций лежит в диапазоне -1..+1 0

@mordol 1 / 1 / 2 Регистрация: 12.05.2015 Сообщений: 313
	22.10.2015, 16:58 [ТС]
	То есть я это правильно сделал? 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	22.10.2015, 17:01
	Так Вы и округляете round(y) Добавлено через 1 минуту А зачем это нужно? Ну будете получать 0, 1, 2 и все. 0

@mordol 1 / 1 / 2 Регистрация: 12.05.2015 Сообщений: 313
	22.10.2015, 17:03 [ТС]
	по условию задачи надо, надо округлить до целого я правильно записал код? 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	22.10.2015, 17:05
	Да правильно... Только это или глупость автора задачи или твое кривое ухо или глаз... 0

@mordol 1 / 1 / 2 Регистрация: 12.05.2015 Сообщений: 313
	22.10.2015, 17:06 [ТС]
	написано округлить результат до ближайшего целого 0

@APALoff 1648 / 1077 / 1081 Регистрация: 03.07.2013 Сообщений: 4,507
	22.10.2015, 17:08
	Тогда это тот случай, когда условие не соответствует задаче. Добавлено через 47 секунд Все равно что попросить измерить длину муравья и округлить до целых метров - смысла 0. 0

@mordol 1 / 1 / 2 Регистрация: 12.05.2015 Сообщений: 313
	22.10.2015, 17:09 [ТС]
	есть еще такая же задача но вывести только целую часть при помощи функции inc 0

@APALoff 1648 / 1077 / 1081 Регистрация: 03.07.2013 Сообщений: 4,507
	22.10.2015, 17:10
	и она "ягодка" того же "поля" - безсмысленно 0

@mordol 1 / 1 / 2 Регистрация: 12.05.2015 Сообщений: 313
	22.10.2015, 17:12 [ТС]
	не я такое придумываю 0