помогите пожалуйста со спиралию

[toader]

Spasibo bolishoe za vash forum i za vashu pomoshi ogromnoe spasibo

[Sazary]

Вы, кажется, не поняли. Выкладывайте свой код, если что-то не получается. Или тему закрою.

змейка:

1 2 3 4 5
16 17 18 19 6
15 24 25 20 7
14 23 22 21 8
13 12 11 10 9

спираль:
1 2 3 4 5
10 9 8 7 6
11 12 13 14 15
20 19 18 17 16
21 22 23 24 25

Вы действительно так думаете? Ну-ну.

[toader]

#define m 5
#define n 5
 
 void main(void){

	 
 bool b;
 i,j,y: integer;
 
 int x[m][n];
 
 x: array[1..m,1..n] of integer;

{
 for i:=1 to m do
 {
  y:=i mod 2;
  case y of //влево или вправо заполнять?
   1: for j:=1 to n do x[i,j]:=(i-1)*m+j;
   else for j:=n downto 1 do x[i,j]:=(i-1)*m+(n-j+1);
 }
}
 //А теперь выведем полученную матрицу
 for i:=1 to m do
 {
  for j:=1 to n do Write(x[i,j]:4);
  Writeln;
 }
 //Ждем, пока какой-нибудь добрый человек не нажал Enter :)
 Readln;
 }

[ISergeyN]

toader, что это за бред? на каком языке хоть написано.

[toader]

Сообщение от ISergeyN

toader, что это за бред? на каком языке хоть написано.

было для делфи я по пытался поменять в си++ но не получилосй(

[vasek123]

Мда... Смесь Delphi с C++. По моему парень перезанимался.

Сообщение от toader

было для делфи я по пытался поменять в си++ но не получилосй(

Ну, хотя- бы, цикл for пишется следующим образом:

for(int i; i<100; i++)

Потом, у вас переменная типа integer представленна как на Delphi так и на C++, да и потом оператор присваивания неправелен. В общем, ошибок полно... Учим С++, внимательно проверяем исходник- думаю, разберетесь с проблеммой...