М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
AlimVolk
AlimVolk
12.03.2020 12:49 •  Информатика

Каким свойствам должен удовлетворять любой алгоритм

👇
Ответ:
масяня114
масяня114
12.03.2020
1. должен быть разбит на последовательность отдельных шагов
2. Не содержать лишних предписаний (комментарий)
3. иметь результат
4. ориентирован на конечного пользователя
5. соблюдение концепции ооп
4,4(44 оценок)
Открыть все ответы
Ответ:
Vhrgrg
Vhrgrg
12.03.2020
//PascalABC.NET версия 3.2, сборка 1389
//Если программа не запускается, то обновите версию

uses graphABC;
const
    kegl = 40;

var
    space, line: integer;

procedure M(cx, cy: integer);
begin
    MoveTo(cx, cy);
    LineTo(cx, cy - kegl );
    LineTo(cx + kegl div 2, cy);
    LineTo(cx + kegl, cy - kegl);
    LineTo(cx + kegl, cy);
end;

procedure I(cx, cy: integer);
begin
    MoveTo(cx, cy - kegl);
    LineTo(cx, cy );
    LineTo(cx + kegl, cy - kegl);
    LineTo(cx + kegl, cy);
end;

procedure R(cx, cy: integer);
begin
    MoveTo(cx, cy);
    LineTo(cx, cy - kegl);
    LineTo(cx + kegl, cy - kegl);
    LineTo(cx + kegl, cy - kegl div 2);
    LineTo(cx, cy - kegl div 2);
end;

begin
    space := kegl div 2;
    
    SetWindowSize(4 * space + 3 * kegl, 4 * space + 3 * kegl );
    
    line := space + kegl;
    M(space, line );
    I(2 * space + kegl, line );
    R(3 * space + 2 * kegl, line );
    
    line := 2 * space + 2 * kegl;
    R(space, line );
    I(2 * space + kegl, line );
    M(3 * space + 2 * kegl, line );
    
    line := 3 * space + 3 * kegl;
    M(space, line );
    I(2 * space + kegl, line );
    M(3 * space + 2 * kegl, line );
end.
4,6(5 оценок)
Ответ:
utrofimova06
utrofimova06
12.03.2020

Если не математическим, а программным образом, то примерно так

 

A2(), А3(), А4(),А5()   это массивы, в которых сохраним эти числа

ц2=0;

ц3=0;

ц4=0; 

ц5=0;  // это их индексы

Для ц=100 до 999 Цикл

      Если Остаток(ц+1,2)=0 Тогда

                   ц2=ц2+1;

                   А2(ц2)=ц;

      КонецЕсли;

      Если Остаток(ц+2,3)=0 Тогда

                   ц3=ц3+1;

                   А3(ц3)=ц;

      КонецЕсли;

 

      Если Остаток(ц+3,4)=0 Тогда

                   ц4=ц4+1;

                   А4(ц4)=ц;

      КонецЕсли;

 

      Если Остаток(ц+4,5)=0 Тогда

                   ц5=ц5+1;

                   А5(ц5)=ц;

      КонецЕсли;

 

КонецЦикла;

 

// Теперь их напечатаем

Сообщить("При увеличении на 1 делятся на 2");

Для ц=1 по ц2 Цикл

   Сообщить(А2(ц));

КонецЦикла;

 

Сообщить("При увеличении на 2 делятся на 3");

Для ц=1 по ц3 Цикл

   Сообщить(А3(ц));

КонецЦикла;

 

Сообщить("При увеличении на 3 делятся на 4");

Для ц=1 по ц4 Цикл

   Сообщить(А4(ц));

КонецЦикла;

 

Сообщить("При увеличении на 3 делятся на 4");

Для ц=1 по ц4 Цикл

   Сообщить(А4(ц));

КонецЦикла;

   

Сообщить("При увеличении на 4 делятся на 5");

Для ц=1 по ц5 Цикл

   Сообщить(А5(ц));

КонецЦикла;

 

 

Ну вот, где-то так.

 

Но если математически, то нужно по-другому, и информатика здесь совершенно ни при чём, скорее теория чисел.

 

 Да, в условии не сказано, что ОДНОВРЕМЕННО, поэтому я решал задачу "не одновременно"

 

Если одновременно, то ещё проще, всего одно условие со сложным условием и можно без массивов.

 

Ну и ещё: использована функция Остаток(), она есть в любом языке. Если нет(??!), то легко пишется вручную.

 

4,8(77 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