| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

Valentin1111111 ©   (2012-10-06 22:13:00) 

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

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

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

---

Sha   (2012-10-07 22:06:00) [1]

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


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.


---

sniknik   (2012-10-07 10:13:00) [2]

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

---

Anatoly Podgoretsky   (2012-10-07 10:09:00) [3]

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

Rewrite забыл

---

Dimka Maslov   (2012-10-07 09:40:00) [4]

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

program Vector;

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

---

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

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


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

---

alexdn   (2012-10-07 08:40:00) [6]

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

---

kilkennycat   (2012-10-06 23:53:00) [7]

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

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

---

Anatoly Podgoretsky   (2012-10-06 23:51:00) [8]

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

---

Sha   (2012-10-06 22:31:00) [9]

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

---

Наверх