Форум программистов, компьютерный форум CyberForum.ru

Построение графика (перевести програму с Дельфи) - C++

Восстановить пароль Регистрация
Другие темы раздела
C++ STL список. Не понятно http://www.cyberforum.ru/cpp-beginners/thread1093765.html
Доброго времени суток, форумчане! Суть в том - Есть некое задание... В нем стоит условие: Для хранения данных использовать текстовый файл. У там должно хранится "Номер поезда" "Куда едет" "Время отправки" Я сначала риализовал при помощи структуры. Это было довольно таки просто. struct Informer { char item; char Platform; char TimeBack;
C++ Перемножения матриц (обратную на вектор). Найти ошибку в коде Добрый вечер!) Столкнулся с проблемой перемножения матриц (обратную на вектор). Результат выводится некорректный :( #include <iostream> #include <locale.h> using namespace std; int gaus_obr(int cnt_str,double **mass,double **&A_obr) { int i,j,k; //ñîçäàíèå åäèíè÷íîé ìàòðèöû http://www.cyberforum.ru/cpp-beginners/thread1093760.html
Программа code blocks пишет что не хватает If для Else C++
Подскажите пожалуйста Программа code blocks пишет что не хватает If для Else что делать не знаю подсчитал ifы и elsы по 3 каждого Программа высчитывает сумму чисел от x до b Код: #include <iostream> #include <windows.h> using namespace std; int main() { setlocale(LC_ALL, "Russian"); int x, b, q, s, d, r;
C++ Наложение координат на карту
Собственно задался целью сделать что то типа gps трекинга. Координаты, например с мобильного, я нашел как получить и как отправить. Теперь остается вопрос программирования под Windows. Кто нибудь вообще сталкивался с наложением координат на изображение? Есть ли примеры?
C++ Написать приложение которое бы считывало результаты работы другого приложения http://www.cyberforum.ru/cpp-beginners/thread1093745.html
Надеюсь создал пост там где нужно. Значит задача такая.Необходимо написать приложение которое бы считывало результаты работы другого приложения.К примеру работу ProcExp к примеру строки. И осуществляло поиск определенныx строк. Можно ли это реализовать на C++? И что использовать какие функции изучать. В C++ не особо силен.
C++ Неправильно выводит результат при нахождении расстояния между отрезками Пытался сам решить ниже поставленную задачу с нахождением расстояния между ОТРЕЗКАМИ. Однако где-то ошибка, выводит белеберду #include<iostream> using namespace std; double skalar(double x1, double y1, double x2, double y2) { return (x1*x2 + y1*y2); } подробнее

Показать сообщение отдельно
Фалмари
0 / 0 / 0
Регистрация: 21.04.2012
Сообщений: 16
10.02.2014, 22:39     Построение графика (перевести програму с Дельфи)
Добрый вечер!
Мой научный руководитель в срочном порядке сказал перевести мою расчетную программу из Дельфи в Си/Си++, а я, увы, знаю только Дельфи.
Есть такая программа:
Delphi
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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    PaintBox1: TPaintBox;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Edit2: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 {$R *.dfm}
 
function max(a,b: extended):extended;
begin
  if a>b then max:=a
         else max:=b;
end;
 
function min(a,b: extended):extended;
begin
  if a<b then min:=a
         else min:=b;
end;
 
procedure TForm1.Button1Click(Sender: TObject); {????? ???-???????}
  const N=300;
  type Tmas = array [0..N,0..trunc(N/2)] of double;
  var i,m,code,K:integer;
      u, v : Tmas;
      c, tao, h: extended;
begin
  Val(Edit1.Text,c,code);
  tao:=1/(3*c*N);
  h:=1/N;
  K:= trunc(N/2);
  for i:=0 to K-50 do
    u[i,0]:=1;
  for i:=K-49 to K+49 do
    u[i,0]:=0.5;
  for i:=K+50 to N do
    u[i,0]:=0;
  for m:=0 to K do
    u[0,m]:=1;
  for m:=0 to K do
    u[N,m]:=0;
  for m:=0 to K-1 do
    begin
    v[0,m+1]:=u[0,m] - (c*tao/h)*(u[1,m] - u[0,m]);
    for i:=1 to N-1 do
      begin
      v[i,m+1]:=u[i,m] - (c*tao/h)*(u[i+1,m] - u[i,m]);
      u[i,m+1]:=1/2*(u[i,m] + v[i,m+1] - (c*tao/h)*(v[i,m+1]-v[i-1,m+1]));
      end;
    end;
  with PaintBox1.Canvas do
    begin
      MoveTo(0,200);
      for i:=0 to N do
       begin
             Pen.Width:=1;
             Pen.Style:=psSolid;
             Pen.Color:=clBlue;
             LineTo(i*trunc(600/N),4*trunc(150 - 100*u[i,K]));
             Pen.Color:=clRed;
            if (u[i,K]<0.99) and (u[i,K]>0.03)
            then
            begin
            Pen.Width:=3;
            MoveTo(i*trunc(600/N)-1,4*trunc(150 -100*u[i,K]+1));
            LineTo(i*trunc(600/N)+1,4*trunc(150 -100*u[i,K]-1));
            MoveTo(i*trunc(600/N)+1,4*trunc(150 -100*u[i,K]+1));
            LineTo(i*trunc(600/N)-1,4*trunc(150 -100*u[i,K]-1));
            end;
       end
    end;
end;
он должен выдать такую картинку на примерно такой консольке. (см. вложение)
остальные методы пока не разработаны.
Миниатюры
Построение графика (перевести програму с Дельфи)  
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
Текущее время: 20:29. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru