блок-схема алгоритма работы программы

[duke]

Доброго времени суток.
Нужна блок-схема алгоритма работы программы по части кода.
ЯП 1с.
Сможите помочь?

[Sla]

чем? нарисовать кавдратики? ромбики стрелочки?

[duke]

Именно, правильно нарисовать, и не откажусь от описания что каждый "квадратик, ромбик" делает.

[Sla]

ты так много говоришь и так мало делаешь
выкладывай кусок кода, а там че-нибудь придумаем

[duke]

Вот xD

Код:

//*******************************************
Перем выбФирма;
Процедура Сформировать()
    Перем ВыбСтатус;    
	 Если Датакон<ДатаНач  Тогда
		ДатаКон=датаНач;
	Конецесли;
	
	ВыбСтатус=перечисление.стБанк.выкуплен;
	Т = СоздатьОбъект("Таблица");
	Т.ИсходнаяТаблица("Таблица");             
	
	ТЗ=СоздатьОбъект("ТаблицаЗначений");
	ТЗ.НоваяКолонка("Ссылка","Документ");
	ТЗ.НоваяКолонка("Статус"); 
	ТЗ.НоваяКолонка("Номер","Строка");
	ТЗ.НоваяКолонка("Эмитент","Строка");
	ТЗ.НоваяКолонка("Номинал","Число");         
	ТЗ.НоваяКолонка("ДатаСост","Дата");
	ТЗ.НоваяКолонка("ДатаПог","Строка");
	ТЗ.НоваяКолонка("ДатаПрих","Дата");
	ТЗ.НоваяКолонка("Индоссант","Строка"); 
	ТЗ.НоваяКолонка("ЦенаПокупки","Число");   
	ТЗ.НоваяКолонка("КодПрихода","Строка");         
	ТЗ.УдалитьСтроки();
		
	Т.ВывестиСекцию("Шапка");                 
	
	
	ТекстЗапроса = "                    
	|Период С ДатаНач По ДатаКон;
	|Кол=Регистр.Банк.Количество;
	|Фирма = Регистр.Банк.Фирма;
	|ФирмадляКого = Регистр.Банк.ФирмаДляКого;	
	|Ссылка = Регистр.Банк.Доквыкупа;	
	|Статус = Регистр.Банк.Статус;
	|Перечислено = Регистр.Банк.Перечислено;	
	|Банк = Регистр.Банк.Банк;
	|ДатаПрихода = Регистр.Банк.ДокВыкупа.ДатаДок;
	|Вексель = Регистр.Банк.Вексель;
	|Эмитент = Регистр.Банк.Вексель.Эмитент;
	|Валюта = Регистр.Банк.Вексель.Валюта;
	|Номинал = Регистр.Банк.Вексель.Номинал;
	|ДатаСоставления = Регистр.Банк.Вексель.ДатаСоставления;
	|ДатаПогашения = Регистр.Банк.Вексель.ДатаПогашения;
	|СрокПогашения = Регистр.банк.Вексель.СрокПогашения;
	|Контрагент = Регистр.Банк.Контрагент;
	|Группировка Вексель; 
	|Функция КонКол=КонОст(Кол);
	|Условие (Фирма=ВыбФирма);
	|Условие (Статус=ВыбСтатус);
	|Условие (Банк в ВыбБанк);
	|Условие (Валюта = ВыбВалюта);
	|";	
	
	Запрос = СоздатьОбъект("Запрос");
	Если Запрос.Выполнить(ТекстЗапроса)=0 Тогда    
			Возврат;
		КонецЕсли;
		Пока Запрос.Группировка("Вексель")>0 Цикл
		Если Запрос.Вексель.Выбран()=0 Тогда
			Продолжить;
		КонецЕсли;	   
		Если (Запрос.КонКол<=0)Тогда
			Продолжить;
		КонецЕсли;	
			
			ТЗ.НоваяСтрока();
			ТЗ.Номер = СокрЛП(Строка(Запрос.Вексель));
			ТЗ.Эмитент = Строка(Запрос.Эмитент);
			ТЗ.ДатаСост = Запрос.ДатаСоставления;
			ТЗ.ДатаПог = Строка(СрокПогашенияТекст(Запрос.Вексель.ДатаСоставления,Запрос.Вексель.ДатаПогашения,Запрос.Вексель.СрокПогашения));
			ТЗ.ДатаПрих = Строка(Запрос.ДатаПрихода);
			ТЗ.Номинал = Запрос.Вексель.Номинал;
		    ТЗ.Ссылка=Запрос.ссылка;
		    док=ТЗ.Ссылка;
			Док.ВыбратьСтроки();
			Пока Док.ПолучитьСтроку()=1 цикл
				Если Док.Вексель=Запрос.Вексель Тогда    					
					ТЗ.ЦенаПокупки = док.Сумма;
					прервать;
				КонецЕсли;
			КонецЦикла;		
		КонецЦикла;

		НПП=0;
		Если ТЗ.КоличествоСтрок()>0 Тогда
			Т.ВывестиСекцию("Отчет");
			ТЗ.Сортировать("Статус");
			ТЗ.ВыбратьСтроки();
		    Пока ТЗ.ПолучитьСтроку()=1 Цикл
	        	НПП=НПП+1;
			    НомДок=Сред(ТЗ.Ссылка,(Найти(ТЗ.Ссылка," ")+1));
				Т.ВывестиСекцию("Строка");
			КонецЦикла;
  			ИтогНом=Формат(ТЗ.Итог("Номинал"),"Ч019.2, "); 
			ИтогПок=Формат(ТЗ.Итог("ЦенаПокупки"),"Ч019.2, "); 
  			ТЗ.УдалитьСтроки();
			Т.ВывестиСекцию("Итоги");
		КонецЕсли;	
	Т.Опции(0,0,4,0,"ОпцииПечатиДействующих","Окно печати действующие");
	Т.ТолькоПросмотр(1);
	Т.ОбластьПечати(1);
	Т.Показать("Выкупленные за период","");
