Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
uradovskiy2015
18.10.2021 20:13 •
Информатика
Вычислите значения функции w=y^2+1/y^2-1 на отрезке [0; 0,5] с шагом 0,1 (составить блок-схему алгоритма и программу для программирования pascal.abc
Показать ответ
Ответ:
2002КетринПирс2002
05.10.2020 19:59
Var
Y:real;
Begin
Y:=0;
Repeat
WriteLn('W(',Y,') = ',(Y*Y+1)/(Y*Y-1));
Y:=Y+0.1;
Until Y>0.5
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
Kurakik
21.05.2021 14:39
А) Шкала, на которой отображается информация о слоях и о том, какие кадры являются ключевыми, промежуточными и создаваемыми автоматически – это... гу...
Ilja0413
20.05.2022 22:50
с кодом на С++, буду очень благодарен. Времени в обрез :( вот сама задача: Написати програму, що вводить число з 4 цифр, розділяє число на окремі цифри і друкує їх окремо одну...
Lucky0ne
12.02.2021 03:15
Определите значение переменной «b» после выполнения фрагмента алгоритма....
Robincona
26.05.2020 02:50
Замените формулу, используя один вызов функции СУММ: =A3+A4+A5+B3+B4+B5...
nmpepatop1
23.11.2020 04:49
Выведи на экран большее из двух данных чисел. Запиши программу на языке Паскаль, выведи ответ на экран, если 1,22045 и 2,5016....
AidarSharafutdinov
28.08.2021 06:34
решить задачу по информатике в программе решить задачу по информатике в программе PascalABCNET. >...
astanina042
12.02.2021 03:15
Работа номер 18 выполняемИтоговая работа информатика босова...
margaret1967m
12.02.2021 03:15
Графическая работа информатика ...
konsantin1805
22.03.2022 03:56
Створити програму в thonny з графічним інтерфейсом для знаходження n члена геометричної прогресії вводячи знаменник,перший член та это очень...
FuzziBoy
22.03.2022 03:56
БЫСТРЕЕЕЕЕЕ БЫСТРЕЕЕЕЕЕ >...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Y:real;
Begin
Y:=0;
Repeat
WriteLn('W(',Y,') = ',(Y*Y+1)/(Y*Y-1));
Y:=Y+0.1;
Until Y>0.5
End.