~Kaname~
04 декабря 2011


{Проверить, является ли введенное выражение формулой по правилу:
формула = терм | терм +- формула
терм = переменная | цифра | (формула)
переменная = a..z
цифра = 0..9}
paste.org.ru/?v5o9ld


paste.org.ru/?fu195l

12 декабря 2011

paste.org.ru/?dm7d7y

Прямой обход дерева синтаксического анализа (результат - инфиксная запись)
procedure preorder (p : ukaz; k : byte);
begin
write (p^.info);
if p^.left<>nil then preorder(p^.left, k+1);
if p^.right<>nil then preorder(p^.right, k+1);
end;

begin
...
preorder(root,1);
...
end.

Суббота, 05 мая 2012

paste.org.ru/?lp0ioh

14 мая 2012

paste.org.ru/?rrjsom

18 мая 2012

paste.org.ru/?gaex82

dl.dropbox.com/u/16214227/inf/2/Project2.dpr

20 мая 2012

paste.org.ru/?1d49cl

23 мая 2012

paste.org.ru/?5dhn1i

25 мая 2012

program Project5;

{$APPTYPE CONSOLE}

uses
SysUtils, Windows;

type Tvector = array of byte;
Tmatr = array of Tvector;

var n : byte;
MS : Tmatr;
i, j : byte;

begin
SetConsoleCP( 1251 );
SetConsoleOutputCP( 1251 );
write ('Введите количество городов : ');
readln (n);
writeln;
setlength(MS, n, n);
randomize;
writeln ('Матрица смежности');
write (' ');
for i:=1 to n do
write ('(', i, ') ');
writeln;
writeln;
for i:=0 to n-1 do
begin
write ('(', (i+1), ') ');
for j:=0 to n-1 do
begin
MS[i,j]:=random(5)+1;
write (MS[i,j], ' ');
end;
writeln;
end;

{алгоритм дейкстры}
dist[s] := 0;
done[s] := True;
last := s;
for i := 1 to N - 1 do
begin
for x := 1 to N do
if (sm[last, x] <> 0) and (not done[x]) then
dist[x] := min(dist[x], dist[last] + sm[last, x]);
min_dist := MaxLongInt;
for x := 1 to N do
if (not done[x]) and (min_dist > dist[x]) then
begin
min_dist := dist[x];
last := x;
end;
done[last] := True;
end.
{---}

{dist хранит длины текущих путей от выделенной вершины до остальных,
в нем числа MaxLongInt - бесконечность, по окончанию работы останутся только
минимальные значения длин путей.
done хранит информацию о том, найден ли уже минимальный путь до соответствующей вершины
и можно ли ее исключить из рассмотрения
last хранит номер последней помеченной вершины}
readln;
end.

@темы: IT, alma mater