4 года назад

Определить, сколько из n заданных точек принадлежат графику функции у= -х^3+2 паскаль.....за решение даю 31 балл

1 ответ:

0 0

Исходник и пример работы в приложении.

Если будут вопросы относительно кода - приложу какие-нибудь комментарии, или же просто спрашивайте под ответом.

Читайте также

Решить задачу. Две хозяйки купили 8 литров молока. У одной 5 литров в 6-литровом бидоне, у другой 3 литра в 5-литровом бидоне. О

irneria

Не знаю, зачем все так усложнять, по-моему нужно у одной хозяйки вычесть 1 л (5-1) молока и отдать его второй хозяйке (3+1), у них как раз станет по 4 л. Не знаю зачем тут еще 2-литровый бидон

0 0

4 года назад

Прочитать ещё 2 ответа

Выберите способ организации работы нескольких пользователей в сети с одного ip- адреса А. Использовать спутниковые каналы связи

Laziz95

Я думаю там правильный ответ Б

0 0

4 года назад

Прочитать ещё 2 ответа

Ученик работал с каталогом С:\Осень\Деревья\Клён. Сначала он поднялся на один уровень вверх, затем спустился на о

Артемчик9797 [11]

<span>3) С:\Осень\Деревья\Уход</span>

0 0

4 года назад

Помогите.Ответьте на вопросы1)что такое инициализация функции?2)как использовать функцию у которой тип возвращаемого значенияа.V

Ваня7273 [6]

1) создание, подготовка к работе, а так же определение параметров функции
2) a) нет возвращаемого значения, то есть функция что-то делает, но не возвращает ничего
б) возвращает то значение, которое вы скажете вернуть, можно использовать данный тип функции, как переменную, например, функция возвращает принятое число в случае, если это число больше нуля, -1, если меьше нуля. Таким образом можно использовать ее в любых конструкция, к примеру, условных.

если function()>0 то вывести число иначе вывести "отрицательное"

0 0

3 года назад

Помогите пожалуйста сделать задание на Паскале

venra [7]

===== PascalABC.NET =====

function F(x: real) := x - 1 / (3 + Sin(3.6 * x));

begin

var (a, b, eps) := (0.0, 0.85, 1e-5);

var x: real;

while Abs(F(a) - F(b)) >= eps do

begin

x := (a + b) / 2;

var y := F(x);

Writeln('Интервал (', a, ',', b, '), x = ', x, ', y =', y);

if Sign(y) = Sign(F(a)) then

a := x

else

b := x

end;

x := (a + b) / 2;

Writeln('Решение: х = ', x, ', y = ', F(x))

end.

0 0

3 года назад