При определении значений подобных функций переменная y вычисляется по-разному (по разным формулам) в зависимости от значения x.
Такие задачи решаются с конструкции условного оператора if - else. Поскольку в данном случае мы имеем три условия (x > 0, x = 0 и x < 0), то потребуется использование еще вложенной конструкции if - else, т. к. в языке Pascal нет оператора множественного ветвления (оператор case в данном случае не подходит).
В языке программирования Паскаль (да и в других тоже) желательно вложенные конструкции if - else помещать во внешнюю ветку else, а не if. Так проще не запутаться.
Таким образом, алгоритм вычисления значения функции может быть таким:
Если x > 0, то у = x - 2
Иначе (ниже идет вложенная конструкция)
Если x = 0, то y = 0
Иначе y = |x|.
В последнем пункте можно опустить оператор if с проверкой, что x < 0, так как если ход выполнения программы дошел до этого пункта, то x уже другим быть и не может (варианты, когда он больше или равен нулю, уже были исключены).
Для определения модуля (абсолютного значения) переменной можно использовать встроенную функцию abs() языка Pascal. В данном случае можно обойтись и без нее: поскольку уже известно, что x отрицателен, то, чтобы получить положительное число (модуль), нужно его умножить на -1.
var
x, y: integer;
begin
write ('x = ');
readln (x);
if x > 0 then
y := x - 2
else
if x = 0 then
y := 0
else
y := abs(x);
writeln ('y = ', y);
end.
Объяснение:
Дефрагментация диска.
Жёсткий диск компьютера содержит записанные файлы, деля их на фрагменты, и храня в отдельных кластерах, иногда располагающихся далеко друг от друга.
Фрагментация — это разделение файла и разбрасывание его элементов по разным кластерам. Поэтому когда файлов становится много, компьютер начинает работать медленно. Для решения этой проблемы существуют программы для дефрагментации диска. Дефрагментация — это процесс собирания фрагментов файла в соседних кластерах. Дефрагментацию жёстких дисков можно выполнить в операционной системе Windows. Для этого нужно открыть меню «свойства» жёсткого диска и на вкладке «Сервис» нажать кнопку «Выполнить дефрагментацию». Сначала программа выполнит анализ дискового пространство. Дефрагментация может длиться довольно долго.
Также дефрагментацию можно сделать в бесплатной программе Auslogics Disk Defrag Free
Архивация файлов.
Архивацию файлов можно выполнить в программах WinRAR и 7ZIP.
Эти программы нужны, чтобы распаковать архивированные файлы и сжать большие по объёму. А также множество больших файлов превратить в один небольшой файл — архив.
Эти программы нужны, чтобы сэкономить дисковое пространство. Большие и редкоиспользуемые файлы можно сжать и хранить в виде архива.
