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

Нужно переделать код - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Пересчитать все слова заданного предложения http://www.cyberforum.ru/cpp-beginners/thread220497.html
Пересчитать все слова заданного предложения , которые состоят из тех же букв, что и первое слово предложения и заканчиваются на такую же букву , что и первое. Язык С++ . Срочно нужно написать.
C++ не получается написать код этой программы -Если первый аргумент командной строки -опция -%d, то распечатать введенное далее вещественное число без точки, указав в скобках число цифр после точки, а если число целое,то число не изменять. если... http://www.cyberforum.ru/cpp-beginners/thread220481.html
C++ Файловый вывод...
struct studs { int evaluation,gr,money,form; char fio; studs*nextstd,*prevstd; }; struct group { int grnum; group*next,*prev;
Обработка массивов C++
Народ помогите пожалуйста ото чет я не понимаю как это на с++ реализовать. Заранее спасибо! 1. Дана стpока символов. Пpизнак конца стpоки - символ '\n' (пеpевод стpоки). Стpока состоит из...
C++ Проверить код http://www.cyberforum.ru/cpp-beginners/thread220458.html
Всем здравствуйте. Ребят, не могли бы посмотреть и поправить программу, а то выдает ошибку: Compiling... d:\program files\microsoft visual studio\myprojects\01155\41.cpp(13) : fatal error C1083:...
C++ найти значени выражений Когда обьясняли тему я как раз болел, сам разобратся вообще не могу, а лабу сдать нада, скоро Экзамен... 1 Найти значение выражения Y=7(a/4+2b). Для операций умножения и деления использовать сдвиг... подробнее

Показать сообщение отдельно
KSUSHA89
1 / 1 / 0
Регистрация: 12.11.2010
Сообщений: 45

Нужно переделать код - C++

26.12.2010, 11:33. Просмотров 410. Ответов 0
Метки (Все метки)

нужно переделать код на 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
134
135
136
/Разместить на шахматной доске максимальное количество слонов и ладей 
//так, чтобы они не находились друг у друга " под боем" . 
 
#include <stdio.h>
#include <conio.h>
#include <dos.h>
 
char b[8][8];
 
void Print (void) {
 int i,j;
 clrscr();
 for (i=0; i<8; i++) {
  for (j=0; j<8; j++) {
   if ((b[i][j]=='‘') || (b[i][j]=='‹')) textcolor (RED);
   else textcolor (LIGHTGRAY);
   cprintf ("%1c",b[i][j]);
  }
  printf ("\n");
 }
 delay (100);
}
 
int Slon (int x,int y) {
 int i;
 for (i=0; i<8; i++) if (b[i][y]=='‘') return 1;
 for (i=0; i<8; i++) if (b[x][i]=='‘') return 1;
 return 0;
}
 
int Lad (int x0,int y0) {
 int x,y;
 x=x0; y=y0;
 do {
  if (b[x][y]=='‹') return 1;
  x--; y++;
 } while ((x>=0) && (y<8));
 x=x0; y=y0;
 do {
  if (b[x][y]=='‹') return 1;
  x--; y--;
 } while ((x>=0) && (y>=0));
 x=x0; y=y0;
 do {
  if (b[x][y]=='‹') return 1;
  x++; y--;
 } while ((x<8) && (y>=0));
 x=x0; y=y0;
 do {
  if (b[x][y]=='‹') return 1;
  x++; y++;
 } while ((x<8) && (y<8));
 return 0;
}
 
void AddLad (int x,int y) {
 int i;
 b[x][y]='‹';
 for (i=0; i<8; i++) if (i!=x) b[i][y]='X';
 for (i=0; i<8; i++) if (i!=y) b[x][i]='X';
}
 
void AddSlon (int x0,int y0) {
 int x,y;
 b[x0][y0]='‘';
 x=x0-1; y=y0+1;
 while ((x>=0) && (y<8)) {
  b[x][y]='X'; x--; y++;
 };
 x=x0-1; y=y0-1;
 while ((x>=0) && (y>=0)) {
  b[x][y]='X'; x--; y--;
 };
 x=x0+1; y=y0-1;
 while ((x<8) && (y>=0)) {
  b[x][y]='X'; x++; y--;
 };
 x=x0+1; y=y0+1;
 while ((x<8) && (y<8)) {
  b[x][y]='X'; x++; y++;
 };
}
 
void main (void) {
 int x,y,i,j,lr,sr,l,s;
 textmode(C40);
 printf ("\n ђ*ббв**®ўЄ* «*¤Ґ© Ё б«®*®ў");
 do {
     printf ("\n ‚ўҐ¤ЁвҐ Є®«ЁзҐбвў® «*¤Ґ© [1-7]");
     fflush (stdin);
     scanf ("%d",&l);
 } while (!((l>0) && (l<8)));
 for (i=0; i<8; i++) for (j=0; j<8; j++) b[i][j]='ю';
 Print();
 s=8-l;
 lr=sr=0;
 do {
     if (lr<l) {
        for (x=0; x<8; x++) for (y=0; y<8; y++)
        if ((b[x][y]=='ю') && (!Slon(x,y))) {
            AddLad (x,y);
            lr++;
            Print();
            goto m10;
        }
     }
m10:
     if (sr<s) {
        for (x=0; x<8; x++) for (y=0; y<8; y++)
        if ((b[x][y]=='ю') && (!Lad(x,y))) {
            AddSlon (x,y);
            sr++;
            Print();
            goto m20;
        }
     }
m20:
 } while (lr+sr<8);
 i=0; j=0;
 do {
  if (b[i][j]=='ю') {
   if (!Slon(i,j)) { AddLad (i,j); lr++; Print(); }
   else if (!Lad (i,j)) { AddSlon (i,j); sr++; Print(); }
  }
  j++;
  if (j==8) {
   j=0; i++;
   if (i==8) break;
  }
 } while (1);
 gotoxy (1,10);
 printf ("\n ‹ - «*¤мп, ‘ - б«®*");
 fflush (stdin);
 getch();
 textmode(C80);
}
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru