Создайте программу, выводящую на экран график функции f(x)=1/x на паскале

289

411

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

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

Traken

Информатика

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

Pascalabc.net 3.3.5, сборка 1650 от 01.04.2018 внимание! если программа не работает, обновите версию! если надо быстро, можно так: uses graphabc; begin draw(x-> 1/x) end.

Engineeeer

Информатика

4,4(95 оценок)

//pascalabc.net uses graphabc; const w = 600; h = 600; function f(x: real): real; begin f : = 1 / 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 : = 10; yleft : = 10; xright : = w - 10; yright : = h - 10; a : = -5; b : = 5; dx : = 1; fmin : = -5; fmax : = 5; dy : = 1; mx : = (xright - xleft) / (b - a); my : = (yright - yleft) / (fmax - fmin); x0 : = trunc(abs(a) * mx) + xleft; y0 : = h div 2; 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(8); 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: 0, 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: 0, 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 x : = x0 + round(x1 * mx); y1 : = f(x1); if y < h then y : = y0 - round(y1 * my); if (y > = yleft) and (y < = yright) then setpixel(w - x, h - y, clgreen); if (y > = yleft) and (y < = yright) then setpixel(x, y, clgreen); x1 : = x1 + 0.001; end; end.

Рита460

Информатика

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

# код на ruby 2.2.3p173 for i in 1..10 puts i**2 end # 2 10.step(1, -1) {|i| puts i**2 } # 3 s = 0 0.step(-10, -1) {|i| s += i } p s # 4 a = gets() b = gets() for i in a..b puts "#{i**2} #{i**3}" end

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

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

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

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

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

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

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

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

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

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