Определить функцию Y - Pascal

Pascal (Паскаль)

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Рейтинг 5.00/6:

@Alena05105 0 / 0 / 0 Регистрация: 16.11.2020 Сообщений: 7

	Определить функцию Y 16.11.2020, 17:37. Показов 1151. Ответов 1 Метки Pascal (Паскаль) (Все метки) Определить функцию Y. Миниатюры 0

Лучшие ответы (1)

Сообщение: #15008429

cpp_developer

Эксперт

20123 / 5690 / 1417

Регистрация: 09.04.2010

Сообщений: 22,546

Блог

16.11.2020, 17:37

Ответы с готовыми решениями:

определить функцию
Определить процедуру, вычисляющую наибольший элемент i-й строки матрицы a(MxN). С ее помощью для заданной матрицы b(5x4) вычислить...

Определить функцию, вычисляющую факториал
Даны неотрицательные целые числа a, b. Найти F(a, b), где F(a,b)= (b!-a!) / (b+a)! (Определить вспомогательную функцию,...

Определить функцию f(n), значением которой является натуральное число
Определить функцию f(n), значением которой является на- туральное число, получаемое выбрасыванием из записи на- турального числа n...

Puporev

Почетный модератор

64315 / 47611 / 32743

Регистрация: 18.05.2008

Сообщений: 115,167

16.11.2020, 20:39

Сообщение было отмечено Alena05105 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
var x,a,b,c,d,y:real;
    k:integer;
begin
writeln('Введите c,x');
readln(c,x);
k:=0;
a:=3*x*x+b;
if a<=0 then  k:=1 else
 begin
  a:=2*sqrt(a);
  if x<=-1 then k:=1 else
   begin
    b:=(5*ln(x)+c)/sqrt(x+1);
    d:=x*x+c;
    if(d<0)or(2*b-d=0)or(a<=0) then k:=1
    else y:=(3*sin(x)+2*ln(a))/(2*b-d);
   end;
 end;
if k=1 then write('Значение Y не определено')
else write('Y=',y:0:3)
end.

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

raxper

Эксперт

30234 / 6612 / 1498

Регистрация: 28.12.2010

Сообщений: 21,154

Блог

16.11.2020, 20:39

Помогаю со студенческими работами здесь

Определить функцию,находящую максимум из двух различных чисел
Даны 6ть различных чисел. Определить максимальное из них.(Определить функцию,находящую максимум из двух различных чисел.)

Определить функцию СредРост(ГР), находящую средний рост женщин из группы ГР
Используя следующий фрагмент программы , опишите перечисленные ниже ф-ции: имя=(Аня,Валя,Женя,Петя,Саша,Таня,Шура,Юра); ...

Определить функцию для расчёта периметра равнобедренной трапеции по ее основаниям и высоте
Даны основания и высоты двух равнобедренных трапеций. Найти сумму их периметров. (Определить функцию для расчёта периметра равнобедренной...

Описать функцию F(m,n)=n!*m!/(n+m)!, где n, m - неотрицательные целые числа. (Определить внутреннюю функцию, вычисляющую факториал)
Задача: Описать функцию F(m,n)=n!*m!/(n+m)!, где n, m - неотрицательные целые числа. (Определить внутреннюю функцию, вычисляющую...

Определить функцию
Помогите, пожалуйста! Даны действительные числа x, y. Получить: f(x,-2y,1.17)+f(2.2,x,x-y), tg(f(x+y,xy,y-x)+f(3.1,1.4,y-sinx)), где...

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

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Вывод данных через динамический список в справочнике Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Функция заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .
Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .

Наверх