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

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

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

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

11.04.2014, 14:28. Просмотров 191. Ответов 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
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++
Люди прошу помогите....курсовую надо сдавать, а как решить задачу я не знаю... Вот такое условие: Дан двумерный массив размером 8х8,...

Морской бой - C++
Входные данные двумерный массив 10х10, заполненный нолями и единицами, где 0-пустая клетка, а 1-занятая, найти наиболее длинную линию из...

Морской бой - C++
Написал морской бой. Просьба прокоменнтировать, улучшить где возможно и помочь написать ИИ. Вот исходники: #include &lt;iostream&gt; ...

Морской бой (комбинаторика) - C++
Морской бой. Совсем недавно появилась в продаже новая компьютерная игра «Морской бой–3». Вася купил себе эту игру и теперь играет в нее...

Морской бой Visual С++ - C++
//Ship.h #include &quot;stdafx.h&quot; # ifndef SHIP_H # define SHIP_H #include &lt;windows.h&gt; #include &lt;set&gt; #include...

Консольный морской бой - C++
Доброй ночи, уважаемые форумчане! Собственно, нашел код на просторах интернета, вроде как рабочий, пытаюсь его завести. Не выходит, выдает...

Морской бой С++ в консоли - C++
Морской Бой С++ Кому интересно вот код морского боя в консоли, не судите строго только учусь.... #include&lt;iostream&gt; using...

Игра Морской Бой - C++
#include &lt;conio.h&gt; #include &lt;stdlib.h&gt; #include &lt;iostream.h&gt; #include &lt;dos.h&gt;Kletka {:Pustaya_kletka, Vistrel, X, Y;:(int x, int...

Консольный морской бой - C++
Занялся написанием консольного морского боя на с++, вроде бы уже написал мат модель(хотя и простейшую), но возникли проблемы с оформлением ...

Морской бой на Turbo C - C++
у кого есть исходники морского боя на с++ в консоле гуглил ничего не мог найти

Консольный морской бой - C++
Привет всем. Вот поле: int Matrix; Размещаем корабль на х = 5, y = 5: Matrix = 0; 0 значит на эту координату больше нельзя...

Расстановка кораблей (морской бой) - C++
Доброго времени суток, при расстановке 2х палубных кораблей возникает проблема... При выборе точки уже занятой, система ломается и...


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

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

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