Программа построения графиков

@Adikeee · Регистрация: 07.06.2014

Author24 — интернет-сервис помощи студентам

Здравствуйте, пожалуйста помогите написать программу построения графиков кардиоиды и лемнискаты, синусоидов и косинусоидов, парабалоидов

@dondublon · 27.11.2014, 10:28

TChart вам в помощь.

@Puporev · 27.11.2014, 11:02

Сообщение от Adikeee

синусоидов и косинусоидов,

Это что за звери?

Добавлено через 1 минуту

Сообщение от Adikeee

парабалоидов

Действительно нужно построение параболоида или очередная чушь?

@Adikeee · 27.11.2014, 17:05 **[ТС]**

курсовая работа по объектно ориентрованному программированию

@Puporev · 27.11.2014, 17:10

Да мне пофигу что это, я спросил что такое

Сообщение от Adikeee

синусоидов и косинусоидов, парабалоидов

Ну Параболоид есть такая пространственная фигура, но про 2 остальных не слышал.

@Adikeee · 27.11.2014, 17:12 **[ТС]**

да я сам толком не понял, задание я написал как есть

@Puporev · 27.11.2014, 17:29

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

@Adikeee · 27.11.2014, 18:03 **[ТС]**

@Puporev · 27.11.2014, 18:08

Ну это значит нужны графики синуса, косинуса и параболы. Вопрос: на чем строить, как выбирать, какие параметры и как задавать. То что ты написал и показал это не поясняет.

@Adikeee · 27.11.2014, 18:13 **[ТС]**

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

@Puporev · 27.11.2014, 18:15

Ну, короче вбивай и получай. Похоже тебе задание для курсовой выдали на улице и ты забыл его записать. Я лично пас.

@Adikeee · 04.12.2014, 20:48 **[ТС]**

если вдруг кому надо, сам написал данную программу

Delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;
 
