50 ! написать программу на языке pascal для графика y=2x в квадрате

273

452

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

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

morpeh4575

Информатика

4,7(2 оценок)

//pascalabc.net версия 3.3.1590 от 03.12.2017 //если программа не запускается, то обновите версию uses graphabc; const x_min = -15.0; x_max = 15.0; dx = 0.01; function f(x: real): real; begin f : = 2*x; end; begin //настраиваем размер окна под график, влияет на маштаб window.width : = 1000; window.height : = 300; window.isfixedsize : = true; // фиксируем размеры окна coordinate.origin : = window.center; //выставляем начало координат в центр окна coordinate.setmathematic; //выставляем направление осей как в принято var scale : = window.width / (x_max - x_min); // вычисляем маштаб var x : = x_min; var y_max : = f(x_max); // подставляем реальные значения var y_min : = f(x_min); // подставляем реальные значения repeat try var y : = f(x); if y > y_max then y_max : = y; if y < y_min then y_min : = y; finally x : = x + dx; end; until x > x_max; // оси координат, стрелочки сами если надо pen.color : = clsilver; line(round((x_min - 1) * scale), 0, round((x_max + 1) * scale), 0); line(0, round((y_min - 1) * scale), 0, round((y_max + 1) * scale)); circle(0, round(1 * scale), 1); //единичная метка circle(round(1 * scale), 0, 1); //единичная метка x : = x_min; repeat try var y : = f(x); putpixel(round(x * scale), round(y * scale), clblueviolet); finally x : = x + dx; end; until x > x_max; end.

bmwm3gtr75

Информатика

4,5(50 оценок)

Program pr1; var y,x: real; begin writeln('введите значение x'); readln(x); y: =sqr(x); writeln('ответ: ', y); end.

карим050

Информатика

4,6(1 оценок)

ответ: 24

Язык : Python

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

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

Задай свой вопрос

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

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

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

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

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

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

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