КонецПроцедуры 

процедура ПриОткрытии()
       если НазваниеНабораПрав()="Банк" Тогда
	   	  	ВыбБанк=глПользователь.Банк;
	        Форма.ВыбБанк.Доступность(0);    
			ВыбФирма=РабФирма; 
			Форма.Заголовок("  '"+Врег(ВыбФирма)+"'",1)
		КонецЕсли;
		ВыбВалюта = Рубли;
КонецПроцедуры

[Sla]

duke, а теперь напиши все словами, но покороче
например
Начало
Проверка Даты
Создать объект
Сформировать запрос
Выполнить запрос
Заполнить объект
Вывести таблицу
Конец


Только не копируй мое, потому как писал с головы, не смотрел накод

На будущее - офрмляй код тегами [code]   [/code]

[duke]

Начало
Проверка даты
Выбор предприятия
Выбор валюты векселя
Выбор банка
Создать обьект
Не могли бы вы дополнить то, что я написал?

Код:

 
	Запрос = СоздатьОбъект("Запрос");
	Если Запрос.Выполнить(ТекстЗапроса)=0 Тогда    
			Возврат;
		КонецЕсли;
		Пока Запрос.Группировка("Вексель")>0 Цикл
		Если Запрос.Вексель.Выбран()=0 Тогда
			Продолжить;
		КонецЕсли;	   
		Если (Запрос.КонКол<=0)Тогда
			Продолжить;
		КонецЕсли;	
			
			ТЗ.НоваяСтрока();
			ТЗ.Номер = СокрЛП(Строка(Запрос.Вексель));
			ТЗ.Эмитент = Строка(Запрос.Эмитент);
			ТЗ.ДатаСост = Запрос.ДатаСоставления;
			ТЗ.ДатаПог = Строка(СрокПогашенияТекст(Запрос.Вексель.ДатаСоставления,Запрос.Вексель.ДатаПогашения,Запрос.Вексель.СрокПогашения));
			ТЗ.ДатаПрих = Строка(Запрос.ДатаПрихода);
			ТЗ.Номинал = Запрос.Вексель.Номинал;
		    ТЗ.Ссылка=Запрос.ссылка;
		    док=ТЗ.Ссылка;
			Док.ВыбратьСтроки();
			Пока Док.ПолучитьСтроку()=1 цикл
				Если Док.Вексель=Запрос.Вексель Тогда    					
					ТЗ.ЦенаПокупки = док.Сумма;
					прервать;
				КонецЕсли;
			КонецЦикла;		
		КонецЦикла;

		НПП=0;
		Если ТЗ.КоличествоСтрок()>0 Тогда
			Т.ВывестиСекцию("Отчет");
			ТЗ.Сортировать("Статус");
			ТЗ.ВыбратьСтроки();
		    Пока ТЗ.ПолучитьСтроку()=1 Цикл
	        	НПП=НПП+1;
			    НомДок=Сред(ТЗ.Ссылка,(Найти(ТЗ.Ссылка," ")+1));
				Т.ВывестиСекцию("Строка");
			КонецЦикла;
  			ИтогНом=Формат(ТЗ.Итог("Номинал"),"Ч019.2, "); 
			ИтогПок=Формат(ТЗ.Итог("ЦенаПокупки"),"Ч019.2, "); 
  			ТЗ.УдалитьСтроки();
			Т.ВывестиСекцию("Итоги");
		КонецЕсли;	
	Т.Опции(0,0,4,0,"ОпцииПечатиДействующих","Окно печати действующие");
	Т.ТолькоПросмотр(1);
	Т.ОбластьПечати(1);
	Т.Показать("Выкупленные за период","");
