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

Нужно перевести задачу с делфи на с++ - C++

Восстановить пароль Регистрация
Другие темы раздела
C++ Чтение данных из файла http://www.cyberforum.ru/cpp-beginners/thread1195964.html
Мне нужно прочитать с фаила и сделать запросы... Но как это сделать? помогите, пожалуйста... #include "stdafx.h" #include <iostream> #include <fstream> #include <iomanip> #include "conio.h" #include "stdlib.h" using namespace std; int main() {
C++ Передача enum в качестве аргумента метода класса Есть класс //class order; class ticket{ enum type_of_place { coupe, general, berth, wagon_lit }_type_of_place; char* dispatch_station; char* arrival_station; char* departure_date; char* arrival_date; public: http://www.cyberforum.ru/cpp-beginners/thread1195946.html
Поясните, что делает код C++
//N треугольников плоскости заданы длинами своих сторон. Найдите треугольник максимальной площади. #include "stdafx.h" #include <iostream> #include "Header.h" using namespace std; int main() { int n=0;
C++ Удалить строку, в которой встречаются элементы, равные заданному
Подскажите, пожалуйста. Вопрос в том - как реализовать само "удаление"?
C++ Рекурсия. Символы строки в обратном порядке http://www.cyberforum.ru/cpp-beginners/thread1195926.html
Помогите пожалуйста решить задачу: дана символьная строка. Не используя циклы, реализовать рекурсивную функцию, печатающую символы строки в обратном порядке. Заранее спасибо.
C++ Деструктор для дерева Добрый вечер! Помогите, пожалуйста, написать деструктор для дерева. enum color { RED, BLACK }; // Звено дерева typedef struct rbtree_node { // Звено окрашено в черный или красный цвет enum color color; // Поле для ключа подробнее

Показать сообщение отдельно
ProGrammist95
0 / 0 / 0
Регистрация: 25.03.2013
Сообщений: 32
01.06.2014, 22:44     Нужно перевести задачу с делфи на с++
Помогите перевести задачу с делфи на с++. Срочно нужно.
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
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
ListBox1: TListBox;
ListBox2: TListBox;
Label1: TLabel;
Label2: TLabel;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
const A:array [1..6] of real=(-4.1,-1,1.2,3,5,0.75);
type mas=array [1..6] of real;
var A1,B:mas;
i,k:integer;
Procedure mas2(Z:mas;n:integer;var k:integer;var B:mas);
var i:integer;
const x=-2.5; y=1.2;
begin
k:=0;
For i:=1 to n do
if (z[i]>=x) and (z[i]<=y) then begin
k:=k+1;
B[k]:=z[i];
end;
end;
begin for i:=1 to 6 do
A1[i]:=A[i];
mas2(A1,6,k,B);
for i:=1 to k do
Listbox2.Items.Add('b['+inttostr(i)+']='+formatfloat('##.###',b[i]));
for i:=1 to 6 do
Listbox1.items.add('a['+inttostr(i)+']='+floattostr(a[i]));
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Application.Terminate;
end;
end.
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
Текущее время: 14:15. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru