Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
Другие темы раздела
PascalABC.NET Подсчитать количество слов в тексте, найти повторы и заменить их на вводимые пользователем слова Вот у меня есть код Нужно чтобы о подсчитывал кол-во всех введенных слов,я что только не пытался делать...все без результата. Помогите пожалуйста) program Program2; uses crt; var crk:... https://www.cyberforum.ru/ pascalabc-net/ thread1983636.html Даны три массива. Заменить в каждом элементы с чётными индексами на значение последнего элемента в массиве PascalABC.NET
Добрый день форумчане, кто знает как делать, помогите решить. Благодарю заранее) Даны три массива. Заменить в каждом элементе с чётными индексами на значение последнего элемента в...
PascalABC.NET Даны три слова одинаковой длины, вывести их в алфавитном порядке Добрый день форумчане, кому не сложно помогите решить, буду при много благодарен: Даны три слова одинаковой длины начинающиеся на буквы 'A', 'B', 'K' в любом порядке следования. Вывести в... https://www.cyberforum.ru/ pascalabc-net/ thread1983528.html PascalABC.NET Заменить нулями все элементы матрицы, расположенные на главной диагонали и выше нее https://www.cyberforum.ru/ pascalabc-net/ thread1983523.html
Дана действительная квадратная матрица D(4,4). Заменить нулями все ее элементы, расположенные на главной диагонали и выше нее. _______________ Просьба не ссылаться на другие примеры) Спасибо за...
PascalABC.NET Одномерные числовые массивы
pascalabc Указание: для каждой задачи создайте алгоритм и программу. Заполните одномерный числовой массив N(14) случайным целыми числами в интервале . Выведите значения элементов массива сначала в...
PascalABC.NET Как найти номер символа в множестве a.z? https://www.cyberforum.ru/ pascalabc-net/ thread1983413.html
foreach x in 'a'..'z' do Есть переменная n, которая с каждой итерацией увеличивается на 1 (изначально n =0). Как остановиться на том элементе множества, который совпадет с x?
PascalABC.NET График для квадратного уравнения Нужно сделать код для создания графика для этого уравнения program P1; uses GraphABC; var a, b, c, d, x1, x2: real; begin readln(a, b, c); d:= b * b - 4 * a * c; if d >= 0 then begin ... https://www.cyberforum.ru/ pascalabc-net/ thread1983398.html PascalABC.NET Блок-схема для программы
сделайте блок схему пожалуйста program lab; var x,y,num:integer; begin write('Введи значение x: '); readln(x); while (num <= 0) or (num > 3) do begin writeln('Выбери желаемую...
PascalABC.NET Переделать с оператором for вот с другим оператором: begin var n := ReadlnInteger('n = '); writeln(Range(n, 2*n).Aggregate(BigInteger(1), (a, b) -> a * sqr(b))); end. ЗАДАНИЕ ПОД БУКВОЙ б вот задание в миниатюре: https://www.cyberforum.ru/ pascalabc-net/ thread1983358.html PascalABC.NET Type, массив в массиве, задача https://www.cyberforum.ru/ pascalabc-net/ thread1983291.html
Получить список тех учителей школы, которые преподают математику и информатику, указать стаж работы и недельную загрузку. Всего 30 учителей, стаж работы 0-40 лет, недельная нагрузка 1-36. Выполнить...
PascalABC.NET Построить эпициклоиду, заданный функцией
Все написал, весь код, но потом стал выходить ошибка нельзя преобразовать тип реал к интегер(в строчке 15).Помогите исправить, заранее спасибо. Вот код: uses graphABC; var a,R,x,y:integer; ...
PascalABC.NET Решает ли эта программа данную задачу Есть задача: Методом Эйлера и методом Рунге-Кутта с точностью 0,001 решить дифференциальное уравнение вида y'=f(x,y) на интервале сзаданным начальным условием y(a). Определить метод, решающий... https://www.cyberforum.ru/ pascalabc-net/ thread1983068.html
1748 / 1340 / 1407
Регистрация: 28.10.2016
Сообщений: 4,266
18.05.2017, 01:18 0

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

18.05.2017, 01:18. Показов 613. Ответов 5
Метки (Все метки)

Ответ

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.


Вернуться к обсуждению:
Hайти первое отрицательное значение функции (с использованием функции и процедуры) PascalABC.NET
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.05.2017, 01:18
Готовые ответы и решения:

Составить программу, которая определяет первое отрицательное значение функции 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
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.05.2017, 01:18

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

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

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

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

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru