Структуры данных

[LimPIK49]

1.Дано скобочное выражение длинны N, содержащее скобки (), {} и []. Проверить, является ли данное скобочное выражение правильным. Скобочное выражение является правильным, если каждой открывающей скобке соответствует закрывающая скобка, с учетом вложенности скобок.
Ограничения: 1< N < 10000.
Формат ввода: вводится единственная строка - скобочное выражение.
Формат вывода: в единственной строке вывести "Yes", если выражение правильное, и "No" - если не правильное.

2.Дана шахматная доска размером 8*8 клеток. N клеток на этой доске занято фигурами. В клетке А1 находится фишка. Каждый ход фишка может ходить на одну клетку по вертикали или горизонтали. Фишка может ходить только по свободным клеткам. Найти кратчайший путь фишки из клетки А1 в клетку Н8. Гарантируется, что клетки А1 и Н8 не заняты фигурами.
Ограничения: 0< N<62.
Формат ввода: в первой строке вводится число N - количество фигур. В каждой из следующих N строк вводится пара чисел Xi, Yi - координаты i-ой фигуры.
Формат вывода: в первой строке вывести количество посещенных клеток в кратчайшем пути (включая начальную и конечную клетки). Далее вывести сами посещенные клетки по одной в строке.

3.Дана шахматная доска размером 8*8 клеток. N клеток на этой доске занято фигурами. В клетке А1 находится конь. Найти кратчайший путь коня из клетки А1 в клетку Н8. Гарантируется, что клетки А1 и Н8 не заняты фигурами.
Ограничения: 0< N<62.
Формат ввода: в первой строке вводится число N- количество фигур. В каждой из следующих N строк вводится пара чисел Xi, Yi - координаты i-ой фигуры.
Формат вывода: в первой строке вывести количество посещенных клеток в кратчайшем пути (включая начальную и конечную клетки). Далее вывести сами посещенные клетки по одной в строке.

4.По кругу выложено N конфет. Петя идет по кругу вдоль конфет, начиная с первой, и съедает каждую вторую конфету до тех пор, пока все конфеты не кончатся. Сорта конфет обозначаются числами от 1 до 1000.
Вывести номера сортов конфет в порядке поедания конфет Петей. Ограничения: 1< N < 10000.
Формат ввода: в первой строке вводится N- количество конфет. В следующей строке вводится N чисел через пробел - номера сортов конфет.
Формат вывода: в единственной строке вывести N чисел - номера сортов конфет.

5.Задано поле размера N на М клеток. Каждая клетка помечена числом 0 или 1., обозначающим величину штрафа, который нужно заплатить за проход по этой клетке. Изначально фишка находится в клетке (1,1). Фишка может ходить на одну клетку по вертикали или горизонтали. Найти минимальную величину штрафа, которую придется заплатить для прохождения из клетки (1,1) в клетку (N, М). Штраф за посещение начальной и конечной клетки тоже взимается.
Ограничения: 1< N, М < 500.
Формат ввода: в первой строке вводится пара чисел N и М - размеры поля. В следующих N строках вводится по М чисел через пробел - штрафы за прохождение соответствующих клеток.
Формат вывода: в единственной строке вывести минимальный суммарный штраф. Подсказка: для решения данной задачи необходимо придумать структуру данных, совмещающую свойства очереди и стека.

Нужна помощь с решением задач =)
Заранее спасибо!

[VIK_aka_TOR]

за соответствующее материальное вознаграждение готов реализовать задачи в коде.... пишите в личку или аську...

[Poma][a]

или вопросы и ВАШ код или денюжки....

[Arhangel7]

как-то первая задача заинтересовала...

var
  S{скобочное выражение}:string;
  I{счетчик}:integer;
begin
  write('vvvedite skobochnoe vyrajenie => ');
  readln(S);
  if (length(S)mod 2 <> 0) or (length(S)=0) then
  begin
    writeln('false'); readln; exit;
  end;
  for I:=length(S) downto 1 do
    begin
      Delete(S,(AnsiPos('()',S)),2);
      Delete(S,(AnsiPos('[]',S)),2);
      Delete(S,(AnsiPos('{}',S)),2);
      if length(S)=0 then break;
    end;
  if length(S)=0 then writeln('true')
  else writeln('false');
  readln;
end.

вроде так

[Serge_Bliznykov]

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

как-то первая задача заинтересовала...

остроумно!
единственное, я бы цикл крутил, пока позиция одной из пар была бы больше нуля

  while (Pos('()',S)>0) or (Pos('[]',S)>0) 
         or  (Pos('{}',S)>0) do 
    begin
      Delete(S,(Pos('()',S)),2);
      Delete(S,(Pos('[]',S)),2);
      Delete(S,(Pos('{}',S)),2);
    end;

но сам ход решения мне понравился!

p.s. да и ещё. выводить по условиям задачи надо YES или NO

[hon]

Задача 1.

var i,a:integer;
............
a:=0;
for i:=1 to Length(s) do
   case s[j] of
        '(','[','{': a:=a+1;
        ')',']','}': a:=a-1;
    end; {case}
{Assign и Rewrite здесь}
if a:=0 then
Write(f,'Yes') {f - файловая переменная}
else Write(f,'No');
Close(f); {или Closefile}

Выржение

)-2(*6

и тому подобные будут считатся правильными.

[Serge_Bliznykov]

hon, ну и зачем Вы написали это?!
Начиная с того, что написанный код в корне ошибочен!, и заканчивая тем, что это попытка решения вообще непонятно какой задачи!
Вы условие прочитайте пожалуйста!

скобочное выражение длинны N, содержащее скобки (), {} и [].

всё. никаких цифр, никаких математических операций. ничего. только скобки трёх видов. и всё.