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

С++ для начинающих

Войти
Регистрация
Восстановить пароль
 
ProGrammist95
0 / 0 / 0
Регистрация: 25.03.2013
Сообщений: 32
#1

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

01.06.2014, 22:44. Просмотров 129. Ответов 0
Метки нет (Все метки)

Помогите перевести задачу с делфи на с++. Срочно нужно.
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.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
01.06.2014, 22:44     Нужно перевести задачу с делфи на с++
Посмотрите здесь:

Перевести маленькую задачу на С++ - C++
Помогите перевести программу с Pascal на С++ uses crt; var a: array of byte; i, n, y: byte; begin for i:=1 to 10...

эту задачу перевести на с++ - C++
program lab3; var a:array of integer; i,n,p:integer; ...

Перевести из делфи в с++ - C++
В числовой последовательности ищется максимальный элемент и выводится его номер var s,max:real; i,k,n:integer; c:extended;...

Перевести с Делфи в С++ - C++
есть код на делфи, помогите перевести на с++ program Project2; {$APPTYPE CONSOLE} uses SysUtils; const n=10;

помогите задачу перевести с языка с++ на с - C++
#include &quot;stdafx.h&quot; #include &lt;iostream&gt; #include &lt;conio.h&gt; using namespace std; int main() { double A,maxx,sum=0.0,max; ...

Нужно разобрать задачу - C++
#include &quot;stdafx.h&quot; #include &quot;chess.h&quot; using namespace std; horse targetHorse;// переменная, хранящая координаты цели - той точки,...

Нужно скорректировать задачу со структурами - C++
Я определила структуру «студент», поля структуры: ФИО, массив элементов структуры «дисциплина» (не менее 4-х элементов, результаты сдачи...

Нужно превести задачу с Delphi на С++ - C++
const n=10; type Segments=record a,b:Integer; end; var ArrayOfSegments:array of Segments; i,j,count,Point,MaxPos:Byte; ...

Помогите развязать задачу очень нужно на С++ - C++
Задан массив чисел. Если есть элемент равен а, то результат равен сумме элементов, которые идут после а, в противном случае результатом...

Нужно исправить задачу вычисления суммы - C++
Вычислить сумму. s=1/(2+3)+2/(3+4)+..+10/(11+12) через цикл for Вот что получилось.

пожалуйста нужно решить задачу на массивы по С!!! - C++
Дана целочисленная прямоугольная матрица. определить: 1) количество столбцов, содержащих хотябы один нудевой элемент 2)номер строки в...

Нужно сдать задачу в одно действие - C++
Задача: Лиса Алиса и кот Базилио (Время: 1 сек. Память: 16 Мб Сложность: 22%) Лиса Алиса и кот Базилио вырастили денежное дерево....


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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать тему
Опции темы

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