Березовский   Кемеровской области
березовский портал
arrowГлавная Остальное Развлечения FLASH-ки

Переставить лягушек

Friday, 01 November 2024  
Пользователи он-лайн
Посетителей нет.

ТОП-5 займов онлайн

Займы онлайн
Вебкамеры города Березовский Кемеровской области
Инфраструктура города
Школы Березовского Кемеровской области Школы
Банки Березовского Кемеровской области Банки
Детские сады Березовского Кемеровской области Детские сады
База Березовских Поэтов
База предприятий
Подать в суд
Суд
Расписание автобусов
Расписание автобусов
Запись к врачам
Больницы. Электронная очередь
Горячие кнопки
Новое Объявления Вакансии
Фото и фотографы города
Город Берёзовский Кемеровской области фото
Наша коллекция юмора
Концентрация юмора
ЗАГС

Поменяйте местам красных и зеленых лягушек. Перепрыгивать можно по правилам шашек.

[ НА ПОЛНЫЙ ЭКРАН ] [ СКАЧАТЬ ZIP-файлом ]

Просмотров: 4797

Комментарии
Написал admin на 2008-06-23 17:08:33
Как успехи?
Написал admin на 2008-06-23 18:45:33
Эта задачка на 30 минут парализовала работу всей лабораотрии. Зав лаб так вообще стал строить матрицу возможных решений исмпользуя теорию игр :grin :grin :grin
Написал Dimkin на 2008-06-24 04:18:19
Решил с первого раза
Написал NineLLeS на 2008-06-24 06:46:26
ну я не с первого......со второго.
Написал admin на 2008-06-24 08:59:09
Завлаб написал программу на паскале, решающую данную задачу методом рекурсии :grin  
 
program lyag; 
const 
c: array[] of byte=(1,1,1,0,2,2,2); 
 
var 
i: byte; 
f: text; 
 
 
function hod: boolean; 
var 
i,k: byte; 
fl: boolean; 
c1: array[] of byte; 
begin 
hod:=false; 
if (c[1]=2)and(c[2]=2)and(c[3]=2)and(c[4]=0)and 
(c[5]=1)and (c[6]=1)and (c[7]=1) then begin 
hod:=true; 
writeln (f); 
writeln('OK'); 
halt 
end; 
for i:=1 to 7 do c1[i]:=c[i]; 
k:=0; 
while (k (k=3)and(c[k-2]=1) then begin 
c[k-2]:=0; 
c[k]:=1; 
writeln; 
for i:=1 to 7 do write(f,c[i],' '); 
writeln(f); 
fl:=hod; 
end; 
for i:=1 to 7 do c[i]:=c1[i]; 
k:=0; 
while (k=hod; 
end; 
for i:=1 to 7 do c[i]:=c1[i]; 
writeln(f); 
writeln(f, 'otkat') 
end; 
 
begin 
assign(f,''); 
rewrite(f); 
writeln(f); 
for i:=1 to 7 do write(f, c[i],' '); 
writeln(f); 
hod; 
writeln('ERROR'); 
close(f); 
end.
Написал NineLLeS на 2008-06-24 09:08:30
Ну он дал!!!!! И охота ему было.... :grin
Написал NomoS на 2008-06-26 12:05:26
Нуууу у меня ушло 2минуты 38 секунд

Незарегистрированным пользователям доступны комментарии только из системы "Вконтакте".
Пожалуйста зарегистрируйтесь.

 
            
поиск
Авторизация
Миничат Пройти регистрацию Архив миничата Пройти регистрацию
ПОГОДА
weather
Телефонный справочник
Телефонный справочник

Город Березовский
(Кемеровская область)

ТРК 12-канал
ОВД
Подать заявление Приём заявлений о преступлениях или правонарушениях в ОВД г. Березовский
Кто онлайн и откуда
Заказ СУШИ
СУШИ
Счётчики

            
Наш побратим
Город Берёзовский на Урале

Березовский сайт

            
вверх
Проект существует с 25.05.2006