tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Вычислите значения функции
Вычислите значения функции w=y^2+1/y^2-1 на отрезке [0; 0,5] с шагом 0,1 (составить блок-схему алгоритма и программу для программирования pascal.abc
serbakovasvetas
3 26.08.2019 00:30
5
Ответы
plisetskayakatoy4che
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
valeriaurash20
20.10.2020 05:31
Рассматривается множество целых чисел, принадлежащих отрезку [1012; 9638], которые делятся на 3 и не делятся на 11, 13, 17 и 19. Найдите количество таких чисел и максимальное...
svetashandina
20.10.2020 05:31
Компьютер сөзіне синквейн әбісімен 5 жолды өлен. ...
milalutaya
20.10.2020 05:32
2 ... 6. Представлен один из проектов умного дома, управляемого посред-ством беспроводной сети (рис. 3). Что обозначают условные знакина рисунке? Определи по данному...
zD3VOLYx
18.05.2019 20:40
1. не (не а и в или (не с)) 2. не а или (не (а и в и (не...
Ququki
18.05.2019 20:40
Скажите отличается копирование файлов от инсталляции программ? для чего каждый дистрибутив имеет серийный номер?...
InfoChan
25.06.2019 23:50
Напишите программу, которая в последовательности целых чисел вычисляет сумму всех чисел, кратных 5 или 9. программа получает на вход целые числа, количество введенных...
adikaeva1973
24.04.2020 14:14
решить информатику буду благодарен......
Turalinin
24.04.2020 14:14
Неліктен презентацияға түрлі нысандар қоямыз?...
ruslan5632
24.04.2020 14:15
По заданной программе постройте блок-схему.var x , y , z : real;beginwriteln ( Введите три числа );readln (x , y , z);if (x =y) and (y =z)thenbeginx:=2*x;y:=2*y;z:=2*zendelsebeginx:=abs(x);y:=abs(y);z:=abs(z);endwriteln...
Graffiti1337
24.04.2020 14:15
Что послужило толчком для создания первой Э В М...
Популярные вопросы
Ширина прямоугольника 4 1/5 см что составляет 1/2 его длины. Найдите...
3
Причини збереження роздробленості німеччини історичні факти...
2
Кампазичия по главам левшв...
3
самое сложное. нужно вычеслить кол во вещества, кол во молекул и...
2
Английский Русский и Францусский абсолбтизм 6 класс Ребят ОТПРАВЬТЕ...
3
Раствор приготовлен смешением 400 мл воды и 100 мл 96%-й Н2SO4 (ρ...
2
Опираясь на видеоконсультацию к уроку или иные источники информации,...
2
Что вы можете рассказать о бабуре и почему он ушёл из Феграны в Индию...
1
Это обыкновенные дроби их нужно умножать ноя не умею помагите...
3
составьте и запишите два - четыре предложения с образованными деепричастиями....
1
Y:real;
Begin
Y:=0;
Repeat
WriteLn('W(',Y,') = ',(Y*Y+1)/(Y*Y-1));
Y:=Y+0.1;
Until Y>0.5
End.