Вход
Регистрация
Спроси здесь
Все
Биология
Информатика
Видео-ответы
Физика
Французский язык
Русский язык
Қазақ тiлi
История
Окружающий мир
География
Обществознание
Алгебра
Психология
МХК
Другие предметы
Английский язык
Українська література
Право
ОБЖ
Немецкий язык
Українська мова
Беларуская мова
Музыка
Химия
Экономика
Геометрия
Литература
Показать все предметы
Показать меньше предметов
Марина17681
04.08.2019 19:10 •
Информатика
2.7. вычислить значение функции: z=ln(x), если x=≥1; z=1, если -1
Показать ответ
Ответ:
kristina761
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 оценок)
Популярные вопросы: Информатика
Анна02000
09.04.2020 13:47
Определи расстояние на плоскости между двумя точками с заданными координатами М1(х1,у1) и М2(х2,у2). Если координаты точек: х1= 2; у1= 2 х2= 10; у2= 12 ответ округли до целых...
Единорог6663
09.04.2020 13:47
Автоматическое устройство осуществило прекодировку информационного сообщения,первоначально записанного в 7-битномкоде ASCII,в 16-битную кодировку Unicode.При этом информационное...
Neznaika123shsgwheh
09.04.2020 13:47
Запиши число 13577 в развёрнутом виде, начиная со старшего разряда....
Флиссса
09.04.2020 13:47
Запусти Pascal. Введи программу. program pr_1; var x,y,sum, umn: integer; begin write ( x= ); readln (x); write ( y= ); readln (y); sum:=x+y; umn:=x*y; writeln ( sum= ,sum);...
lacshenova
04.08.2019 08:40
Была получина телеграмма встречайте вагон 7 известно что в чоставе пледа 16вагонов какое количество инфориацти было получино...
Pussyellien
22.05.2020 20:54
ОТ ВСЕ Есть задание: Введите массив из 5 элементов с клавиатуры и найдите количество элементов, старшая цифра которых равна 8.Я нашел ответ нужно всего лишь расписать каждую...
sd16sv
22.05.2020 20:55
У таблиці містяться відомості про заробітну платуробітників. За якоюформулою можна порахуватирічні виплати (формулунеобхідно прописати укомірку G3 та скопіювати удіапазон G4:G6)?...
odyvanchik22
23.05.2020 20:59
Напишите программу в Паскале, которая в последовательности натуральных чисел определяет количество чисел, оканчивающихся на 6. Программа получает на вход количество чисел в последовательности,...
дитус
23.05.2020 09:17
Сортировка по сумме цифр Напишите программу, которая сортирует натуральные числа в массиве по убыванию суммы цифр десятичной записи числа. При равенстве сумм цифр числа должны...
grachikovaleksei
22.05.2020 20:32
Найдите информационный объем графического файла, в палитре которого используется 16 цветов. Известно, что в изображении - 64 пикселя по горизонтали и 16 пикселей по вертикали....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
КОМПАНИЯ
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ и учителей
Сообщество родителей
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
Установи приложение
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь понять?
Спроси здесь
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.