7 сентября, 01:39

ПаскальАВС

Разработать программу построения графика функции на участке

+3
Ответы (1)
  1. 7 сентября, 02:59
    0
    Uses

    graphABC;

    const

    W = 800; H = 500;

    function F (x: real) : real;

    begin

    F : = x * x - x;

    end;

    var

    x0, y0, x, y, xLeft, yLeft, xRight, yRight, n: integer;

    a, b, fmin, fmax, x1, y1, mx, my, dx, dy, num: real;

    i: byte;

    s: string;

    begin

    SetWindowSize (W, H) ;

    xLeft : = 50;

    yLeft : = 50;

    xRight : = W - 50;

    yRight : = H - 50;

    a : = - 2; b : = 5; dx : = 0.5;

    fmin : = - 2; fmax : = 5; dy : = 0.5;

    mx : = (xRight - xLeft) / (b - a) ;

    my : = (yRight - yLeft) / (fmax - fmin) ;

    x0 : = trunc (abs (a) * mx) + xLeft;

    y0 : = yRight - trunc (abs (fmin) * my) ;

    line (xLeft, y0, xRight + 10, y0) ;

    line (x0, yLeft - 10, x0, yRight) ;

    SetFontSize (12) ;

    SetFontColor (clBlue) ;

    TextOut (xRight + 20, y0 - 15, 'X') ;

    TextOut (x0 - 10, yLeft - 30, 'Y') ;

    SetFontSize (7) ;

    SetFontColor (clRed) ;

    n : = round ((b - a) / dx) + 1;

    for i : = 1 to n do

    begin

    num : = a + (i - 1) * dx;

    x : = xLeft + trunc (mx * (num - a)) ;

    Line (x, y0 - 3, x, y0 + 3) ;

    str (Num:0:1, s) ;

    if abs (num) > 1E-15 then

    TextOut (x - TextWidth (s) div 2, y0 + 10, s)

    end;

    n : = round ((fmax - fmin) / dy) + 1;

    for i : = 1 to n do

    begin

    num : = fMin + (i - 1) * dy;

    y : = yRight - trunc (my * (num - fmin)) ;

    Line (x0 - 3, y, x0 + 3, y) ;

    str (num:0:1, s) ;

    if abs (num) > 1E-15 then

    TextOut (x0 + 7, y - TextHeight (s) div 2, s)

    end;

    TextOut (x0 - 10, y0 + 10, '0') ;

    x1 : = a;

    while x1 < = b do

    begin

    y1 : = F (x1) ;

    if ((x1 > = 1) and (x1 < = 2.5)) then

    begin

    x : = x0 + round (x1 * mx) ;

    y : = y0 - round (y1 * my) ;

    if (y > = yLeft) and (y < = yRight) then SetPixel (x, y, clBlue) ;

    end;

    x1 : = x1 + 0.001

    end

    end.
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «ПаскальАВС Разработать программу построения графика функции на участке ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы
Новые вопросы по информатике
Объём видеопамяти составляет 100 Кбайт. Графический режим работает в режиме 640 х200 пикселей. Какое максимальное кол-во цветов может содержать палитра?
Ответы (1)
Переведите число 202 из восьмеричной системы счисления в десятичную
Ответы (1)
Переведите величины из одних единиц измерения информации в другие: 1 4 Гбайта=? Кбайт 2 217 Мбайт=? Гбайт 3 13 Мбит=? бит 4 27 Гбит=? бит 5 228 бит=? Мбайт 6 227 Гбит=? Мбайт 7 231 Кбайт=? Мбит
Ответы (1)
Вводятся 3 числа, вывести на экран нечетные числа pascal
Ответы (1)
1. Посчитай, сколько бит информации содержит 19 байт 2. Посчитай, сколько байт информации содержат 2 кб 3. Посчитай, сколько байт информации содержит 144 бит
Ответы (2)
Мощность первого в алфавита составляет 2048 символов информационный вес символа на второго алфавита она 2 бита меньше чем информационный вес символа из первого алфавита определите мощность второго алфавита
Ответы (1)
Известно правило кодирования - после каждой гласной буквы ставится буква "и", после каждой согласной - "ц". Зашифруй слова: практикум, принтер, секрет, честь.
Ответы (1)
Представить целое десятичное число 171 во внутримашинном представлении размером два байта.
Ответы (1)
Для записи текста использовался 64-символьный алфавит. Какое колисество информации в байтах содержит 3 страницы текста, если на каждой странице расположено 40 строк по 60 символов в строке?
Ответы (1)
Дано трехзначное число X. Проверить, будет ли произведение его цифр четным числом
Ответы (1)