Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Kiska89
17.04.2020 16:06 •
Информатика
Y=tgx при х изменяется от 0 до 10 написать программу так чтобы она решала с использованием оператора цикла
Показать ответ
Ответ:
kalmanbaevarrr
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 оценок)
Ответ:
артем777тема
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 оценок)
Популярные вопросы: Информатика
zhazi9494e
22.09.2020 04:02
Запиши верный ответ, если дан алгоритм: a1: =4/(13x) a2: =a1/x a3: =a2/x a4: =a3/x y: =a1+a4...
tata15711
28.05.2023 09:13
Туземец знает два различных жеста. сколько он может показать различных слов из этих жестов, есои можно использовать в слове 9 жестов.решение...
BooWim
28.05.2023 09:13
Написать формулу для нахождения процентов по вкладу, если ставка составляет х% в месяц, вклад кладут на у мес. величина вклада s...
CorgiDog
03.12.2022 19:40
Записать полное имя файла D.bmp (включая путь к файлу) в иерархической файловой системе, изображенной на рисунке. А:\...
SeamCard
07.01.2020 18:34
1) Часть программы , которую компилятор будет игнорировать-это ? 2)а- целочисленная переменная . Чему равно а после выполнения следующей операции ? а:= 10 mod 2 3)а- целочисленная...
lilianchic14
02.03.2023 01:08
Шестнадцатеричный код заглавной русской буквы Ь ( мягкий знак ) в таблице UNICODE равен 042С. Каков код заглавной буквы Я , если буквы в таблице UNICODE размещены по порядку...
vitalikpchel
01.12.2022 06:31
Отгадайте имя ученого. Об окружении этого ученого известно следующее: О родителях Мать - незаурядная женщина, математик, поэтесса, философ Отец – великий английский поэт...
Valeria12351778
18.06.2022 18:32
Створіть проект, у якому можна обчислитизначення функції. Это в лазарус информатика ОЧЕНЬ НАДО СЕГОДНЯ НУЖНО СДАТЬ...
Вано137
29.01.2022 10:13
Найти направление, в котором функция u = x√y + y√z возрастает в точке m (2,4,4) быстрее всего....
Matthieu5401
24.10.2021 07:34
Что является основным украшением городецких цветов может оживить изображение сделать его праздничный нарядным...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.