Цикл на рекурсию

@tro9 · Регистрация: 07.10.2013

Author24 — интернет-сервис помощи студентам

помогите приминить рекурсию в ф-ии.

Pascal

function IsValid(r: Queens; step: integer) : boolean;
var i,j: integer;
begin
  IsValid:=true;
  if step<=1 then exit;
  for i:=1 to step-1 do
    for j:=i+1 to step do
     begin
       if (r[i]=r[j]) or (abs(r[i]-r[j])=abs(i-j)) then begin
         IsValid:=false;
         exit
       end;
     end;

Заранее благодарен.

Добавлено через 42 минуты

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

помогите приминить рекурсию в ф-ии.

Pascal

function IsValid(r: Queens; step: integer) : boolean;
var i,j: integer;
begin
  IsValid:=true;
  if step<=1 then exit;
  for i:=1 to step-1 do
    for j:=i+1 to step do
     begin
       if (r[i]=r[j]) or (abs(r[i]-r[j])=abs(i-j)) then begin
         IsValid:=false;
         exit
       end;
     end;

Заранее благодарен.

Ну для одного из циклов точнее

Добавлено через 3 часа 23 минуты
ну кто что подскажет?

Новичок · 29.10.2013, 00:16

tro9, задание пишите,что хотите пишите,условие и.т.д.

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

Цикл на рекурсию

А вот этой фразой вы рассмешили меня,да и не только.

@tro9 · 30.10.2013, 00:56 **[ТС]**

ну а что такого поменять цикл на рекурсию.

Новичок · 30.10.2013, 00:58

Ну так бы и написали,но зато меня вы рассмешили,и за это вам спасибо огромное.

И все-таки лучше напишите полное задание.

Новичок 1682 / 1095 / 489 Регистрация: 17.07.2012 Сообщений: 5,360
	29.10.2013, 00:16	2
	tro9, задание пишите,что хотите пишите,условие и.т.д. Сообщение от tro9 Цикл на рекурсию А вот этой фразой вы рассмешили меня,да и не только. 0

@tro9 0 / 0 / 0 Регистрация: 07.10.2013 Сообщений: 22
	30.10.2013, 00:56 [ТС]	3
	ну а что такого поменять цикл на рекурсию. 0

Новичок 1682 / 1095 / 489 Регистрация: 17.07.2012 Сообщений: 5,360
	30.10.2013, 00:58	4
	Ну так бы и написали,но зато меня вы рассмешили,и за это вам спасибо огромное. И все-таки лучше напишите полное задание. 0

Опции темы