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

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

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

Напишите программу,которая на поверхности формы вычерчивает график функции z(x)=2cos2x-b
Изображение должно занимать большую часть экрана,сопровождаться заголовком,содержать наименования и градации осей и масштабироваться в зависимости от исходных данных. Значение параметра b для функции должно вводиться пользователем с клавиатуры .График должен быть плавным цвет линии графика должен отличаться от цвета осей.

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.11.2016, 14:30
Ответы с готовыми решениями:

Нарисовать на поверхности формы по её периметру прямоугольник
Создайте приложение, на форму которого помещен компонент Button. Напишите...

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

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

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

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

2
Nanotentacle
337 / 218 / 95
Регистрация: 20.10.2016
Сообщений: 1,021
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
Привет! Вот еще темы с ответами:

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

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

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


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

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

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