Форум программистов, компьютерный форум, киберфорум
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
Почетный модератор
64300 / 47595 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
25.11.2017, 14:37 0
GraphABC

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

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

Ответ

Цитата Сообщение от baaaeeyh Посмотреть сообщение
Но как это можно так вычислить расположение координат штрихов в системе координат.
Да от начала координат используя масштаб.
Pascal
1
2
3
4
5
6
7
8
9
10
//масштаб
m:=(c-20)/4;//половину ширины экрана делим на 4(или всю ширину делить на 8=b-a)
..................
/засечки и подписи по осям
for i:=1 to 8 do//с запасом, поскольку график на 1 приподнят
 begin
  line(c+round(i*m/2),c-3,c+round(i*m/2),c+3);
  line(c-round(i*m/2),c-3,c-round(i*m/2),c+3);
  textout(c+round(i*m/2)-5,c+10,floattostr(i/2));
  textout(c-round(i*m/2)-5,c+10,floattostr(-i/2))
Добавлено через 2 минуты
Цитата Сообщение от baaaeeyh Посмотреть сообщение
Выводит черными точками график функции
График рисуем не линией как здесь
Pascal
1
2
3
4
5
6
7
8
setpencolor(clBlue);
x:=a;
moveto(c+round(x*m),c-round(f(x)*m));
while x<=b do
 begin
  lineto(c+round(x*m),c-round(f(x)*m));
  x:=x+0.1;
 end;
а так
Pascal
1
2
3
4
5
6
7
setbrushcolor(clBlack);
x:=a;
while x<=b do
 begin
  circle(c+round(x*m),c-round(f(x)*m),2);
  x:=x+0.1;
 end;


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

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

Для функции 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, 14:37
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
25.11.2017, 14:37
Помогаю со студенческими работами здесь

График функции
Написать программу построения графика функции 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