Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
ирмук
20.03.2023 22:11 •
Информатика
2.7. вычислить значение функции: z=ln(x), если x=≥1; z=1, если -1
Показать ответ
Ответ:
НИкитос1757
03.10.2020 22:24
Формула несколько не совсем понятна, но если что функцию не трудно переделать
var
x: real;
function Z(x: real): real;
begin
if x >= 1 then
Z := ln(x)
else
Z := 1;
end;
begin
x := 1;
writeln('z(', x, ') = ', z(x));
x := -1;
writeln('z(', x, ') = ', z(x));
write('x=');
readln(x);
writeln('z(', x, ') = ', z(1));
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
лаура1446
24.09.2021 16:30
Транспортир нужен (для чего? не знаю как записать, ! )...
2007arttt
20.01.2023 18:15
Створіть нове вікно tkinter та багаторядкове текстове поле. Розміри вікна та атрибути текстового поля вказати самостійно. В текстове поле користувач буде вводити список температурних...
ксюша1692
27.04.2023 07:20
решить Для мея очень сложно((( 115) Для кодирования некоторой последовательности, состоящей из букв А, Б, В, Г, Д, Е, Ж решили использовать неравномерный двоичный код, удовлетворяющий...
andkrutoi2018
10.04.2022 05:54
Заполни таблицу по абразцу: go-went.say-...
vladpasin34
10.04.2022 05:54
Катет прямоугольного треугольника равен 28 см.разность двух других сторон равна 8 см.найдите неизвестные стороны этого треугольника...
Fajeh
10.04.2022 05:54
Составь цепочку железная руда зерно еще что-то другое...
Шпунтя
10.04.2022 05:54
Укажите предложение с прямой речью . ( знаки препинания не расставлены ) 1) на пойдём в пять часов вечера объявил вожатый . 2) вожатый сказал что на они пойдут вечером . 3) по...
Кавайныйлебедь
10.04.2022 05:54
Вравнобедренной трапеции высота равна 6 см, диагональ равна 10 см, большее основание равно 11 см. найти другие основания....
яАРтеМоНкА
10.04.2022 05:54
Сравните положение городов на западе и на востоке в xvi-xviii вв...
artem0941
10.04.2022 05:54
Словосочетание косить траву нужно существительное траву привратить в родительный падеж...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var
x: real;
function Z(x: real): real;
begin
if x >= 1 then
Z := ln(x)
else
Z := 1;
end;
begin
x := 1;
writeln('z(', x, ') = ', z(x));
x := -1;
writeln('z(', x, ') = ', z(x));
write('x=');
readln(x);
writeln('z(', x, ') = ', z(1));
end.