КонецПроцедуры 

процедура ПриОткрытии()
       если НазваниеНабораПрав()="Банк" Тогда
	   	  	ВыбБанк=глПользователь.Банк;
	        Форма.ВыбБанк.Доступность(0);    
			ВыбФирма=РабФирма; 
			Форма.Заголовок("  '"+Врег(ВыбФирма)+"'",1)
		КонецЕсли;
		ВыбВалюта = Рубли;
КонецПроцедуры

В этих циклах собственно и есть проблемма)


      

[Sla]

duke, может тебе так станет понятней, если немного поформатировать  прокомментировать код

Код:

	Если Запрос.Выполнить(ТекстЗапроса)=0 Тогда    
			Возврат; //запрос не выполнился
	КонецЕсли;
	//запрос выполнен, разбираем выборку
	//выполняем цикл по ВЕКСЕЛЮ, к сожалению не помню что вернет такая конструкция    Запрос.Группировка(...)
	Пока Запрос.Группировка("Вексель")>0 Цикл
		Если Запрос.Вексель.Выбран()=0 Тогда
			//если 0, то Продолжаем цикл (видимо к этому векселю что-то привязано
			Продолжить;
		КонецЕсли;	   
		Если (Запрос.КонКол<=0)Тогда
			Продолжить; 
		КонецЕсли;	
		//Здесь заполняем  Текущее значение	
		ТЗ.НоваяСтрока();
		ТЗ.Номер = СокрЛП(Строка(Запрос.Вексель));
		ТЗ.Эмитент = Строка(Запрос.Эмитент);
		ТЗ.ДатаСост = Запрос.ДатаСоставления;
		ТЗ.ДатаПог = Строка(СрокПогашенияТекст(Запрос.Вексель.ДатаСоставления,Запрос.Вексель.ДатаПогашения,Запрос.Вексель.СрокПогашения));
		ТЗ.ДатаПрих = Строка(Запрос.ДатаПрихода);
		ТЗ.Номинал = Запрос.Вексель.Номинал;
		ТЗ.Ссылка=Запрос.ссылка;
		док=ТЗ.Ссылка;
		Док.ВыбратьСтроки();
		Пока Док.ПолучитьСтроку()=1 цикл
			Если Док.Вексель=Запрос.Вексель Тогда    					
				ТЗ.ЦенаПокупки = док.Сумма;
				прервать;
			КонецЕсли;
		КонецЦикла;		
	КонецЦикла;

[duke]

Начало
Проверка даты
Выбор предприятия
Выбор валюты векселя
Выбор банка
Создать обьект

...
Ввод текста (возврат/продолжение)
Ввод инф-ии по векселям (возврат/продолжение)
Вывод отчета(?)

Не правльно?

[RXL]

duke, еще большая просьба: не плоди одинаковые темы.

[Sla]

duke, В принципе это все
Все зависит от детальности раскрытия алгоритма

Даже больше скажу например Создать объект не нужно
Т.е. все просто
Начало
Какие-то проверки
Ввод данных
Обработка данных в цикле
Вывод данных
Конец

[duke]

RXL,Извините 
Sla, Спасибо )
У меня еще одна просьба будет...
Можешь накидать эту схему на бумаге, там вроде какие то определенные "ромбики,кубики,стрелочки и.т.д." должны быть
Я не представляю даже как это должно выглядеть.

[Sla]

Можешь накидать эту схему на бумаге,

Накидал, приходи смотри.

А вообще-то бери ручку, бумагу, и вперед!

http://defacto.examen.ru/db/Examine/catdoc_id/F8A3C3901F55F4C1C3256B490039E05C/rootid/9327995FB7A6D40FC3256A02002CE0D5/defacto.html

[duke]

Мне бы убидится что я правильно ее сделал...(

[Sla]

duke, так в чем дело?
выкладывай сюда свою работу
или сканируешь, или конвертируешь в графический формат, в "Ответе" используешь дополнительные опции, вкладываешь файл

[duke]

А как ее вылоджить сюда?)

[RXL]

duke, жмешь "Ответ" в конце темы, пишешь пост. Под окном ввода есть "+ Дополнительные опции" - нажми и там все написано.

[duke]

Вот, подправте пожалйсто )

[Sla]

duke, хм попробуй файл назвать иностранными буквами у меня не получается его скачать
и конвертни его в jpg формат, он займет меньше места

[RXL]

duke, не надо использовать в именах файлов кириллицу - будут проблемы с кодировками. Что мы и наблюдаем - "вложение не найдено"...

И еще: не выкладывай в интернет BMP!!! Сохраняй как скриншоты как PNG, а фотографии - JPG!

[duke]

rar можно?

[duke]

Вот jpg xD

[RXL]

duke, нет, не верно.

1. Косые блоки используются для ввода и вывода, прямоугольные - для вычислений. У тебя выбор (что есть ввод) - прямоугольный.

2. Почему условие у тебя имеет только один выход? Их всегда два: или соответствует условию, или нет.

3. Писал же... JPG - для фотографий. Текст теперь еле разглядишь. Используй для подобной графики PNG.

[duke]

RXL, Запутался совсем..
не можешь сделать как надо?)

[RXL]

duke, помочь разобраться - могу, а сделать за тебя - никакого желания.

Тебе дали ссылку, где написано, что какой блок значит. Прочти это еще раз.

[duke]

Кое что подлатал, не могли бы вы вновь проверить?)

[RXL]

duke, ужас.

Скажи честно, зачем это тебе нужно?

[duke]

Зачет завтра, дали код надо БС сделать, а с ней судя по твоим словам очень плохо все

[Sla]

1. Твоя программа выполняет ПОСЛЕДОВАТЕЛЬНЫЕ "вычисления"
Соответсвенно блоки ис вводом данных должны идти ПОСЛЕДОВАТЕЛЬНО, а не параллельно
Что такое + и -
Условие (ромбик) на ветке пишется ДА если условие выполняется
Нет - если не выполняется

Где конец?

[duke]

Ну вот опять, куча замечаний)
Вы в них хорошо разбераетесь, нарисуйте, покажите как это все наглядно, я даже ен понимаю о чем речь идет...

[Sla]

duke, ты знаешь, я готов потерять кучу своего времени на объяснение тебе как это должно выглядеть, но за тебя рисовать не буду.
Потому как это все до такой степени просто и элементарно, а тем более все ведь уже написано. И элементарно это не потому что я это знаю, а потому что это - элементарно.
Удачи!

[duke]

Почти доделал, очень прошу не уходи в офф некоторое время, мне ее сегодня нужно доделать xD

[duke]

Вот, жду список недочетов..)

[Sla]

1. проверка даты
 если (ромбик)
Датакон<ДатаНач
Да   ДатаКон=датаНач переходим к шагу 2
Нет Переходим к шагу 2

2. Выбор банка
3. Выбор Валюты
4 Выбор ...
5. ВВод данных из запроса
6. Начало цикла
7. Что-то делаем
8.Что-то делаем
9.Что-то делаем
10. Все данные обработали?
  да шаг 11
  нет шаг 6.



зы мне завтра на работу

[duke]

7. Что-то делаем
8.Что-то делаем
9.Что-то делаем
10. Все данные обработали?
  да шаг 11
  нет шаг 6.

что делаем, как изобразить цикл?

[RXL]

duke, за тебя никто думать не будет. Здесь халявы нет. Или ищи, кто тебе за денежку сделает, или напрягай мозги.

Читай еще раз внимательно: Алгоритмы и способы их записи.

Блоки описания алгоритма.

Пример.

В этом примере по шагам:
1. Начало алгоритма (овал "Старт")
2. Ввод значений переменных x, y и r (параллелограмм).
3. Вычисление (прямоугольник).
4. Проверка условия (ромб).
5. Вывод переменных (параллелограммы)
6. Конец алгоритма (овалы "Стоп").

На той же страницы даны примеры с циклами.

[duke]

Надеюсь вы еще здесь...

[RXL]

duke, уже больше похоже на правду. Только очень мелко - проверить трудно.

Через пять минут у нас сервер выключиться минут на 5 - не пугайся и заходи позже.

[duke]

RXL,  Могу сделать крупнее, но из блоков вылезать будет, для проверки думаю пойдет

[duke]

Вот, тут крупнее

[RXL]

Первая проверка. Почему "нет" закольцовывается опять на тоже условие? Наверное, тебе надо вводить дату?

Кстати, посмотрел на текст программы в начале темы. Мне не понятно, алгоритм какой из двух программ ты изображаешь - ни в одной я подобного не вижу. Или это совсем другая программа?

[RXL]

Код:

	Если Датакон<ДатаНач  Тогда
		ДатаКон=датаНач;
	Конецесли;

1. условие (Датакон<ДатаНач)
1.1. На "Да" нужен блок вычисления.
2. "Нет" и выход из блока вычисления объединяются.

[duke]

блок вычисления?
А как он, параллеллограм это?
...
понял

[duke]

Вот еще одна

[duke]

Проверите? (

[x77]

RXL, определённо, Пикассо.

[Ochkarik]

RXL, нас кстати, учили что то что там названо "соединительным блоком" рисуют стрелочкой типа

Код:

   |
-->|
   |

[Антон (LogRus)]

хочу стрелочки, не понятно в какую сторону движемся. особенно два последних условия смущают.
есть хорошая софтина - Dia поставь и рисуй