Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
AngelCrazy144
14.12.2020 07:30 •
Информатика
Написать программу расчета функции y=cos(x)*π/x с шагом 0,1 в диапазоне от b до 5, с проверкой диапазона на программу паскаль
Показать ответ
Ответ:
Mazadinec
01.10.2020 20:22
Var x,y,b:real;
begin
b:=6;
while b>=5 do
begin
writeln('Введите параметр b (b<5): ');
readln(b);
end;
x:=b;
writeln('x':2,'y':6);
repeat y:=cos(x)*Pi/x;
writeln(x:3:1,' ',y);
x:=x+0.1;
until x>5;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Qudipue1
08.07.2020 00:52
вас, а то не могу решить...
nikusha10
14.08.2022 03:05
надо написать код (очень желательно на питоне) для задачи: B. Бинго!«Бинго» — старинная игра с множеством разновидностей. В данной задаче вы познакомитесь с одной из...
nastyassddffgbvgg
09.10.2020 15:25
Почему в графическом редакторе paint нет команды группировки ?...
124541Artem11111
05.12.2020 01:19
Этнокультурные взаимосвязи кыргызов кратко ...
RomanBelyy01
12.09.2022 14:20
Все написано на КАРТИНКЕ ...
meli12341
07.11.2022 01:29
Решите 2 задачи : 1. У бочці було 180 л води. Спочатку дівчатка полили помідори, а потім 60 л води витратили на поливання огірків, і тоді на решту овочів зали шилося...
малый7
07.11.2022 01:29
John said to Must i give him till your money change reported speech into direct...
hshsjsnsvsbsns17282
15.10.2021 23:41
На рис. угол BAE =107 градусов, угол FBD =55 градусов. Найдите угол C....
Gold1121
27.12.2021 23:04
Выпишите средства выразительности из стихотворения Пушкина Жил на свете рыцарь бедный,Молчаливый и простой,С виду сумрачный и бледный,Духом смелый и прямой.Он имел одно...
BadKsu
19.07.2022 18:01
решить если можно с объяснением...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
b:=6;
while b>=5 do
begin
writeln('Введите параметр b (b<5): ');
readln(b);
end;
x:=b;
writeln('x':2,'y':6);
repeat y:=cos(x)*Pi/x;
writeln(x:3:1,' ',y);
x:=x+0.1;
until x>5;
end.