Форум: "Начинающим";
Текущий архив: 2013.04.14;
Скачать: [xml.tar.bz2];
ВнизМножества дельфи Найти похожие ветки
← →
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.
← →
Anatoly Podgoretsky © (2012-10-07 10:09) [7]> Dimka Maslov (07.10.2012 09:40:06) [6]
Rewrite забыл
← →
sniknik © (2012-10-07 10:13) [8]> Rewrite забыл
спрятал
← →
Sha © (2012-10-07 22:06) [9]вроде не использовал вспомогательные массивы
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.
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2013.04.14;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.004 c