Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Настя5555
0 / 0 / 0
Регистрация: 24.06.2015
Сообщений: 8
#1

На поверхности формы нарисовать график функции z(x)=2cos2x-b - Delphi

21.11.2016, 14:30. Просмотров 210. Ответов 2
Метки нет (Все метки)

Напишите программу,которая на поверхности формы вычерчивает график функции z(x)=2cos2x-b
Изображение должно занимать большую часть экрана,сопровождаться заголовком,содержать наименования и градации осей и масштабироваться в зависимости от исходных данных. Значение параметра b для функции должно вводиться пользователем с клавиатуры .График должен быть плавным цвет линии графика должен отличаться от цвета осей.
http://www.cyberforum.ru/delphi-beginners/thread271435.html
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.11.2016, 14:30
Я подобрал для вас темы с готовыми решениями и ответами на вопрос На поверхности формы нарисовать график функции z(x)=2cos2x-b (Delphi):

Нарисовать график функции
Нарисовать график функции по пикселям, подскажите пожалуйста, как это сделать...

Нарисовать график функции
помогите составить программу , которая при нажатии на кнопку рисует этот график...

Нарисовать график функции y=a*e^(k*x)
Доброго времени суток, уважаемые форумчане. Столкнулся с проблемой написания...

нарисовать график функции с Chart
Здравствуйте.Помогите пожалуйста.Мне нужно нарисовать график функции...

Из следующей функции нарисовать график. у=sin x2
Из следующей функции нарисовать график. у=sin x2

2
Nanotentacle
329 / 212 / 93
Регистрация: 20.10.2016
Сообщений: 977
21.11.2016, 16:35 #2
Лучший ответ Сообщение было отмечено Настя5555 как решение

Решение

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
uses ...,Math;
...
procedure DrawCos(canvas:TCanvas; startX,startY,width,height:integer; b,scaleX,scaleY:single);
//делаю допуск, что b - это дробное число
var y,x:integer;
 actX:single;
begin
if (startX < 0)or(scaleX = 0)or(scaleY = 0) then 
 raise Exception.Create('Неправильные начальные данные'); //проведем часть проверок. Не все, конечно, но часть
actX := startX;
//while (actX < min(startX+width,Canvas.width))and(actX > 0) do
for i := startX to min(startX+width,Canvas.width) do
 begin
 y := round((2*cos(360*actX/Pi)-b)*scaleY); //Думаю, x мы задаем в градусах, поэтому переводим их в радианы.
 try
 if (y < height div 2)and(y > - height div 2);
 Canvas.Pixels[x,y + height div 2] := clBlack; //height div 2 - потому что надо график выводить по центру заданной области
 finally
  actX := actX + scaleX; //Расчет формулы мы ведем с учетом коэффициента масштаба, поэтому вот так.
 end;
 end;
end;
Писал по памяти и не проверял на работоспособность. Процедура нарисуем вам косинусоиду. Дальше, думаю, справитесь?
0
D1973
22.11.2016, 06:00     На поверхности формы нарисовать график функции z(x)=2cos2x-b
  #3

Не по теме:

Цитата Сообщение от Nanotentacle Посмотреть сообщение
Дальше, думаю, справитесь?
Ох, и зря Вы так думаете

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.11.2016, 06:00
Привет! Вот еще темы с ответами:

Размеры формы.График функции
Доброе время суток. Ребят встала передо мной задача сделать так, чтобы когда...

Программа, которая на поверхности формы рисует круги
Напишите программу которая на поверхности формы рисует круги. Прекращение...

Как нарисовать график
Учик задал нарисовать такое )...

Нарисовать зеркальный график
Требуется нарисовать зеркальный график к данному, относительно центральной...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru