Код

Процедура Сформировать()	    
	Перем з1;			  
	q=1000;  // здесь ставим число своих мегабайт на машине

	тз=СоздатьОбъект("ТаблицаЗначений");
	ИТз=Создатьобъект("ИндексированнаяТаблица");

	ТЗ.Новаяколонка("Ключ");
	ТЗ.Новаяколонка("Значение");
	ТЗ.Новаяколонка("Значение2");

	ИТз.Новаяколонка("Ключ");
	ИТз.Новаяколонка("Значение");
	ИТз.Новаяколонка("Значение2");
	Для ё=1 по q Цикл
		Для й=1 по 1000 Цикл
			Тз.НоваяСтрока();
			Тз.Ключ=ё;			Тз.Значение=й;			Тз.Значение2=й;

			ИТз.НоваяСтрока();
			иТз.Ключ=ё;		 иТз.Значение=й;			иТз.Значение2=й;
		Конеццикла;
	Конеццикла;

	Итз.ДобавитьИндекс("индКлюч","Ключ");
	Предупреждение("Таблицы заполнены",2);

	Для ё=1 по 3 Цикл
		ИщемЭто=ё+(ё-1)*(q/2-2);  
		    
		стр=0;
		м1=_GetPerformanceCounter();

		ИТЗ.УстановитьФильтр(ИщемЭто,ИщемЭто,"индКлюч");
		Итз.ВыбратьСтроки("индКлюч");
						    
		м2=_GetPerformanceCounter();

		Пока ИТЗ.ПолучитьСтроку("индКлюч")=1 Цикл
			стр=стр+Итз.Ключ+Итз.Значение+Итз.Значение2;
		КонецЦикла;			    

		м3=_GetPerformanceCounter();

		стр1=0;

		м4=_GetPerformanceCounter();

		птр="";
		Если ТЗ.НайтиЗначение(ИщемЭто,птр,"Ключ")=1 Тогда
						    
			м5=_GetPerformanceCounter();

			Для й=птр по ТЗ.КоличествоСтрок() Цикл
				ТЗ.ПолучитьСтрокуПоНомеру(й);
				з1=ТЗ.Ключ;
			  Если з1<>ИщемЭто Тогда
					Прервать;
				КонецЕсли;

			   стр1=стр1+з1+ТЗ.Значение+ТЗ.Значение2;
			КонецЦикла;			    

		    м6=_GetPerformanceCounter();

		КонецЕсли;
		    
		Если ё=1 Тогда
			Сообщить("Выборка в начале списка");
		ИначеЕсли ё=2 Тогда
			Сообщить("Выборка в середине списка");
		Иначе
			Сообщить("Выборка в конце списка");
		Конецесли;

		Сообщить("Время ИТЗ.УстановитьФильтр+ВыбратьСтроки() "+Число(м2-м1)+" Общее время цикла "+Число(м3-м2));
		Сообщить("Время			 ТЗ.НайтиЗначение() "+Число(м5-м4)+" Общее время цикла "+Число(м6-м5));
		Сообщить("Отставание "+Число(((м3-м2)-(м6-м5))/1000));

	КонецЦикла;
КонецПроцедуры