Форум программистов, компьютерный форум, киберфорум
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, 12:37 0
GraphABC

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

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

Лучший ответ Сообщение было отмечено ZX Spectrum-128 как решение

Решение

зеленый золотой цвет выберите в справке - цветовые константы, я такой не знаю.
А в принципе так.
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
var m,x:real;
    a,b,c,i:integer;
begin
//размеры и положение окна
setwindowsize(500,500);
centerwindow;
setwindowcaption('График y=x+2');
//интервал
a:=-4;
b:=4;
//начало координат
c:=windowwidth div 2;
//масштаб
m:=(c-20)/4;
//оси
setpencolor(clLime);
line(0,c,2*c,c);
textout(2*c-20,c-20,'X');
line(c,0,c,2*c);
textout(c+5,0,'Y');
textout(c+5,c+10,'0');
//засечки и подписи по осям
for i:=1 to 8 do
 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));
  line(c-5,c-round(i*m/2),c+5,c-round(i*m/2));
  line(c-5,c+round(i*m/2),c+5,c+round(i*m/2));
  textout(c-25,c-round(i*m/2)-5,floattostr(i/2));
  textout(c-25,c+round(i*m/2)-5,floattostr(-i/2));
 end;
 //график - прямая линия
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;
end.


Вернуться к обсуждению:
График функции PascalABC.NET
1
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.11.2017, 12: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, 12:37
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
25.11.2017, 12: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