Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
bogdanlesja1
23.04.2022 03:36 •
Информатика
Іскласти програму обчислення значень функції f(x)=е^(-x )+ cos3x на відрізку [a; b] в точках xi=a+ih, де h=(b-a)/m, а=-1, в=4, м=10.
Показать ответ
Ответ:
cheknutyi
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 оценок)
Популярные вопросы: Информатика
vadimrusackeviVadim
17.05.2022 02:10
1. три подружки — ксюша, лена и даша — купили в магазине груши, яблоки и сливы, причем каждая девочка покупала только один вид фруктов и все покупки у них были разные. на вопрос, кто...
witin2394j
07.02.2022 05:55
Лабораторно-практическая работа «создание текстового документа в microsoft word» 1: набрать текст, соблюдая следующие правила: правила набора текста: между словом и знаком препинания...
Kvasya07
15.11.2022 20:37
Сбор информации это наблюдение, рисование, обдумывание, запоминание, записывание. выбрать правильнае ответы...
sPHAgNUM1
15.11.2022 20:37
Сколько информации несёт сообщение о том,что из колоды 32 карты достали бубного туза?...
zhivotkhanova95
15.11.2022 20:37
Показания термометра какая форма представления информации...
polinkamalinka28
15.02.2022 22:02
Скорость передачи данных модемом по протоколу v.92 составляет 56000 бит передача файла при данного протакола заняла 3 секунды определите размер файла в байтах...
qmess10
04.04.2022 17:27
Задан массив m(n).определить произведение нечётных элементов(basic)...
bavara89
14.03.2022 08:27
Чему равна сумма чисел x и y, если x= , y=...
akreb0102
11.01.2023 06:32
Напишите необходимые тени и текст чтобы получить html код веб-страницы...
СинийГраф
14.03.2022 08:27
Тести з інформатики тема діі над вікнами запитання в відповіді...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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