type
  TForm1 = class(TForm)
    Label1: TLabel;
    ComboBox1: TComboBox;
    Image1: TImage;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure ComboBox1Change(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  i, x2,y2: integer;
  x,y: real;
  procedure Line(x1,y1,x2,y2: integer);
 
implementation
 
{$R *.dfm}
 
procedure Line(x1,y1,x2,y2: integer);
begin
 with Form1.Image1.Canvas do
 begin
  MoveTo(x1,y1);  LineTo(x2,y2);
 end;
end;
 
procedure Line1(x1,y1: integer);
begin
  Line(x1,y1-2,x1,y1+2);
end;
 
procedure Line2(x1,y1: integer);
begin
  Line(x1-2,y1,x1+2,y1);
end;
 
procedure DrawFunc(nf: integer);
begin
  with Form1 do
    begin
      case nf of
        1: begin
        for i:=-270 to 270 do
          begin
            x:=i;
            y:=sin((pi*x)/180)*90;
            image1.Canvas.Pixels[trunc(x)+Image1.Width div 2,trunc(y) + Image1.Height div 2]:=clRed;
            if i=90 then
              begin
                x2:=trunc(x)+Image1.Width div 2;
                y2:=trunc(y)+Image1.Height div 2;
              end;
          end;
  Image1.Canvas.Pen.Color:=clGreen;
  Line(x2,y2,x2+20,y2+20);
  Line(x2+20,y2+20,x2+80,y2+20);
  Image1.Canvas.TextOut(x2+25,Y2+5,'Y=SIN(X)');
end;
2: Begin
  for i:=-270 to 270 do
    begin
      x:=i;
      y:=(cos((pi*x)/180))*90;
      image1.Canvas.Pixels[trunc(x)+Image1.Width div 2, trunc(y) +Image1.Height div 2]:=clBlue;
      if i=-180 then
        begin
          x2:=trunc(x)+Image1.Width div 2;
          y2:=trunc(y)+Image1.Height div 2;
        end;
    end;
  Image1.Canvas.Pen.Color:=clGreen;
  Line(x2,y2,x2-20,y2-20);
  Line(x2-20,y2-20,x2-80,y2-20);
  Image1.Canvas.TextOut(x2-70,Y2-34,'Y=COS(X)');
end;
3: Begin
      for i:=-89 to 89 do
        begin
          X:=trunc(i);
          Y:=(sin((pi*x)/180)/cos((pi*x)/180))*90;
          image1.Canvas.Pixels[trunc(x)+Image1.Width div 2,
          trunc(y) +Image1.Height div 2]:=clYellow;
          if i=-55 then
            begin
              x2:=trunc(x)+Image1.Width div 2;
              y2:=trunc(y)+Image1.Height div 2;
            end;
        end;
  Image1.Canvas.Pen.Color:=clGreen;
  Line(x2,y2,x2-20,y2-20);
  Line(x2-20,y2-20,x2-80,y2-20);
  Image1.Canvas.TextOut(x2-70,Y2-34,'Y=TG(X)');
end;
 4: Begin
      for i:=-89 to 89 do
        begin
          y:=trunc(i);
          x:=((sin((pi*y)/180)/cos((pi*y)/180)))*90;
          image1.Canvas.Pixels[trunc(x)+Image1.Width div 2,
          trunc(y) +Image1.Height div 2]:=clAqua;
            if i=60 then
              begin
                x2:=trunc(x)+Image1.Width div 2;
                y2:=trunc(y)+Image1.Height div 2;
              end;
        end;
  Image1.Canvas.Pen.Color:=clGreen;
  Line(x2,y2,x2+20,y2-20);
  Line(x2+20,y2-20,x2+80,y2-20);
  Image1.Canvas.TextOut(x2+20,Y2-34,'Y=CTG(X)');
      end;
5: begin
        for i:=-270 to 270 do
          begin
            x:=i;
            y:=sqr(sin((pi*x)/180)*15);
            image1.Canvas.Pixels[trunc(x)+Image1.Width div 2,trunc(y) + Image1.Height div 2]:=clMaroon;
            if i=90 then
              begin
                x2:=trunc(x)+Image1.Width div 2;
                y2:=trunc(y)+Image1.Height div 2;
              end;
          end;
  Image1.Canvas.Pen.Color:=clGreen;
  Line(x2,y2,x2+20,y2+20);
  Line(x2+20,y2+20,x2+80,y2+20);
  Image1.Canvas.TextOut(x2+25,Y2+5,'Y=(SIN(X))^2');
end;
6: Begin
  for i:=-270 to 270 do
    begin
      x:=i;
      y:=sqr((cos((pi*x)/180))*15);
      image1.Canvas.Pixels[trunc(x)+Image1.Width div 2, trunc(y) +Image1.Height div 2]:=clFuchsia;
      if i=-180 then
        begin
          x2:=trunc(x)+Image1.Width div 2;
          y2:=trunc(y)+Image1.Height div 2;
        end;
    end;
  Image1.Canvas.Pen.Color:=clGreen;
  Line(x2,y2,x2-20,y2-20);
  Line(x2-20,y2-20,x2-80,y2-20);
  Image1.Canvas.TextOut(x2-70,Y2-34,'Y=(COS(X))^2');
end;
7: Begin
      for i:=-89 to 89 do
        begin
          X:=trunc(i);
          Y:=sqr((sin((pi*x)/180)/cos((pi*x)/180))*15);
          image1.Canvas.Pixels[trunc(x)+Image1.Width div 2,
          trunc(y) +Image1.Height div 2]:=clNavy;
          if i=-35 then
            begin
              x2:=trunc(x)+Image1.Width div 2;
              y2:=trunc(y)+Image1.Height div 2;
            end;
        end;
  Image1.Canvas.Pen.Color:=clGreen;
  Line(x2,y2,x2-20,y2-20);
  Line(x2-20,y2-20,x2-80,y2-20);
  Image1.Canvas.TextOut(x2-70,Y2-34,'Y=(TG(X))^2');
end;
 8: Begin
      for i:=-89 to 89 do
        begin
          y:=trunc(i);
          x:=sqr(((sin((pi*y)/180)/cos((pi*y)/180)))*15);
          image1.Canvas.Pixels[trunc(x)+Image1.Width div 2,
          trunc(y) +Image1.Height div 2]:=clPurple;
            if i=-30 then
              begin
                x2:=trunc(x)+Image1.Width div 2;
                y2:=trunc(y)+Image1.Height div 2;
              end;
        end;
  Image1.Canvas.Pen.Color:=clGreen;
  Line(x2,y2,x2+20,y2-20);
  Line(x2+20,y2-20,x2+80,y2-20);
  Image1.Canvas.TextOut(x2+20,Y2-34,'Y=(CTG(X))^2');
      end;
     end;
  end;
end;
 
procedure ClearField;
begin
  with Form1 do
    begin
      Image1.Canvas.Pen.Color:=clBlack;
      Image1.Canvas.Brush.Color:=clGray;
      Image1.Canvas.Rectangle(1,1,Image1.Width, Image1.Height);
 
      line(10,Image1.Height div 2,Image1.Width-10,Image1.Height div 2);
      line(Image1.Width div 2,10,Image1.Width div 2,Image1.Height -10);
      Image1.Canvas.Font.Color:=clRed;
      Image1.Canvas.TextOut(Image1.Width div 2+5,Image1.Height div 2+5,'0');
      Image1.Canvas.TextOut(Image1.Width-20, Image1.Height div 2+5, 'X');
      Image1.Canvas.TextOut(Image1.Width div 2+5,10 ,'Y');
 
    for i:=1 to Image1.Width div 10 do
      Line1(I*10, Image1.Height div 2);
    for i:=1 to Image1.Height div 10 do
      Line2(Image1.Width div 2 , i*10);
  end;
end;
 
 
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  ClearField;
  DrawFunc(ComboBox1.ItemIndex+1);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
  var
  i: integer;
begin
  ClearField;
  ComboBox1.ItemIndex:=0;
  for i:=1 to 8 do
    DrawFunc(ComboBox1.ItemIndex+i);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
Close;
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
ClearField;
end;
 
end.

Новые блоги и статьи
Как написать микросервис на C# с Kafka, MediatR, Redis и GitLab CI/CD InfoMaster 15.01.2025 В современной разработке программного обеспечения микросервисная архитектура стала стандартом де-факто для создания масштабируемых и гибких приложений. Этот подход позволяет разделить сложную систему. . .	Что такое CQRS и как это реализовать на C# с MediatR InfoMaster 15.01.2025 Концепция CQRS и её роль в современной разработке В современном мире разработки программного обеспечения архитектурные паттерны играют ключевую роль в создании масштабируемых и поддерживаемых. . .	Как настроить CI/CD с Azure DevOps InfoMaster 15.01.2025 CI/ CD, или непрерывная интеграция и непрерывное развертывание, представляет собой современный подход к разработке программного обеспечения, который позволяет автоматизировать и оптимизировать процесс. . .	Как настроить CI/CD с помощью Jenkins InfoMaster 15.01.2025 Введение в CI/ CD и Jenkins В современной разработке программного обеспечения непрерывная интеграция (CI) и непрерывная доставка (CD) стали неотъемлемыми элементами процесса создания качественных. . .	Как написать микросервис на Go/Golang с Kafka, REST и GitHub CI/CD InfoMaster 14.01.2025 Определение микросервиса, преимущества использования Go/ Golang Микросервис – это архитектурный подход к разработке программного обеспечения, при котором приложение состоит из небольших, независимо. . .	Как написать микросервис с нуля на C# с RabbitMQ, CQRS, Swagger и CI/CD InfoMaster 14.01.2025 В современном мире разработки программного обеспечения микросервисная архитектура стала стандартом де-факто для создания масштабируемых и гибких приложений. Этот архитектурный подход предполагает. . .
Как создать интернет-магазин на PHP и JavaScript InfoMaster 14.01.2025 В современном мире электронная коммерция стала неотъемлемой частью бизнеса. Создание собственного интернет-магазина открывает широкие возможности для предпринимателей, позволяя достичь большей. . .	Как написать Тетрис на Ассемблере InfoMaster 14.01.2025 Тетрис – одна из самых узнаваемых и популярных компьютерных игр, созданная в 1984 году советским программистом Алексеем Пажитновым. За прошедшие десятилетия она завоевала симпатии миллионы людей по. . .	Как создать игру "Танчики" на Unity3d и C# InfoMaster 14.01.2025 Разработка игр – это увлекательный процесс, сочетающий в себе творчество и технические навыки. В этой статье мы рассмотрим создание классической игры "Танчики" с использованием Unity3D и языка. . .	Организую платный онлайн микро-курс по доработке Android-клиента Telegram _Ivana 14.01.2025 Официальная версия и распространенные форки не полностью устраивают? Сделай свою кастомную версию клиента! 4 занятия по 2 часа (2 недели пн, ср 19:00-21:00 по Москве). Первое вводное занятие. . .	Как создать приложение для фитнеса для iOS/iPhone на Kotlin InfoMaster 14.01.2025 Создание собственного фитнес-приложения — это не только захватывающий, но и полезный процесс, ведь оно может стать вашим верным помощником на пути к здоровому и активному образу жизни. В современных. . .	Как создать приложение магазина для iOS/iPhone на Swift InfoMaster 14.01.2025 Введение в разработку iOS-приложений Разработка приложений для iPhone и других устройств на базе iOS открывает огромные возможности для создания инновационных мобильных решений. В данной статье мы. . .

@Adikeee 0 / 0 / 0 Регистрация: 07.06.2014 Сообщений: 7
		1
	Программа построения графиков 26.11.2014, 20:22. Показов 2328. Ответов 11 Метки нет (Все метки) Здравствуйте, пожалуйста помогите написать программу построения графиков кардиоиды и лемнискаты, синусоидов и косинусоидов, парабалоидов 0

@dondublon 4640 / 2056 / 363 Регистрация: 17.03.2012 Сообщений: 10,139 Записей в блоге: 6
	27.11.2014, 10:28	2
	TChart вам в помощь. 0

@Puporev Почетный модератор 64305 / 47602 / 32742 Регистрация: 18.05.2008 Сообщений: 115,181
	27.11.2014, 11:02	3
	Сообщение от Adikeee синусоидов и косинусоидов, Это что за звери? Добавлено через 1 минуту Сообщение от Adikeee парабалоидов Действительно нужно построение параболоида или очередная чушь? 0

@Adikeee 0 / 0 / 0 Регистрация: 07.06.2014 Сообщений: 7
	27.11.2014, 17:05 [ТС]	4
	курсовая работа по объектно ориентрованному программированию 0

@Puporev Почетный модератор 64305 / 47602 / 32742 Регистрация: 18.05.2008 Сообщений: 115,181
	27.11.2014, 17:10	5
	Да мне пофигу что это, я спросил что такое Сообщение от Adikeee синусоидов и косинусоидов, парабалоидов Ну Параболоид есть такая пространственная фигура, но про 2 остальных не слышал. 0

@Adikeee 0 / 0 / 0 Регистрация: 07.06.2014 Сообщений: 7
	27.11.2014, 17:12 [ТС]	6
	да я сам толком не понял, задание я написал как есть 0

@Puporev Почетный модератор 64305 / 47602 / 32742 Регистрация: 18.05.2008 Сообщений: 115,181
	27.11.2014, 17:29	7
	Ну если ты сам не понял задание на курсовую то что делать, только на форум экстрасенсов.. Или покажи точное задание, только на пуском или английском языке, если оно не на русском. 0

@Adikeee 0 / 0 / 0 Регистрация: 07.06.2014 Сообщений: 7
	27.11.2014, 18:03 [ТС]	8
	0

@Puporev Почетный модератор 64305 / 47602 / 32742 Регистрация: 18.05.2008 Сообщений: 115,181
	27.11.2014, 18:08	9
	Ну это значит нужны графики синуса, косинуса и параболы. Вопрос: на чем строить, как выбирать, какие параметры и как задавать. То что ты написал и показал это не поясняет. 0

@Adikeee 0 / 0 / 0 Регистрация: 07.06.2014 Сообщений: 7
	27.11.2014, 18:13 [ТС]	10
	нужны для всех случаев, что бы данные можно было все самому вбивать и получать график 0

	04.12.2014, 20:48

@Puporev Почетный модератор 64305 / 47602 / 32742 Регистрация: 18.05.2008 Сообщений: 115,181
	27.11.2014, 18:15	11
	Ну, короче вбивай и получай. Похоже тебе задание для курсовой выдали на улице и ты забыл его записать. Я лично пас. 0