Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Nikalusha
05.08.2021 04:40 •
Информатика
Y=tgx при х изменяется от 0 до 10 написать программу так чтобы она решала с использованием оператора цикла
Показать ответ
Ответ:
мем23
07.09.2020 21:16
Const a=0; b=10;
var x,y,h:real; n,i:integer;
begin
h:=1;
n:=round((b-a)/h);
x:=a-h;
for i:=0 to n do
begin
x:=x+h;
y:=sin(x)/cos(x);
writeln(x:4:1,' ',y:6:3);
end;
end.
Результат:
0.0 0.000
1.0 1.557
2.0 -2.185
3.0 -0.143
4.0 1.158
5.0 -3.381
6.0 -0.291
7.0 0.871
8.0 -6.800
9.0 -0.452
10.0 0.648
0,0
(0 оценок)
Ответ:
daha0061
07.09.2020 21:16
Function tg(a:real):real;
begin
tg:=sin(a)/cos(a);
end;
var
y:real; x:integer;
begin
for x:=0 to 10 do begin
y:=tg(x);
writeln('Y=',y);
end;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Koteekanuha
23.05.2021 13:36
Таблица базы данных учителя истории содержит следующие поля: Фамилия, Имя, Отчество, Средний по истории. Какое должно быть условие запроса для вывода учащихся со средним...
Karol45
07.02.2020 21:59
Работа в Паскале. Найти сумму N произвольных чисел, вводимых с клавиатуры, пока не введёте ноль...
Диана135793
21.03.2021 04:09
Багандардын аныктауга болатын ен мумкин ман...
kennis1269
22.06.2022 21:58
Excel программасын іске қосу алгоритмін айтып беріңдер....
gashuna
04.10.2022 05:30
Как виделись объект не затрагивая фон...
omararu2006
20.06.2020 20:04
Цикл for (фор). Урок 3 Отсортируй последовательность кода, если необходимо получить следующий результат: 0 1 2 3 4 5 6 7 8 9...
Нурсая12345
23.03.2022 19:43
И объясните как это делать,я не понимаю...
DIMONSTERUSp
20.12.2022 07:37
Среди приведённых ниже трёх чисел, записанных в различных системах счисления, найдите то, у которого максимальное количество единиц в двоичной записи 10101(2), 22(8),...
Айымгул1
12.01.2023 15:56
Дано послідовність чисел: 3, 5, 7, 9, 11, 13. Розробіть ал- горитм обчислення суми цих чисел , ниче за урок не понял !...
vika3475
12.03.2021 12:54
Вопросы лёгкие, объяснить нужно своими словами Фото прикладываю...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var x,y,h:real; n,i:integer;
begin
h:=1;
n:=round((b-a)/h);
x:=a-h;
for i:=0 to n do
begin
x:=x+h;
y:=sin(x)/cos(x);
writeln(x:4:1,' ',y:6:3);
end;
end.
Результат:
0.0 0.000
1.0 1.557
2.0 -2.185
3.0 -0.143
4.0 1.158
5.0 -3.381
6.0 -0.291
7.0 0.871
8.0 -6.800
9.0 -0.452
10.0 0.648
begin
tg:=sin(a)/cos(a);
end;
var
y:real; x:integer;
begin
for x:=0 to 10 do begin
y:=tg(x);
writeln('Y=',y);
end;
end.