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

Морской бой (Delphi -> C++) - C++

Восстановить пароль Регистрация
 
ydnacsc
0 / 0 / 0
Регистрация: 31.03.2014
Сообщений: 7
11.04.2014, 14:28     Морской бой (Delphi -> C++) #1
Ребята, для курсовой надо, помогите перевести с делфи в с++
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
procedure TfmBattle.FormActivate(Sender: TObject);
var i,j:integer;
begin
  if Fileexists('f1.stt')
    then
     begin
  AssignFile(stt,'f1.stt');
  Reset(stt);
  Read(stt,D);
  CloseFile(stt);
     end
    else
     for i:=0 to 9 do
       for j:=0 to 9 do
         D[i,j]:=0;
  nol:=true;
  shape5.Brush.Color:=rgb(238,180,34);
  shape6.Brush.Color:=rgb(205,38,38);
  for i:=0 to 210 do
   for j:=0 to 210 do
     begin
       myField.Canvas.Pixels[i,j]:=clAqua;
       cField.Canvas.Pixels[i,j]:=clAqua;
     end;
  for j:=0 to 210 do
    begin
      myField.Canvas.Pixels[j,0]:=clNavy;
      myField.Canvas.Pixels[0,j]:=clNavy;
      cField.Canvas.Pixels[j,0]:=clNavy;
      cField.Canvas.Pixels[0,j]:=clNavy;
      myField.Canvas.Pixels[j,209]:=clNavy;
      myField.Canvas.Pixels[209,j]:=clNavy;
      cField.Canvas.Pixels[j,209]:=clNavy;
      cField.Canvas.Pixels[209,j]:=clNavy;
    end;
  i:=21;
  While i<=210 do
    begin
      For j:=1 to 210 do
        begin
          myField.Canvas.Pixels[i,j]:=clNavy;
          cField.Canvas.Pixels[i,j]:=clNavy;
          myField.Canvas.Pixels[j,i]:=clNavy;
          cField.Canvas.Pixels[j,i]:=clNavy;
        end;
      i:=i+21;
    end;
  InitMas(A,B,C);
  GetB(B);
  ds1:=0;
  ds2:=0;
  S:=[];
  o:=1;
  pp:=2;
end;
Реально надо любая помощь, буду очень благодареню
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
11.04.2014, 14:28     Морской бой (Delphi -> C++)
Посмотрите здесь:

C++ Морской Бой
C++ морской бой
Морской Бой C++
C++ Морской бой в С
C++ Морской бой=)
C++ Морской бой
C++ Морской бой
C++ Морской бой C++

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

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

Текущее время: 00:36. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru