Вычислить значение выражения

@Rechter · Регистрация: 11.05.2022

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

Сильно отстаю по срокам без вас не справлюсь.
Составить блок-схему и программу вычисления значения функции. Ввести
входные данные и вывод на экран входные данные и значения функции.
Буду очень благодарен!

@Cyborg Drone · 18.05.2022, 02:52

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var
  a, b, u: real;
begin
  write('a = ');
  readln(a);
  write('b = ');
  readln(b);
  if (a > 0) and (b > 0) or (a < 0) and (b < 0) or (a = 0) and (b = 0) then
    if a < b then u := a
    else u := b
  else
    if a > b then u := a
    else u := b;
  writeln('u = ', u)
end.

@thyrex · 21.05.2022, 09:00

Cyborg Drone, если числа одного знака, то их произведение положительно. Тогда и программа, и блок-схема будут проще

@bormant · 21.05.2022, 10:56

Сообщение от thyrex

Тогда и программа, и блок-схема будут проще

... были бы проще, если бы не 0

С другой стороны, простоты понимания ради:

Pascal
1
2
3
4
5
6
7
8
function Sign(a: Real): Integer;
begin
  Result:=0;
  if      a>0 then Inc(Result)
  else if a<0 then Dec(Result);
end;
...
  if Sign(a)=Sign(b) then ...

@thyrex · 21.05.2022, 12:37

Сообщение от bormant

... были бы проще, если бы не 0

убили

Число 0 не относится ни к положительным, ни к отрицательным, а значит попадает под случай else

@bormant · 21.05.2022, 12:44

Сообщение от thyrex

попадает под случай else

a=0, b=0 -- равны ли знаки?

Я правда не знаю, как должно быть, но если равны, то одним a*b>0 не обойтись

@thyrex · 21.05.2022, 13:10

а, Вы про то, что стандартный Sign возвращает 0, если число равно нулю?

Ну тогда можно так

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var
  a, b, u: real;
begin
  write('a = ');
  readln(a);
  write('b = ');
  readln(b);
  if a>b            // расположим числа по неубыванию :)
   then
    begin
     a:= a+b;
     b:= a-b;
     a:= a-b;
    end;  
  if (a*b > 0) or ((a = 0) and (b = 0))
   then u:= a
   else u:= b;
  writeln('u = ', u)
end.

Новые блоги и статьи Все статьи Все блоги /
Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .	Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .	Программный отбор значений справочника Maks 21.03.2026 Установка программного отбора значений справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит предопределенное значение перечислений. Процедура. . .	Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .
Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .	[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .

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

	Вычислить значение выражения 11.05.2022, 17:53. Показов 542. Ответов 6 Метки Pascal (Паскаль) (Все метки) Сильно отстаю по срокам без вас не справлюсь. Составить блок-схему и программу вычисления значения функции. Ввести входные данные и вывод на экран входные данные и значения функции. Буду очень благодарен! 0

@thyrex 14450 / 7489 / 1582 Регистрация: 06.09.2009 Сообщений: 27,133
	21.05.2022, 09:00
	Cyborg Drone, если числа одного знака, то их произведение положительно. Тогда и программа, и блок-схема будут проще 0