Помогите плз. написать эту программу на С++

const
  maxn = 250;

var
  a: array [1..maxn, 1..maxn] of boolean;
  visited: array [1..maxn] of boolean;
  p: array [1..maxn] of word;
  n: longint;
  cycle: boolean;

procedure init;
var
  i, x, y, nn: longint;
begin
  fillchar(a, sizeof(a), false);
  fillchar(p, sizeof(p), 0);
  fillchar(visited, sizeof(visited), false);
  cycle := false;

  assign(input, 'graph.in');
  reset(input);

  read(n);
  read(nn);

  for i := 1 to nn do
  begin
    read(x, y);
    a[x, y] := true;
    a[y, x] := true;                   
  end;
end;

procedure print;
var
  i, j: integer;
begin
  writeln;
  writeln('number of vertex : ', n);
  writeln('adjacency matrix');
  for i := 1 to n do
  begin
    for j := 1 to n do
      write(ord(a[i, j]));
    writeln;
  end;
end;

procedure dfs(v: longint);
var
  i: integer;
begin
  visited[v] := true;

  for i := 1 to n do
    if a[v, i] then
      if not visited[i] then
      begin
        p[i] := v;
        dfs(i);
      end
      else if p[v] <> i then            
      begin
        cycle := true;
        exit;
      end;
end;

function is_cycle: boolean;
var
  i: longint;
begin
  for i := 1 to n do
    if not visited[i] then
      dfs(i);

  is_cycle := cycle;
end;


begin
  init;

  writeln('depth-first search (cycle)');

  writeln('is cycle : ', is_cycle);
  print;
end.

Это не вопрос, а просьба помочь. Обратись в Центр Помощи
Читай правила форума, пожалуйста.

Я это все прекрасно понимаю,но уж очень надо

Вот набросок 1-ой части программы...



Добавлено @ 20:17 
Место ifstream поставь там std::ifstream.

Добавлено @ 20:21 
Поехали дальше:



Добавлено @ 20:21 
Что делает функция ord?

Добавлено @ 20:24 
Часть 3:



Добавлено @ 20:27 
Оставшаяся часть:



Добавлено @ 20:28 
Пардон, в функции is_cycle

место



пиши

Большое тебе спасибо,ты мне очень помог.Респект и уважуха