Нужно посчитать f(x), но используя процедуру или функцию.

@dibar · Регистрация: 03.03.2010

Студворк — интернет-сервис помощи студентам

Нужно просто посчитать f(x), но используя процедуру или функцию.
Я написал так:

Pascal
1
2
3
4
5
6
7
8
9
10
program lab4;
          var y:real; odz,x:integer;
begin
         writeln('Введите Х'); 
         readln(x);         
         odz:=Sqr(x)-16;         
         if odz and x = 0 then writeln('Не входит в ОДЗ') else         
         y:=Abs((2*x-5)/(Sqr(x)-16))-((x+1)/(5*Sqr(x)));         
         writeln('Ответ= ',y:0:3);
end.

по нужно, что-бы было так:

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

f(x)= Название: f.JPG
Просмотров: 71

Размер: 9.0 Кб

Название: f.JPG
Просмотров: 71

Размер: 9.0 Кб

@System.exe · 07.03.2010, 23:23

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
program lab4;
Var y:real;
odz,x:double;
function fnk(m:double):real;
begin
fnk:=abs((2*m-5)/(sqr(m)-16))-((m+1)/(5*sqr(m)))
end;
begin
writeln('enter x');
readln(x);
odz:=sqr(x)-16;
if (odz=0) and (x=0) then
writeln('function is not defined');
else y:=fnk(x);
writeln('y=', y:5:3)
end.

@dibar · 07.03.2010, 23:40 **[ТС]**

пишет:
(строка 14) : Ожидался оператор

@Eugeniy · 07.03.2010, 23:59

В 13 строке уберите точку с запятой.
В 12 строке должно быть if () or () then

@dibar · 08.03.2010, 00:07 **[ТС]**

да, все ок. Большое спасибо

Новые блоги и статьи Все статьи Все блоги /
Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных через динамический список в справочнике 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. . . .

@dibar 0 / 0 / 0 Регистрация: 03.03.2010 Сообщений: 26
	07.03.2010, 23:40 [ТС]
	пишет: (строка 14) : Ожидался оператор 0

@Eugeniy 3132 / 1325 / 156 Регистрация: 19.12.2009 Сообщений: 1,808
	07.03.2010, 23:59
	В 13 строке уберите точку с запятой. В 12 строке должно быть if () or () then 0

@dibar 0 / 0 / 0 Регистрация: 03.03.2010 Сообщений: 26
	08.03.2010, 00:07 [ТС]
	да, все ок. Большое спасибо 0