1с математическое задание

Форум Программирование Общие вопросы программирования (Dev)

Конфигурации 1cv8

1. user1511288 18.12.20 17:17 Сейчас в теме

Здравствуйте
Я начинаю изучать 1с и мне дали задание
вывести единичную матрицу в сообщить", я это сделал на C# и как бы процесс понимаю
есть наброски(ниже)

Массив = Новый Массив(10,10);
	Для  i=0 по 10 Цикл
	Для  j=0 по 10 Цикл 
			Если i = j  тогда
				Массив = 1;
			Иначе
				Массив = 0;			
			КонецЕсли;
			Если i>j тогда
				Массив = 1;
			Иначе 
				Массив = 0;
			КонецЕсли
		Конеццикла;
	Конеццикла;
	Для  i = 0 по 10 цикл
		строка = "";
		Для j = 0 по 10 цикл	
	Конеццикла;
	КонецЦикла;

Показать

Помогите пожалуйста, я просто не понимаю синтаксик

По теме из базы знаний

Найденные решения

6. uno-c 266 18.12.20 18:28 Сейчас в теме

10х10 по диагонали единички, остальные нолики:

Для сч = 0 по 9 Цикл
    Сообщить(Формат(pow(10,9-сч),"ЧЦ=10; ЧВН=; ЧГ=0"));  
КонецЦикла

5. user633533_encantado 11 18.12.20 17:49 Сейчас в теме

	Н = 1;
	Пока Н <= 10 Цикл
		
		Ст = "";
		
		П = 1;
		Пока П <=10 Цикл
			
			Если П = Н Тогда
				Ст = Ст + "1";
			Иначе
				Ст = Ст + "0";
			КонецЕсли;
			 
			 П = П + 1;
		 КонецЦикла;
		 
		 Сообщить(Ст);
		
		Н =Н + 1;
	КонецЦикла;

Показать

Остальные ответы

Подписаться на ответы Инфостарт бот

Свернуть все

2. RustamZz 18.12.20 17:41 Сейчас в теме

(1) Что-то не похоже что делал на С#

Массив = 1

Массив = 0

заставляют задуматься.

3. user633533_encantado 11 18.12.20 17:42 Сейчас в теме

Нафига такие задания дают, оторванные от реальности.

7. pavel06 2 18.12.20 18:30 Сейчас в теме

(3)Математику обычно преподают перельманы, оторванные от реальности.
Любят абстрактные задачи для тренировки мозгов.

8. uno-c 266 18.12.20 18:54 Сейчас в теме

(3) Не задание, а забава. Решение в три строчки. А можно и в одну - в экран влезет )

4. KonecEsli 1 18.12.20 17:46 Сейчас в теме

Для j = 0 по 10 цикл
Конеццикла;

Это вообще что ? просто так ? )))

5. user633533_encantado 11 18.12.20 17:49 Сейчас в теме

	Н = 1;
	Пока Н <= 10 Цикл
		
		Ст = "";
		
		П = 1;
		Пока П <=10 Цикл
			
			Если П = Н Тогда
				Ст = Ст + "1";
			Иначе
				Ст = Ст + "0";
			КонецЕсли;
			 
			 П = П + 1;
		 КонецЦикла;
		 
		 Сообщить(Ст);
		
		Н =Н + 1;
	КонецЦикла;

Показать

10. user1511288 19.12.20 01:16 Сейчас в теме

а где добавить условие, чтобы до диагонали были 1, а после 0?
и наоборот

6. uno-c 266 18.12.20 18:28 Сейчас в теме

10х10 по диагонали единички, остальные нолики:

Для сч = 0 по 9 Цикл
    Сообщить(Формат(pow(10,9-сч),"ЧЦ=10; ЧВН=; ЧГ=0"));  
КонецЦикла

9. user633533_encantado 11 18.12.20 19:18 Сейчас в теме

(6) Оригинально.

11. user1511288 19.12.20 01:17 Сейчас в теме

а где добавить условие, чтобы до диагонали были 1, а после 0?
и наоборот?

12. user633533_encantado 11 19.12.20 11:01 Сейчас в теме

(11) Ну сам додумай, тебе дали готовые решения. Их нужно только слегка модифицировать. В моем примере один знак добавить.

Оставьте свое сообщение

E-mail: