Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
lenabejenar
10.06.2021 06:11 •
Информатика
Составить на алгоритмическом языке pascal программу вычисления значений функции: пределы изменения х: [-4; -1] шаг в цикле: 0,31 используемый оператор в цикле: repeat
Ответ:
botpolikop20181
06.10.2020 13:46
Код Pascal;
Var
x,y,v,h,dx:real;
Begin
Write('y = ');ReadLn(y);
Write('v = ');ReadLn(v);
Write('h = ');ReadLn(h);
dx:=0.31;
x:=-4;
Repeat
WriteLn('f(',x,') = ',Exp(Sin(y)*Abs(x))-3*Sqrt(v-h));
x:=x+dx;
Until x > -1
End.
Пример работы программы:
y = 3
v = 4
h = 2
f(-4) = -2.4841075227142
f(-3.69) = -2.55937994576573
f(-3.38) = -2.63143040076643
f(-3.07) = -2.70039680114727
f(-2.76) = -2.76641115707942
f(-2.45) = -2.82959982815798
f(-2.14) = -2.89008376526975
f(-1.83) = -2.94797874210812
f(-1.52) = -3.00339557677815
f(-1.21) = -3.05644034391605
0,0
(0 оценок)
Популярные вопросы: Информатика
artembryzgin
09.05.2023 02:29
Дорогие друзья решить ! объем сообщения,содержащего 2048 символов,составил 1\512 часть мбайта. каков размер алфавита, с которого записано сообщение?...
уа43к4к34
09.08.2021 20:18
Определите информационный размер текстового документа, если он записан с 512- символьного алфавита, содержит 80 символов в строке , 21 строк и 3 страницы....
irkaShpagina
25.03.2021 01:51
составить слова используя А=000,М=100,О=010,Л=001,К=110,И=112,Р=113,Б=111. Я пока составил Мама=100000100000 Молоко=100010001010110010 Кира=110112113000...
Rm0
04.03.2021 23:19
исправить ошибку, пишет неизвестное имя с Вот задание - запросить с клавиатуры 4 числа, вычислить и вывести их средне арифметическое и среднее геометрическое этих чисел....
mishtal2017
23.03.2021 21:49
Что делать если компьютер показует ето. как исправить проблему?...
Mozg1237384
21.05.2021 12:40
Народ, .уже какой час голову ломаю..«в вершинах графа записаны числа.каждая стрелка означает: в числе одна семёрка заменяется на единицу и получается другое число.впиши...
anna2016anna20
21.05.2021 12:40
1. напишите программу, которая вводит трехзначное число и разбивает его на цифры. например, при вводе числа 123 программа должна вывести 1, 2, 3. 2. напишите программу,...
lizabelova00
17.09.2021 05:08
Вывести квадраты и кубы 10 чисел следующей последовательности: 1, 2, 4, 7, 11, 16, … . цикл for....
vika2087
03.05.2023 06:01
Дорогие пользователи сайта : ) нужна с переводом текста на (переводчик тут не проканывает,увы,нужны хотя бы базовые знания грамматики)вот собственно и текст: я думаю,что...
Nita132
03.05.2023 06:01
На озере плавают 15 гусей и уток .уток на 7 меньше чем гусей . сколько уток на озере?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Var
x,y,v,h,dx:real;
Begin
Write('y = ');ReadLn(y);
Write('v = ');ReadLn(v);
Write('h = ');ReadLn(h);
dx:=0.31;
x:=-4;
Repeat
WriteLn('f(',x,') = ',Exp(Sin(y)*Abs(x))-3*Sqrt(v-h));
x:=x+dx;
Until x > -1
End.
Пример работы программы:
y = 3
v = 4
h = 2
f(-4) = -2.4841075227142
f(-3.69) = -2.55937994576573
f(-3.38) = -2.63143040076643
f(-3.07) = -2.70039680114727
f(-2.76) = -2.76641115707942
f(-2.45) = -2.82959982815798
f(-2.14) = -2.89008376526975
f(-1.83) = -2.94797874210812
f(-1.52) = -3.00339557677815
f(-1.21) = -3.05644034391605