Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
danilox2007
14.02.2021 06:25 •
Другие предметы
Составить программу вычисления и печати значений функции Y=sin(x-1)/2x. Значения аргументов задать в массиве X, состоящего
Показать ответ
Ответ:
крмоири
16.04.2019 23:00
USES Crt;
VAR
X,Y:ARRAY[0..6] OF REAL;
I: BYTE;
BEGIN
ClrScr;
FOR I:=1 TO 6 DO Begin
Write('Введите ',I,' значение аргумента '); ReadLn(X[I]);
End;
FOR I:=1 TO 6 DO Begin
Y[I]:=SIN(X[I]-1)/(2*X[I]);
WriteLn(' X= ',X[I]:4:1,' Y=',Y[I]:5:2);
End;
END.
0,0
(0 оценок)
Популярные вопросы: Другие предметы
2703200096358246
20.03.2022 19:40
написать сочинение по чеченскому на тему даймехкан 1алам...
knmnatalip011cc
20.03.2022 19:40
Напишите три кумира поколений: бэби бумеров, X, Y, Z...
валера4711009
01.09.2021 10:07
Графике приведена зависимость координаты человека от времени определите среднюю путевую скорость человека за 6 секунд движения...
wwwwwww6
25.01.2020 00:15
Соскок, выполняемый прогнутым телом над снарядом, боком или спиной к нему ребят...
meli12341
22.07.2020 23:28
По Родному русскому языку задали,хотелось бы узнать как правильно и написать Сообщение о 3 именах...
Ponny1
24.08.2022 06:43
ХЭЛП тупое черчение, сделайте и сфоткайте...
tatarchenko04
25.01.2022 04:22
Как шарить за майота?...
Mashoo4rik
07.02.2020 22:05
Тапқырлық мәтініне сүйеніп кестені толтырыңдар...
Ismashoma
22.09.2020 08:06
ИСТОРИЯ Процессы происходившие в 90-е годы, исключительно негативно сказались на культуре России. 2 подтверждающих аргумента и 2 опровергающих аргумента...
longer123
17.07.2022 11:22
Найдите периметр фигур на рис 11...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
VAR
X,Y:ARRAY[0..6] OF REAL;
I: BYTE;
BEGIN
ClrScr;
FOR I:=1 TO 6 DO Begin
Write('Введите ',I,' значение аргумента '); ReadLn(X[I]);
End;
FOR I:=1 TO 6 DO Begin
Y[I]:=SIN(X[I]-1)/(2*X[I]);
WriteLn(' X= ',X[I]:4:1,' Y=',Y[I]:5:2);
End;
END.