Отправляет email-рассылки с помощью сервиса Sendsay

Паскаль решенные задачи

Рассылка закрыта

Вы можете найти рассылки сходной тематики в Каталоге рассылок.

  Декабрь 2010   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Автор
Сергеев Андрей Викторович

Статистика

4 подписчиков
0 за неделю
←   Все выпуски   →

Паскаль решенные задачи Определить имеет ли данная функция корень на отрезке х,х+1


Дано: Функция y = sin(x) и действительное число X
Задание: Определить имеет ли данная функция корень на отрезке х,х+1.

program z_function;
uses crt;
var NumberX:real;
begin
 clrscr;
 writeln('Введите начало отрезка X');
 readln(NumberX);

if (sin(NumberX) * sin(NumberX + 1) <= 0) then
  writeln('На отрезке ',NumberX:0:2,',',NumberX + 1:0:2,' функция y = sin(x) имеет корень')
 else
  writeln('На отрезке ',NumberX:0:2,',',NumberX + 1:0:2,' функция y = sin(x) неимеет кореня');
 readln;
end.

 

Объяснение к коду можно посмотреть на сайте автора
В избранное