Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
ник2701
06.08.2022 23:36 •
Информатика
Составьте программы для вычисления следующих формул: а) z=3+x^2-3x^3; б) d=x(sin x+cos x^2+ixi);
Показать ответ
Ответ:
Олегнорм
03.10.2020 12:58
Программа:
var x,z,d:real;
begin
write('x = '); readln(x);
z:=3+x*x-3*x*x*x;
writeln('z = ',z);
d:=x*(sin(x)+cos(x*x)+abs(x));
writeln('d = ',d);
end.
Пример:
x = 3
z = -69
d = 6.68996923852557
0,0
(0 оценок)
Ответ:
sofiakuznetsova2004
03.10.2020 12:58
//Задание a
var x,z:real;
begin
write('Введите Х ');
readln(x);
z:=3+sqr(x)-3*sqr(x)*x;
writeln('z = ',z);
end.
Тестовое решение:
Введите Х 12
z = -5037
// Задание б
var x,d:real;
begin
write('Введите Х ');
readln(x);
d:=x*(sin(x)+cos(x*x)+abs(x));
writeln('d = ',d:0:3);
end.
Тестовое решение:
Введите Х 28
d = 796.395
0,0
(0 оценок)
Популярные вопросы: Информатика
dndzanton
11.08.2021 07:12
Дан целочисленный линейный массив из 10 элементов. найдите наименьшее число k элементов, которое нужно исключить из последовательности a[1], a[2],…,a[10], чтобы осталась...
mynee
10.05.2021 13:45
4. в некотором каталоге хранится файл .txt. в этом каталоге создали подкаталог с именем 10_class и переместили в него файл .txt. после чего полное имя файла стало...
Trololo2289878
10.05.2021 13:45
№1: сколькими четыре (пять) человек стать в ряд? (обосновать письменно) №2: файл размером 9 кбайт передается через некоторое соединение со скоростью 1536 бит в секунду....
Ruta12340
10.05.2021 13:45
2: написать программу выставление оценок по 100 шкале. меньше 27 2 , больше 27 и меньше 64 3 , больше 65 и меньше 74 4 , выше 75 5 . заранее...
NikitosBarbos06
12.06.2022 17:41
Доступ к файлу hello.jpg, находящемуся на сервере home.info, осуществляется по протоколу ftp. фрагменты адреса файла закодированы буквами от а до ж. запишите последовательность...
Anastasiay80
04.12.2020 23:44
Последовательно вводятся n чисел. увеличить значение каждого числа на 8. нужно написать прогу полностью, а не отрывок....
Мел228
25.08.2021 13:02
There are lotsof books in the bookcase but your phone isnt here...
Penb
08.02.2020 00:32
Прочитай слова и по орфограммам в корне раздели их на три группы. запиши каждую группу слов на свою строку, решай письма в.шневый, чес.ный, хру.кий 1чем похожи все...
kiramillerthe1
08.02.2020 00:32
Шмель и оса полетели с поля в одном направлении.зная,что шмель летел со скоростью 50м/мин,а оса-150м/мин 1)когда вылетела оса,расстояние между шмелём и осой было 200...
gv8ux
08.02.2020 00:32
ответьте на 4 вопроса сенің мектебіңде қандай спорт жарыстары өтеді? 2.сенің сыныбың қандай спорт жарысына қатысады? 3.сен қандай спорт жарысына қатыстың? 4.футболға...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var x,z,d:real;
begin
write('x = '); readln(x);
z:=3+x*x-3*x*x*x;
writeln('z = ',z);
d:=x*(sin(x)+cos(x*x)+abs(x));
writeln('d = ',d);
end.
Пример:
x = 3
z = -69
d = 6.68996923852557
var x,z:real;
begin
write('Введите Х ');
readln(x);
z:=3+sqr(x)-3*sqr(x)*x;
writeln('z = ',z);
end.
Тестовое решение:
Введите Х 12
z = -5037
// Задание б
var x,d:real;
begin
write('Введите Х ');
readln(x);
d:=x*(sin(x)+cos(x*x)+abs(x));
writeln('d = ',d:0:3);
end.
Тестовое решение:
Введите Х 28
d = 796.395