Вариант №1 на 5 . набрать программу. скомпилировать. сохранить. program grafik; uses graphabc; var x0, y0, x1, y1, k: integer; x, y: real; begin setwindowsize(640,400); x0: =320; y0: =200; k: =20; line(20,y0, 620,y0); line(x0,20, x0,380); setpencolor(clred); x: =-15; while x< =15 do begin y: =0.4*x+2*sin(3*x); x1: =trunc(x0+x*k); y1: =trunc(y0-y*k); circle(x1,y1,2); x: =x+0.02 end; end. на 6 . увеличьте шаг в 10 раз. скомпилируйте. сохраните. на 7 . измените промежуток на котором строится график функции на [-5, 10]. скомпилируйте. сохраните. на 8 . измените функцию на: 1) tg(x) ; 2) sin(x)+2*x. скомпилируйте. сохраните. на 9 . выведите на экран график функции только в i и iv четвертях (воспользоваться функциями из на 8 ). скомпилируйте. сохраните. на 10 . измените цвет фона, цвет графика функции, цвет координатных осей. скомпилируйте. сохраните.
117
269
Ответы на вопрос:
Увеличьте шаг в 10 раздо x : = x + 0.02после x : = x + 0.02*10измените промежуток на котором строится график функции на [-5, 10] доx : = -15; while x < = 15 doпослеx : = -5; while x < = 10 do измените функцию на: 1) tg(x) ; 2) sin(x)+2*x.до y : = 0.4 * x + 2 * sin(3 * x); после 2) y : = sin(x)+2*x; после 1) y : = tan(x); выведите на экран график функции только в i и iv четвертяхдо circle(x1, y1, 2); после if x*y> =0 then circle(x1, y1, 2); измените цвет фона, цвет графика функции, цвет координатных осей//pascalabc.net версия 3.2, сборка 1389//если программа не запускается, то обновите версиюprogram grafik; uses graphabc; var x0, y0, x1, y1, k: integer; x, y: real; begin setwindowsize(640, 400); window.clear(clgold); x0 : = 320; y0 : = 200; k : = 20; setpencolor(clred); line(20, y0, 620, y0); line(x0, 20, x0, 380); setpencolor(clgreen); setbrushcolor(cllime); x : = -5; while x < = 10 do begin // y : = 0.4 * x + 2 * sin(3 * x); // y : = sin(x)+2*x; y : = tan(x); x1 : = trunc(x0 + x * k); y1 : = trunc(y0 - y * k); if x * y > = 0 then circle(x1, y1, 2); x : = x + 0.02 end; end.
Язык программирования в не указан. я выведу на паскале program p1; const n=100; var k,i: integer; begin readln(k); writeln; for i: =1 to n do write(k,' '); end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
Шишка3333333333333317.11.2021 16:37
-
NeZnayVsego28.07.2022 12:58
-
onealoner1324.06.2021 06:05
-
Dwtop111.03.2022 21:41
-
pukan0342413.03.2023 18:18
-
mixpix20.12.2022 08:01
-
DiliaSmail09.08.2020 01:05
-
POMOGI111PJ18.07.2020 23:02
-
butterflygirl110.08.2020 17:37
-
samolutchenckova28.06.2021 09:36
![Caktus Image](/tpl/img/cactus.png)
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.