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

@Samvel_ · Регистрация: 30.10.2017

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

кто сделает буду благодарен

$https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> X=\begin{cases}a\cdot b-3 & \text{, if } a\,>\,b \\\,\\ 2 & \text{, if } a=b \\\,\\\frac{a^3+1}{b} & \text{, if } a\,<\,b \end{cases}<br />$

@AndrewBeletskiy · 30.10.2017, 21:52

Samvel_,

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
program task;
 
function x(a,b: real): real;
begin
 if a > b then
 begin
    x := a * b - 3;
 end else if a < b then
 begin
    x := (a*a*a+1) / b;
 end else
 begin
   x := 2;
 end;
end;
 
BEGIN
    writeln('X(A,B) = X(1,2) = ', X(1,2):0:5);
    writeln('X(2,2) = ', X(2,2):0:5);
    writeln('X(3,2) = ', X(3,2):0:5);
END.

@Cyborg Drone · 30.10.2017, 22:35

AndrewBeletskiy, плохо. Для халявщика Ваша программа - провал при сдаче, для не халявщика - пример того, как не следует писать программы:

- использовать подпрограммы нужно тогда, когда это действительно необходимо, либо когда это указано в задании;
- не следует один оператор выделять операторными скобками begin..end;
- Вы не учли область допустимых значений выражения;
- в учебных заданиях для небольшого количества переменных лучше использовать ввод с клавиатуры, если не указано иначе.

Не критично, но всё же:

- перед словом end точку с запятой лучше не ставить, поскольку end является ограничителем;
- во всех используемых на сегодняшний момент диалектах языка паскаль, заголовок программы (строку со словом program) использовать не обязательно.

Вариант:

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

@AndrewBeletskiy · 30.10.2017, 23:01

Cyborg Drone,
Насчёт ввода с клавиатуры и ОДЗ действительно - очень важные пункты.
Остальные аргументы основываются на том, что программа не будет изменятся, дополнятся или расширятся.
Если это действительно так, то полностью согласен. А если нет, то:
1. Использование операторных скобок не влияет на производительность. При надобности добавить вывод на экран вспомогательной информации всё равно будет необходимо их дописать. Пример:

Pascal
1
2
3
4
5
6
7
8
9
10
11
if a > b then
 begin
    x := a * b - 3;
 end else if a < b then
 begin
    x := (a*a*a+1) / b;
 end else
 begin
 
   x := 2;
 end;

@Cyborg Drone · 30.10.2017, 23:12

Действительно, лишние операторные скобки иногда используются при отладке программы, из окончательного релиза они удаляются.

@AndrewBeletskiy · 30.10.2017, 23:19

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

Все эти аспекты теряют смысл, если программа не будет меняться.
Но если вдруг будет, то фраза

Сообщение от Cyborg Drone

для не халявщика - пример того, как не следует писать программы

теряет смысл - так как эти пункты способствуют удобству её изменения(или повторного использования кода используемого в этой программе)

@Cyborg Drone · 30.10.2017, 23:35

Ну что тут скажешь... У нас разные подходы к написанию программ. Нас по-разному учили.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .

@Samvel_ 0 / 0 / 0 Регистрация: 30.10.2017 Сообщений: 8

	Вычислить значение выражения 30.10.2017, 21:44. Показов 1200. Ответов 6 Метки нет (Все метки) кто сделает буду благодарен $https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> X=\begin{cases}a\cdot b-3 & \text{, if } a\,>\,b \\\,\\ 2 & \text{, if } a=b \\\,\\\frac{a^3+1}{b} & \text{, if } a\,<\,b \end{cases}<br />$ 0

@Cyborg Drone Модератор 10423 / 5711 / 3402 Регистрация: 17.08.2012 Сообщений: 17,371
	30.10.2017, 23:12
	Действительно, лишние операторные скобки иногда используются при отладке программы, из окончательного релиза они удаляются. 0

@Cyborg Drone Модератор 10423 / 5711 / 3402 Регистрация: 17.08.2012 Сообщений: 17,371
	30.10.2017, 23:35
	Ну что тут скажешь... У нас разные подходы к написанию программ. Нас по-разному учили. 1