Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Олегнорм
24.02.2022 16:48 •
Информатика
Іскласти програму обчислення значень функції f(x)=е^(-x )+ cos3x на відрізку [a; b] в точках xi=a+ih, де h=(b-a)/m, а=-1, в=4, м=10.
Показать ответ
Ответ:
166niko
02.08.2020 22:58
Var
x0, xk, dx, x: real;
function f(x: real): real;
begin
f := exp(-x) + cos(3 * x);
end;
begin
write('Введите промежуток и шаг ([a,b] h) ');
readln(x0, xk, dx);
x := x0;
writeln(' x ':10, ' | ', ' f(x) ':10);
repeat
writeln(x:10:3, ' | ', f(x):10:3);
x := x + dx;
until x > xk;
end.
Пример вывода
Введите промежуток и шаг ([a,b] h) -1 4 0.5
x | f(x)
-1.000 | 1.728
-0.500 | 1.719
0.000 | 2.000
0.500 | 0.677
1.000 | -0.622
1.500 | 0.012
2.000 | 1.096
2.500 | 0.429
3.000 | -0.861
3.500 | -0.445
4.000 | 0.862
0,0
(0 оценок)
Популярные вопросы: Информатика
AlexGood21
26.02.2021 04:45
Приведены за к поисковому серверу. Для каждого за указан его код — соответствующая буква от А до Г. Для обозначения логической операции «ИЛИ» в за используется символ «|»,...
gehegeghegge
26.03.2020 03:07
1. перевести числа в двоичную систему счисления: а) 17 б) 99 в) 175 г) 211 2. перевести числа из двоичной системы счисления в десятичную: а) 10001 б) 111011 в) 1010101 г)...
sndzhychayana
04.11.2020 01:50
Яне уверена что сделала правильно...
MokrovaDiana
02.11.2022 01:20
Программирование с#: зачем пишется значок $ в строке ?...
moiseenkoevgeni
30.09.2020 04:40
Паскаль: с для четырех произвольных чисел, введенных с клавиатуры, выведите на экран соответствующие результаты. если произведение этих чисел положительно, то выведите утроенное...
oleg173173173
15.05.2023 17:14
Даны 2 по информатике 1)дано а.b.h .найти площадь трапеции 2)дана сторона квадрата. найти p и s....
Juliavaishle1
05.05.2020 22:37
40 вычислить и вывести все значения y по формуле y=4-x для всех целых значений x от 1 до n.! причина...
wwwOli6578000
27.04.2021 08:47
Вэвм поступают результаты соревнований по плаванию для трёх спортсменов. составьте программу, которая выбирает лучший результат и выводит его на экран с сообщением, что это...
rahimzhan20p0dqkg
30.01.2023 20:03
Паскаль 1)в двумерном массиве 4 на 3 заменить все нулевые элементы на первый элемент матрицы . 2) заменить все элементы главной диагонали на максимальный элемент той же строки...
imancom2005
12.10.2021 17:11
1.составьте программу вычисления значение функций у по формуле у=х cos x+ sin x,для которой значение аргумента х введите с клавиатуры отладьте программу на следующем примере:...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
x0, xk, dx, x: real;
function f(x: real): real;
begin
f := exp(-x) + cos(3 * x);
end;
begin
write('Введите промежуток и шаг ([a,b] h) ');
readln(x0, xk, dx);
x := x0;
writeln(' x ':10, ' | ', ' f(x) ':10);
repeat
writeln(x:10:3, ' | ', f(x):10:3);
x := x + dx;
until x > xk;
end.
Пример вывода
Введите промежуток и шаг ([a,b] h) -1 4 0.5
x | f(x)
-1.000 | 1.728
-0.500 | 1.719
0.000 | 2.000
0.500 | 0.677
1.000 | -0.622
1.500 | 0.012
2.000 | 1.096
2.500 | 0.429
3.000 | -0.861
3.500 | -0.445
4.000 | 0.862