Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/3: Рейтинг темы: голосов - 3, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 20.04.2017
Сообщений: 19
1

Hайти первое отрицательное значение функции (с использованием функции и процедуры)

17.05.2017, 23:14. Показов 586. Ответов 5
Метки нет (Все метки)

Hайти первое отрицательное значение функции c=sin(2v). V принадлежит интервалу (a;b) и изменятся с шагом h.
подскажите как решить в двух вариантах в паскале функции и процедуры
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.05.2017, 23:14
Ответы с готовыми решениями:

Составить программу, которая определяет первое отрицательное значение функции y= x - sin x на заданном интерва
Составить программу, которая определяет первое отрицательное значение функции y= x - sin x на...

Вычислить значение выражения с использованием функции или процедуры
Даны действительные числа a,b,c. Получить: Z= (max(a,a-b) + max(2a,b+c))/ (1+max(a-bc,5))

Получить значение выражения с использованием функции или процедуры
Даны действительные числа S и Т. Получить: F(T,-2*S,1.17)+F(2.2,T,S-T), ...

Поменять местами наибольшее и наименьшее значение массива с использованием процедуры и функции
привет) такая задача: дана последовательность действительных чисел a1, a2,...., an. написать...

5
1746 / 1339 / 1407
Регистрация: 28.10.2016
Сообщений: 4,266
18.05.2017, 01:18 2
Pascal
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
function cfun(v: real): real:=sin(2 * v);
 
procedure cproc(a, b, h: real);
begin
  while a <= b do begin
    var cc := sin(2 * a);
    if cc < 0 then begin
      writeln('С процедурой: ', cc:0:3);
      break;
    end else a += h;
  end;
end;
 
var a, b, h: real;
begin
  (a, b, h) := (ReadlnReal('a:'), ReadlnReal('b:'), ReadlnReal('h:'));
  while a <= b do begin
    var cc := cfun(a);
    if cc < 0 then begin
      writeln('С функцией: ', cc:0:3);
      break;
    end else a += h;
  end;
  cproc(a, b, h);
end.
Добавлено через 3 минуты
Ещё как вариант
Pascal
1
2
3
4
5
var a, b: real;
begin
  (a, b) := (ReadlnReal('a:'), ReadlnReal('b:'));
  write(Range(a, b, trunc((b - a) / ReadlnReal('h:'))).Select(v -> sin(2 * v)).Where(v -> v < 0).First);
end.
1
0 / 0 / 0
Регистрация: 20.04.2017
Сообщений: 19
18.05.2017, 19:24  [ТС] 3
Народ препод сказал правильно, но я не смог защитить, говорит не все пройден, что здесь сделано ,подскажите как исправить, не работает тямы не хватает
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
program V18Lab3;
var
v,c,a,b,h:real;
procedure CC(vv:real;var y:real);
begin
y:=sin(2*vv);
end;
begin
writeln('введите начало отрезка "а"');
readln (a);
writeln('введите начало отрезка "b"');
readln (b);
writeln('введите значение шага "h"');
readln(h);
v:=a;
begin
while v<b do
CC(v,c);
if (c<0) then writeln(v,c);
v:=v+h;
end;end.
Добавлено через 51 минуту
немного въехал, но как сделать, чтобы вывелость только первое отрицательное значение?
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
program V18Lab3;
var
v,c,a,b,h:real;
procedure CC(vv:real;var y:real);
begin
y:=sin(2*vv);
end;
begin
writeln('введите начало отрезка "а"');
readln (a);
writeln('введите начало отрезка "b"');
readln (b);
writeln('введите значение шага "h"');
readln(h);
v:=a;
begin
while (v<b) do
begin
CC(v,c);if c<0 then
writeln('c =  ',c:7:5);
v:=v+h;
end;
end;
end.
0
1746 / 1339 / 1407
Регистрация: 28.10.2016
Сообщений: 4,266
18.05.2017, 21:11 4
Как только встречается отрицательный - выводить это значение и выходить из цикла через break
0
126 / 124 / 107
Регистрация: 09.01.2017
Сообщений: 1,644
18.05.2017, 21:14 5
Yuramius, я же писал вам вариант (только да, без функции) с выводом этого элемента и выходом из цикла
0
0 / 0 / 0
Регистрация: 20.04.2017
Сообщений: 19
19.05.2017, 20:04  [ТС] 6
Спасибо, я разобрался!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.05.2017, 20:04

Нахождение значения функции с использованием процедуры или функции
Найти значение функции у, использовать не менее 1й подпрограммы функции или подпрограммы процедуры....

Найти значение функции, используя процедуры и функции
Помогите плз написать программу с помощью процедур и функций. Найти значение функции ...

Процедуры и функции: вычислить значение составной функции
Процедуры и функции Помогите пожалуйста, а то не могу сообразить как сделать задачи (задания идут...

Рассчитать значение функции y=f(x) при некотором значении «х» с использованием представления функции в виде ряда
Помогите с программами нужны готовые програмные коды. Темы циклы: 2) Рассчитать значение...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.