Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
olysenko290
14.04.2020 01:18 •
Информатика
Y=tgx при х изменяется от 0 до 10 написать программу так чтобы она решала с использованием оператора цикла
Показать ответ
Ответ:
azavidov00
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 оценок)
Ответ:
агенбенди003
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 оценок)
Популярные вопросы: Информатика
s1cro
24.03.2022 15:35
Задумано число х. если оно больше 10, то прибавь к нему 2, в противном случае – умножь на 2. составьте блок-схему и программу на языке паскаль алгоритма решения данной...
Владислав3212200
24.03.2022 15:35
Какой символ вставляет в текст клавиша enter? ○конец предложения ○конец строки ○конец абзаца ○конец текста за ранее !...
kseny07
13.07.2021 18:42
8875 Трицифрове число Задано ціле число n. Вивести Ok, якщо число трицифрове та No у про-тилежному випадку.123Ok-27No...
PomogitePLZZZzzzz
09.07.2022 21:58
Створи програму побудови піраміди з цеглин. Розмір цеглинки – 20 х 40 мова програмування Python...
hplss
14.03.2020 10:38
Напишите программы: 1. дано число кратное 7 2. дано число. определить заканчивается ли оно на 0. 3. дано 2 числа найти минимальное....
xaxaxxa
01.03.2021 12:03
Футболка стоила x рублей.потом цену на футболку снизили и она стала стоить y рублей.определить на сколько была снижена цена в p процентах напишите программу на языке...
агм2
05.04.2023 22:13
К ?Вопросы1. Как можно осуществить связь с компьютером, расположенным в другомкабинете или в другом здании?2. Как можно охарактеризовать компьютерную сеть?3. Какие устройства...
gerasi1
18.08.2020 17:28
За время дельта t= 2 мс в катушке из n= 200 витков провода магнитный поток убывает от 5 мвб до 3 мвб. определите эдс индукции в катушке ,а также силу тока, если сопротивление...
lisya778
18.08.2020 17:28
{3x-4y=8 {x+4y=4 решить систему уравнений...
katyamineeva02
18.08.2020 17:28
Скласти речення зі словом лимон і добрати прикметники до слова...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.