Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Центр помощи > [Perl->Pascal] Переключатели


Автор: AligatorV 7.12.2006, 21:29
Код

#!/usr/bin/perl
open $fh,"<","bomba.dat" or die $!;
chomp(@info=<$fh>);
close($fh);
$info[1]=join("",(split(/\s+/,$info[1]))[0..$info[0]-1]);
for $nx (3..$info[2]+2) {
    $temp=$info[1];
    substr($temp,${_}-1,1)^=(substr($temp,${_}-1,1)+0) for $info[$nx]=~/(\d+)/g;
    push(@ok,$nx-2) unless ($temp+0);
}
open $fh,">","bomba.sol" or die $!;
flock($fh,2);
print $fh (@ok?"YES\n".join(",",@ok)."\n":"NO\n");
close($fh);


На всякий случяй условие задачки
Взрывное устройство, которое было заложено неизвестным террористом, имеет N - лампочек, и M - переключателей.
Каждый переключатель изменяет состояние некоторых лампочек на противоположный. Для обезвреживания бомбы, необходимо выключить все лампочки.
Напишите программу, которая спасет мир.

Входные данные: (файл BOMBA.DAT):
В первой строке число N. (0<N<=100)
Во второй строке содержится N чисел, которые помечают состояние каждой лампочки (0 - выключенная, 1 - включенная).
В третьей строке содержится число M. (0<M<=100)
В каждом из следующих M строк содержится число K (количество лампочек состояние которых изменяет данный переключатель) и K чисел - номера соответствующих лампочек.
Выходные даны: (файл BOMBA.SOL):
Если бомбу обезвредить невозможно, запишите в исходный файл "NO" (без кавычек).
Если возможно спасти мир, то в первую строку запишите "YES" (без кавычек), а во вторую строку запишите номера переключателей которые необходимо задействовать.
Пример BOMBA.DAT:
5
0 1 1 0 1
4
3 2 3 4
3 1 4 5
2 4 5
2 2 4

Автор: anwe 8.12.2006, 00:15
А на делфе подойдет? Меня твоя задачка заинтересовала, почти решил, хотел уточнить задание и тут увидел, что надо на паскале.

Автор: AligatorV 10.12.2006, 16:37
Давай на делфи, мож потом ктото переведё на пскаль

Автор: anwe 10.12.2006, 21:16
Я так посмотрел: не получится, там все строится на визуальных компонентах - контролах на форме.

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)