Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
Другие темы раздела
PascalABC.NET Вычисление выражений с использованием функций https://www.cyberforum.ru/ pascalabc-net/ thread2142659.html
При заданных значениях N с помощью собственных функций вычислить выражения. Y = (2) + (4) * (6) Цифры в скобках обозначают номер функции в последующей таблице. Используемые функции:(на картинке) при вычислении произведений (функции 1, 2, 3, 4, 5, 6, 11, 14, 15), начальные значения произведений равны единице.
PascalABC.NET Выводит черными точками график функции y=f(x)=kx+10k, k=7
как такую программу б написать?
PascalABC.NET Игра Змейка https://www.cyberforum.ru/ pascalabc-net/ thread2142597.html
Нужно убрать в коде английский язык.И если можно уменьшить код(примерно до 900 строк). Заранее спасибо.
PascalABC.NET Цикл While https://www.cyberforum.ru/ pascalabc-net/ thread2142543.html
Z=AX3 +B , если А=4; B=3, X изменяется от 2 до 12 с шагом 2
PascalABC.NET Вычислить значения функций (цикл repeat)
Z=AX3 +B , если А=4; B=3, X изменяется от 2 до 12 с шагом 2
PascalABC.NET Вычислить значения функций (цикл for) Z=AX3 +B , если А=4; B=3, X изменяется от 2 до 12 с шагом 2 https://www.cyberforum.ru/ pascalabc-net/ thread2142478.html
PascalABC.NET Подсчитать количество символов в самой длиной группе https://www.cyberforum.ru/ pascalabc-net/ thread2142467.html
Дана строка, состоящая из групп нулей и единиц. Подсчитать количество символов в самой длиной группе.
PascalABC.NET СРОЧНО
Ввести рядок символів. Впорядкувати слова у рядку за алфавітом. Кількість пробілів довільна
PascalABC.NET Ошибка времени выполнения. Построить график функции y(x) и таблицу значений y(x) с шагом измерения аргумента h Помогите доделать программу, всю голову сломал, не пойму, почему не выполняется. Пишет ошибку Var 5.pas(76) : Ошибка времени выполнения: Значение было недопустимо малым или недопустимо большим для Int32. Строчка lineto(x0+round(x1*mx),y0-round(y1*my)); Построить график функции y(x) и таблицу значений y(x) с шагом измерения аргумента h. Таблицу значений функции и аргумента необходимо... https://www.cyberforum.ru/ pascalabc-net/ thread2142394.html PascalABC.NET Определить количество слов в тексте, у которых первый и последний символы совпадают https://www.cyberforum.ru/ pascalabc-net/ thread2142295.html
Определить количество слов в тексте, у которых первый и последний символы совпадают.
PascalABC.NET Дана строка символов. Найти номер позиции последней запятой в строке
Дана строка символов. Найти номер позиции последней запятой в строке.
PascalABC.NET Создать однонаправленный список. ABC Pascal Создать однонаправленный список, элементы списка - целые числа,отсортировать элементы по возрастанию. вывести оба списка https://www.cyberforum.ru/ pascalabc-net/ thread2142252.html
Эксперт Pascal/Delphi
6810 / 4567 / 4819
Регистрация: 05.06.2014
Сообщений: 22,438
25.11.2017, 12:31 0
GraphABC

График функции - PascalABC.NET - Ответ 11880760

25.11.2017, 12:31. Показов 1229. Ответов 4
Метки (Все метки)

Ответ

Взято отсюда:
Построить график функции нарисовать и разместить оси координат

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
uses graphABC;
function F(x: real): real;
begin
  F := x + 2;
end;
 
var
  xn, xk, x, mx, my, dx: real;
  x0, y0, i, nx, nmn, nmx: integer;
 
begin
  //интервал
  xn := -5;
  xk := 5;
  //графическое окно
  setwindowsize(600, 600);
  centerwindow;
  setpencolor(clGold);
  //начало координат
  x0 := windowwidth div 2;
  y0 := round(windowheight * F(xk) / (F(xk) - F(xn)));
  //масштабы
  mx := (x0 - 30) / xk;{масштаб по Х}
  my := (y0 - 20) / F(xk);{по У}
  //координатная сетка
  for i := 1 to trunc(F(xk)) + 1 do
  begin
    line(x0 + round(i * mx), y0 - 3, x0 + round(i * mx), y0 + 3);
    line(x0 - round(i * mx), y0 - 3, x0 - round(i * mx), y0 + 3);
    line(x0 - 3, y0 - round(i * my), x0 + 3, y0 - round(i * my));
    line(x0 - 3, y0 + round(i * my), x0 + 3, y0 + round(i * my));
    textout(x0 + round(i * mx), y0 + 10, inttostr(i));
    textout(x0 - round(i * mx), y0 + 10, inttostr(-i));
    if i mod 2 = 0 then
    begin
      textout(x0 - 20, y0 - round(i * my), inttostr(i));
      textout(x0 - 25, y0 + round(i * my), inttostr(-i));
    end;
  end;
  line(0, y0, windowwidth, y0);{оси}
  line(windowwidth, y0, windowwidth - 10, y0 + 5);
  line(windowwidth, y0, windowwidth - 10, y0 - 5);
  line(x0, 0, X0, windowheight);
  line(x0, 0, x0 - 5, 10);
  line(x0, 0, x0 + 5, 10);
  textout(x0 + 5, y0 + 10, '0');
  textout(windowwidth - 10, y0 - 20, 'X');
  textout(x0 + 10, 0, 'Y');
  //график
  x := xn;
  setpencolor(clBlue);
  setpenwidth(2);
  dx := 0.1;
  while x <= xk do
  begin
    if x = xn then moveto(x0 + round(x * mx), y0 - round(F(x) * my))
    else lineto(x0 + round(x * mx), y0 - round(F(x) * my));
    x := x + dx;
  end;
  setfontsize(10);
  setfontcolor(clBlue);
  textout(20, 0, 'График функции y=x+2');
end.
Добавлено через 17 секунд
Цитата Сообщение от baaaeeyh Посмотреть сообщение
зеленым золотым цветом
Выбрал золотой

Вернуться к обсуждению:
График функции PascalABC.NET
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.11.2017, 12:31
Готовые ответы и решения:

Составить график функции. Дана функция нужно построить график по полученным точкам
Помогите составить график функции. Дана функция нужно построить график по полученным точкам...

Для функции y=f(x) получить таблицу значений и график этой функции на отрезке
Для функции y=f(x) получить таблицу значений и график этой функции на отрезке. Количество точек на...

Написать блок-схему и программу вычисления функции на заданном промежутке с шагом 0.2 и построить график этой функции
Написать блок-схему и программу вычисления функции на заданном промежутке с шагом 0.2 и построить...

График функции и ошибка "Неверное число параметров функции"
Program aaa; Uses GraphABC; Var x,y:integer; Begin For x:=0 to 360 do Begin Y:=Round(...

4
25.11.2017, 12:31
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
25.11.2017, 12:31
Помогаю со студенческими работами здесь

График функции
Написать программу построения графика функции y=1/x для x\epsilon

График функции
PascalABC Цель работы - изобразить функцию Крест &quot;Cruciform&quot; P=2a/sin(2φ). Для этого выбрать...

График функции
Что исправить нужно graphABC; //Подключаем графический модуль const W = 1200; H =...

Нарисовать график функции
Необходимо написать программу, чтобы рисовала косинус в паскале (также необходимы координатные оси,...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru