Множества дельфи

← →
Valentin1111111 (2012-10-06 22:13) [0]

Условие: Определите, используя средства типа Set, можно ли из всех элементов заданных векторов А и В одинаковой размерности N, хранящихся в текстовом файле Inlet.in составить последовательность подряд идущих целых чисел.
Элементы векторов А и В целого типа и принимают значения из диапазона от 1 до 200. Результат решения задачи запишите в текстовый файл Outlet.out.

Замечания: Нельзя использовать вспомогательные массивы и менять порядок следования элементов в векторах; осуществлять просмотр элементов каждого из векторов можно только 1 раз.

Спецификации:
Ввод (файл Inlet.in)
N
Значения элементов вектора А в строку через пробел
Значения элементов вектора В в строку через пробел
Вывод (файл Outlet.out):
Yes или No

← →
Sha © (2012-10-06 22:31) [1]

средства типа Set скрывают внутре вспомогательный массив битов

← →
Anatoly Podgoretsky © (2012-10-06 23:51) [2]

Это ТЗ для нас, тогда сколько?

← →
kilkennycat © (2012-10-06 23:53) [3]

> Результат решения задачи запишите в текстовый файл Outlet.
> out.

записал. что теперь делать с этим файлом?

← →
alexdn © (2012-10-07 08:40) [4]

Не помогайте ему, это студент, только общетеоретические рекомендации.

← →
Лаур Балаур (2012-10-07 08:43) [5]

> Не помогайте ему, это студент, только общетеоретические
> рекомендации.

Спасибо, Кэп!
Приступаем к выполнению!

← →
Dimka Maslov © (2012-10-07 09:40) [6]

Вектор - это такая стрелка на бумаге. Как из него можно составить последовательность целых чисел? Так что вcя программа будет такой:

program Vector;

begin
Close(output);
Assign(output, "output.out"); Rewrite(output);
Writeln("No");
Close(output);
end.

> Dimka Maslov (07.10.2012 09:40:06) [6]

Rewrite забыл

> Rewrite забыл
спрятал

вроде не использовал вспомогательные массивы

program NoArray; {$APPTYPE CONSOLE} uses SysUtils; type PMyRec = ^TMyRec; TMyRec = record p: PMyRec; i: integer; end; function Neon(row, col, colcount: integer; prev: PMyRec; const fi: TextFile): boolean; var once, temp: integer; cur: PMyRec; data: TMyRec; begin; Read(fi,once); temp:=once; cur:=@data; cur.p:=prev; while (cur.p<>nil) and (cur.p.i>temp) do begin; cur.i:=cur.p.i; cur:=cur.p; end; cur.i:=temp; dec(col); if col<0 then begin; dec(row); col:=colcount-1; readln(fi); end; Result:=true; if row>=0 then Result:=Neon(row, col, colcount, @data, fi); if prev<>nil then Result:=Result and (prev.i+1=data.i); end; var YesOrNo: array[boolean] of string= ("No", "Yes"); f1, f2: TextFile; n: integer; begin; Assign(f1, "noarray.in.txt"); Reset(f1); ReadLn(f1, n); Assign(f2, "noarray.out.txt"); Rewrite(f2); Writeln(f2, YesOrNo[Neon(1, n-1, n, nil, f1)]); Close(f1); Close(f2); end.

Множества дельфи Найти похожие ветки