Регистрация Спросить otvet5GPT
Anutazaitseva2002
08.11.2021 20:40
Информатика
Есть ответ 👍

На отрезке [2; 4] с шагом 0,2 протабулировать функцию: 0,1х2 – xcosx/ построить график для заданной функции.

222
308
Посмотреть ответы 3

Ответы на вопрос:

All2006
All2006
4,8(3 оценок)

паскаль авс:

 

program tabulator; uses graphabc, crt; var  min,max,shag,x,y: real; x0,y0,k,i,x1,y1: integer; begin  setwindowsize(640,640);   x0: =300;   y0: =300;   k: =50;   min: =2;   max: =4;   shag: =0.2;   x: =min;     line(x0,20,x0,600);     line(20,y0,620,y0);     line(x0,20,x0-10,30);   line(x0,20,x0+10,30);     line(630,y0,620,y0-10);   line(630,y0,620,y0+10);     for i: =-5 to 5 do            begin            line(x0+(i*k),y0-10,x0+(i*k),y0+10);             textout(x0+(i*k),y0+10,inttostr(i));             end;     for i: =-5 to 5 do            begin            line(x0-10,y0+(i*k),x0+10,y0+(i*k));             if i< > 0 then textout(x0+10,y0+(i*k),inttostr(-i));             end;   while x< =max do      begin        y: =0.1*x*x-x*cos(x);         writeln(x: 5: 2,' ',y: 5: 2);         x1: =trunc(x0+x*k);         y1: =trunc(y0-y*k);         setpencolor(clred);         circle(x1,y1,2);         x: =x+shag;       end; end.

Ros15011
Ros15011
4,6(59 оценок)

program tabulator; uses graphabc, crt; var  min,max,shag,x,y: real; x0,y0,k,i,x1,y1: integer; begin  setwindowsize(640,640);   x0: =300;   y0: =300;   k: =50;   min: =2;   max: =4;   shag: =0.2;   x: =min;     line(x0,20,x0,600);     line(20,y0,620,y0);     line(x0,20,x0-10,30);   line(x0,20,x0+10,30);     line(630,y0,620,y0-10);   line(630,y0,620,y0+10);     for i: =-5 to 5 do            begin            line(x0+(i*k),y0-10,x0+(i*k),y0+10);             textout(x0+(i*k),y0+10,inttostr(i));             end;     for i: =-5 to 5 do            begin            line(x0-10,y0+(i*k),x0+10,y0+(i*k));             if i< > 0 then textout(x0+10,y0+(i*k),inttostr(-i));             end;   while x< =max do      begin        y: =0.1*x*x-x*cos(x);         writeln(x: 5: 2,' ',y: 5: 2);         x1: =trunc(x0+x*k);         y1: =trunc(y0-y*k);         setpencolor(clred);         circle(x1,y1,2);         x: =x+shag;       end; end.

likarabigba
likarabigba
4,8(33 оценок)

попробуй в инете поискать

Объяснение:

                     

Реши свою проблему, спроси otvet5GPT

  • Быстро
    Мгновенный ответ на твой вопрос
  • Точно
    Бот обладает знаниями во всех сферах
  • Бесплатно
    Задай вопрос и получи ответ бесплатно

Популярно: Информатика

Caktus Image

Есть вопросы?

  • Как otvet5GPT работает?

    otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.

  • Сколько это стоит?

    Проект находиться на стадии тестирования и все услуги бесплатны.

  • Могу ли я использовать otvet5GPT в школе?

    Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!

  • В чем отличия от ChatGPT?

    otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.

Подпишись на наш телеграмм канал

GTP TOP NEWS