Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.57/7: Рейтинг темы: голосов - 7, средняя оценка - 4.57
Kirgizka
1

Перевести код С++ -> Delphi

10.10.2013, 17:47. Показов 1288. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
пожалуйста переведите с С++ на Delphi
C++
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
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
#include<conio.h>
#include <iostream.h>
#include<stdio.h>
//---------------------------------------------------------------------------
 
#pragma argsused
int main(int argc, char* argv[])
{       int a[14],i,b[14];
int n=5;
   for (int i=0;i<n;i++)
  // a[i]=random(16)   ;
  cin>>a[i];
   cout<<"a=   \n"  ;
     for (int i=0;i<n;i++)
     cout<<a[i]<<" ";   // ??????? ?????? ?
     cout<<endl;
         //??????? ??????????? ???????? ? ??????? ?
     while(i<n-1)
{   int g;
    g=i+1;
    while (g<n)
        if (a[i]==a[g])
            {
                 for (int j=g; j<n-1; j++)
                     a[j]=a[j+1];
                 n--;
            }
    else g++;
    i++;
}
        cout<<"novi massiv a :\n"      ;
        for (int i=0;i<n;i++)
        cout<<a[i]<<" ";
        cout<<endl<<endl;
    int m=5;
    cout<<"b=   \n"  ;
for (int l=0;l<m;l++)
  // b[l]=random(16)   ;
    cin>>b[l];
     for (int l=0;l<m;l++)
     cout<<b[l]<<" ";   //??????? ?????? ?
     cout<<endl;
 int l;        //??????? ??????????? ???????? ??????? ?
     while(l<m-1)
{   int g;
    g=l+1;
    while (g<m)
        if (b[l]==b[g])
            {
                 for (int i=g; i<m-1; i++)
                     b[i]=b[i+1];
                 m--;
            }
    else g++;
    l++;
}
        cout<<"novi massiv b:\n"      ;
        for (int l=0;l<m;l++)
        cout<<b[l]<<" ";
        cout<<endl;
//---------------------------------------------------------------------------
  cout<<"\nDekartovo proizvedenie :AxB= \n {\n";
 
  for (int i=0;i<n;i++)
  {
      for (int l=0;l<m; l++)
      {
          if ((i==n-1)&&(l==m-1))
          {
              cout<<"("<<a[i]<<","<<b[l]<<")";break;
          }
             cout<<"("<<a[i]<<","<<b[l]<<"), ";
      }          cout<<endl;
  }
  cout<<" }"<<endl;
 
  cout<<"\n -------------------------------------------\n";
 cout<<"\n bolshe na 2 ili na 3 = \n {\n";
 for (int i=0;i<n;i++)
  {
      for (int l=0;l<m; l++)
      {
      if (a[i]==(b[l]+2) || a[i]==(b[l]+3)){
          if ((i==n-1)&&(l==m-1))
          {
              cout<<"("<<a[i]<<","<<b[l]<<","<<")";break;
          }
             cout<<"("<<a[i]<<","<<b[l]<<","<<"),";
      }
  }
  }
  cout<<" }"<<endl;
 
 
cout<<"\n -------------------------------------------\n";
 
 cout<<"\n obratnor otnoshenie  proizvedenie :BxA= \n {\n";
 
  for (int i=0;i<n;i++)
  {
      for (int l=0;l<m; l++)
      {
          if ((i==n-1)&&(l==m-1))
          {
              cout<<"("<<b[l]<<","<<a[i]<<")";break;
          }
             cout<<"("<<b[l]<<","<<a[i]<<"), ";
      }          cout<<endl;
  }
  cout<<" }"<<endl;
 
cout<<"\n -------------------------------------------\n";
 cout<<"\n udvoenie pervoi pozisi = \n {\n";
 for (int i=0;i<n;i++)
  {
      for (int l=0;l<m; l++)
      {
          if ((i==n-1)&&(l==m-1))
          {
              cout<<"("<<a[i]<<","<<b[l]<<","<<a[i]<<")";break;
          }
             cout<<"("<<a[i]<<","<<b[l]<<","<<a[i]<<"), ";
      }          cout<<endl;
  }
  cout<<" }"<<endl;
 
getch();
return 0;
}
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.10.2013, 17:47
Ответы с готовыми решениями:

Перевести код c в delphi
Помогите перевести код c++ в delphi. // 3.cpp: определяет точку входа для консольного приложения....

Перевести код с С++ на Delphi
код #include &lt;fstream&gt; #include &lt;vector&gt; bool possible(int n,unsigned short mask1,unsigned...

Перевести код с С на Delphi
#define IOCTL_READ (0x800&lt;&lt;2)|(0x22&lt;&lt;16) #define IOCTL_WRITE (0x801&lt;&lt;2)|(0x22&lt;&lt;16) Есть такой...

Перевести код с++ в Delphi
Доброго времени суток. Недавно меня попросили написать алгоритм Штрассена на Dephi, но я как-то...

1
993 / 521 / 102
Регистрация: 19.03.2013
Сообщений: 3,114
Записей в блоге: 19
10.10.2013, 18:23 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
program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
  var a,b:array[0..14] of integer;
      i,n,g,j,m:integer;
 
 
begin
  { TODO -oUser -cConsole Main : Insert code here }
  n:=5;
  for i:=0 to n do
   readln(a[i]);
   writeln('a = ');
   for i:=0 to n do
     write(a[i],' ');
   writeln;
 
   //i:=0;  - тут по идее нужно обнулять счетчик i, иначе while не имеет смысла никакого...
   while(i<n-1) do
   begin
   g:=i+1;
      if (a[i]=a[g]) then
        begin
        for j:=g to n-1 do //(int j=g; j<n-1; j++)
          a[j]:=a[j+1];
        n:=n-1;
        end
          else g:=g+1;
 
          i:=i+1;
   end;
 
   writeln('novi massiv a ');
     for i:=0 to n do
     write(a[i],' ');
   writeln;
 
   m:=5;
   writeln('b = ');
     for i:=0 to m do
   readln(b[i]);
     writeln('b = ');
   for i:=0 to n do
     write(b[i],' ');
   writeln;
 
 
   readln;
 
 
 
end.
0
10.10.2013, 18:23
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.10.2013, 18:23
Помогаю со студенческими работами здесь

Перевести код из C++ на Delphi
Помогите ребята мне нужно из C+ перевести в Delfi //n -- требуемая длина кода, //m -- указатель...

Перевести код на Delphi
добрый вечер, срочно , помогите адекватно перевести программу с паскаль на делфи, вот код: PROGRAM...

Перевести код с C# на Delphi
Как будет выглядеть эти функции на Delphi =============================== Сохранение данных...

Перевести код в Delphi
void __fastcall TForm1::Button1Click(TObject *Sender) { if...

Перевести код из C# в Delphi
private string SecretKeySpec(string text, string keyValue) { UTF8Encoding...

перевести код из Си в Delphi
#include&lt;stdio.h&gt; #include&lt;conio.h&gt; void main() {int a,b,c; printf(&quot;vvedi chisla\n&quot;);...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru