1. Набираем команду codeby webinar. Набираем команду для организации и проведения вебинаров. Подробнее ...

    Скрыть объявление
  2. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление
  3. Получи 30.000 рублей. Для получения денег необходимо принять участие в конкурсе авторов codeby. С условиями и призами можно ознакомиться на этой странице ...

    Внимание! Регистрация авторов на конкурс закрыта.

    Скрыть объявление

Описать процедуру travel(p,h,k)

Тема в разделе "Вопросы новичков и не только", создана пользователем sowhat, 26 фев 2015.

  1. sowhat

    sowhat New Member

    Репутация:
    0
    Регистрация:
    26 фев 2015
    Сообщения:
    1
    Симпатии:
    0
    Описать процедуру travel(P,H,K), которая по рейсам P (P[x] – множество городов, в которые можно за один рейс доехать автобусом из города x) определяет K – множество городов, в которые можно попасть автобусом (за один рейс или через другие города) из города H.

    Код:
    type town = (a,b,c,d,e,f,g,h);
     
    towns = set of town;
     
    path = array [town] of towns;
     
    procedure travel(P: path; N: town; var K: towns);
     
    var
     
    checked: towns;
     
    i: town;
     
    begin
     
    K := P[N]; checked := [];
     
    repeat
     
    for i := low(town) to high(towns) do
     
    if i in k - checked then
     
    begin
     
    checked := checked + ;
     
    K := K + P;
     
    end;
     
    until K - checked = [];
     
    end;

    вот процедура
    что дальше делать?
     
    #1 sowhat, 26 фев 2015
    Последнее редактирование модератором: 1 мар 2015
Загрузка...

Поделиться этой страницей