Задача

[Alex фс]

Помогите тупому человеку это решить

Задача 1.

Объявлены две числовые переменные a и b. Необходимо сделать так, чтобы без объявления других переменных в результате работы алгоритма значения переменных поменялись местами. Например, если изначально a = 4, b = 5, то в результате алгоритма стало a = 5, b = 4. Применять можно только операции присваивания и арифметические операции с числами и значениями переменных.



Задача 2.

За один цикл вычислить значение функции F(n)
= 1!*2!*3!...*n!., где n! = 1*2*3*...*n.



Задача 3.

Убрать условный оператор «Если» из следующего блока (А может принимать значение 0 или 1):

Если (А = 0) Тогда
B = 2;
Иначе
В = 1;
КонецЕсли;

Не допускается использование ЛЮБЫХ других условных операторов (например, ?(А = 0;2;1))



Задача 4.

Имеются два массива данных А[а] и B[в] (а и в – количества элементов массива). Известно, что оба массива упорядочены по возрастанию. Необходимо написать алгоритм, проходящий по этим массивам за 1 цикл вида:

Для Сч = 1 По а + в Цикл

и выдающий значения обоих массивов в порядке возрастания т.е. как бы объединив оба массива и отсортировав их по возрастанию.



Задача 5.

Имеется неупорядоченный массив из n различных целых чисел от 0 до n (0,1,...,j-1,j+1,....,n). Необходимо за один цикл определить недостающее число j.

[antoneus]

1.

Код Выделить Развернуть

a = a + b;
b = a - b;
a = a - b;

2.

Код Выделить Развернуть

Результат = 1;
Для сч = 2 По n Цикл
   Результат = Результат * сч
КонецЦикла;

3.

Код Выделить Развернуть

B = 2 - A;

4.

Код Выделить Развернуть

поз1 = 0;
поз2 = 0;
Для сч = 1 по а + в Цикл
   Если поз1 = а Тогда
      Сообщить(б[поз2]);
      поз2 = поз2 + 1;
      Продолжить;
   КонецЕсли;
   Если поз2 = в Тогда
      Сообщить(а[поз1]);
      поз1 = поз1 + 1;
      Продолжить;
   КонецЕсли;
   Если а[поз1] <= в[поз2] Тогда
      Сообщить(а[поз1]);
      поз1 = поз1 + 1;
   Иначе
      Сообщить(б[поз2]);
      поз2 = поз2 + 1;     
   КонецЕсли;
КонецЦикла;

5.

Код Выделить Развернуть

СуммаЧисел = (n + 1) * (n + 2) / 2;
СуммаМассива = 0;
Для сч = 0 По n - 1 Цикл
    СуммаМассива = СуммаМассива + Массив[сч];
КонецЦикла;
Если СуммаЧисел <> СуммаМассива Тогда
    Сообщить(СуммаЧисел - СуммаМассива)
КонецЕсли;

Добавлено: 26 янв 2019, 17:59

В переменных запутался) Решение 4 выглядит так:

Код Выделить Развернуть

поз1 = 0;
поз2 = 0;
Для сч = 1 по а + в Цикл
   Если поз1 = а Тогда
      Сообщить(МассивВ[поз2]);
      поз2 = поз2 + 1;
      Продолжить;
   КонецЕсли;
   Если поз2 = в Тогда
      Сообщить(МассивА[поз1]);
      поз1 = поз1 + 1;
      Продолжить;
   КонецЕсли;
   Если МассивА[поз1] <= МассивВ[поз2] Тогда
      Сообщить(МассивА[поз1]);
      поз1 = поз1 + 1;
   Иначе
      Сообщить(МассивВ[поз2]);
      поз2 = поз2 + 1;     
   КонецЕсли;
КонецЦикла;

[Alex фс]

antoneus, Мне кажется тут не полные ответы на задачи

[antoneus]

В смысле?

[Alex фс]

antoneus, у меня при выполнении 4 задачи какие то ошибки

[antoneus]

Надо переменные МассивА и МассивВ проинициализировать. И переменные а и в тоже - это размеры массивов. Я привел алгоритм, не всё же за вас делать)

[Alex фс]

Код Выделить Развернуть

Перем  а;
Перем  в;
поз1 = 0; 
поз2 = 0;
МассивА = Новый Массив;
МассивВ = Новый Массив;

МассивА.Добавить(9);
МассивА.Добавить(18);
МассивА.Добавить(3);
МассивА.Добавить(21);
МассивА.Добавить(11);
МассивА.Добавить(8);
МассивА.Добавить(5);

МассивВ.Добавить(1);
МассивВ.Добавить(4);
МассивВ.Добавить(2);
МассивВ.Добавить(10);
МассивВ.Добавить(12);
МассивВ.Добавить(17);
МассивВ.Добавить(20);





Для сч = 1 по а + в Цикл
   Если поз1 = а Тогда
      Сообщить(МассивВ[поз2]);
      поз2 = поз2 + 1;
      Продолжить;
   КонецЕсли;
   Если поз2 = в Тогда
      Сообщить(МассивА[поз1]);
      поз1 = поз1 + 1;
      Продолжить;
   КонецЕсли;
   Если МассивА[поз1] <= МассивВ[поз2] Тогда
      Сообщить(МассивА[поз1]);
      поз1 = поз1 + 1;
   Иначе
      Сообщить(МассивВ[поз2]);
      поз2 = поз2 + 1;     
   КонецЕсли;
КонецЦикла;
КонецПроцедуры



Добавлено: 27 янв 2019, 18:53

antoneus, ,

[antoneus]

Нет, инициализация - это именно присвоение переменной значения.

Код Выделить Развернуть

Перем а; - это объявление переменной, после которого в ней содержится неопределено и, соответственно на строке

Код Выделить Развернуть

Для сч = 1 по а + в Цикл возникает ошибка. Нужно после заполнения массивов написать

Код Выделить Развернуть

а = МассивА.Количество();
в = МассивВ.Количество();

Добавлено: 28 янв 2019, 09:47

И пятую правильнее так:

Код Выделить Развернуть

СуммаЧисел = n * (n + 1) / 2;
СуммаМассива = 0;
Для сч = 0 По n - 1 Цикл
    СуммаМассива = СуммаМассива + Массив[сч];
КонецЦикла;
Если СуммаЧисел <> СуммаМассива Тогда//числа не хватает
    НедостающееЧисло = (n + 1) * (n + 2) / 2 - СуммаМассива;
    Сообщить("Недостающее число: " + НедостающееЧисло)
Иначе
    Сообщить("Все числа на месте.")
КонецЕсли;