Форум программистов, компьютерный форум, киберфорум
Наши страницы

Из Делфи в С++ - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Скорость сотрировки массива http://www.cyberforum.ru/cpp-beginners/thread676768.html
Есть массив из N элементов, который сортируется по алгоритму у которого скорость O(n ln n) Как мне понять кокая примерно скорость будет? Тоесть если N = 1000 000 Ln(N)*N ~ 13 000 000 - Что за...
C++ Как записатт массив из файла? Всем привет, в С++ нуб полный, начинаю только разбираться. В общем дело такое, есть файл TXT, в нем в каждой строчке по одной цифре. Требуется этот текстовый файл записать в массив на С++ в одну... http://www.cyberforum.ru/cpp-beginners/thread676767.html
сделал код но с ошибками,не могу исправить! C++
в файле задание и код)) Заранее огромное спасибо)
C++ Ms visual C++ отладка
Тесть, можно ли в Ms visual C++ 2008, чделать так как в поскале, тоесть код программы выполняется построчно при этом выводится названия переменных и их значеня. Тоесть в turbo pascal'e если не...
C++ Библиотеки (C++) http://www.cyberforum.ru/cpp-beginners/thread676754.html
Привет! Пожалуйста, SOS! Ситуация такова, обучаюсь на дистанционных курсах программированию на С++, не могу справиться с ПО, все скачано, установлено, прога запускается нормально, далее написан код...
C++ Генератор случайных чисел методом серединных квадратов ======= Добавлено через 1 минуту Пытаюсь создать генератор случайных чисел методом серединных квадратов. В чем ошибка? #include<stdafx.h> #include<iostream> #include<stdio.h>... подробнее

Показать сообщение отдельно
Irushka
0 / 0 / 0
Регистрация: 18.10.2012
Сообщений: 4

Из Делфи в С++ - C++

21.10.2012, 19:15. Просмотров 314. Ответов 2
Метки (Все метки)

Может ли кто то помочь перевести программу?Буду очень благодарна любой помощи)

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
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, ExtDlgs;
 
type
  TForm1 = class(TForm)
    Image1: TImage;
    Image2: TImage;
    Button1: TButton;
    OpenPictureDialog1: TOpenPictureDialog;
    SavePictureDialog1: TSavePictureDialog;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var Bitmap1, Bitmap2: TBitmap;
    x,y: Integer;
    r,g,b: Integer;
    l:Real;
    FName: String;
begin
Bitmap1:=TBitmap.Create;
Bitmap2:=TBitmap.Create;
//
Bitmap1.Width:=957;
Bitmap1.Height:=672;
Bitmap1.PixelFormat:=pf24bit;
//
Bitmap2.Width:=Bitmap1.Width;
Bitmap2.Height:=Bitmap1.Height;
Bitmap2.PixelFormat:=pf24bit;
//
if (OpenPictureDialog1.Execute()) then
begin
  FName := OpenPictureDialog1.FileName;
  Bitmap1.LoadFromFile(FName);
  Image1.Picture.Bitmap:=Bitmap1;
end;
//
for x := 0 to Bitmap1.Width-1 do
begin
  for y := 0 to Bitmap1.Height-1 do
    begin
      r:=getRValue(Bitmap1.Canvas.Pixels[x,y]);
      g:=getGValue(Bitmap1.Canvas.Pixels[x,y]);
      b:=getBValue(Bitmap1.Canvas.Pixels[x,y]);
      l:= 0.299*r+0.587*g+0.114*b;
      l:=Round(l);
      if l>255 then l:=255;
       Bitmap2.Canvas.Pixels[x,y]:=RGB(Round(l),Round(l),Round(l));
    end;
end;
Image2.Picture.Bitmap:=Bitmap2;
end;
 
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.