Последние записи
- Удаление папки с файлами
- Распечатка файла
- Преобразовать массив байт в вещественное число (single)
- TChromium (CEF3), сохранение изображений
- Как в Delphi XE обнулить таймер?
- Изменить цвет шрифта TextBox на форме
- Ресайз PNG без потери прозрачности
- Вывод на печать графического файла
- Взаимодействие через командную строку
- Перенести программу из Delphi в Lazarus
Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk
Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw
27th
Фев
Пронумеровать те позиции для которых значение ДА начиная с указанной (Del) позиции
Posted by Chas under Delphi
Есть шесть переменных содержащих в себе только одно значение из двух либо ДА либо НЕТ. Назовем их var1,var2,var3,var4,var5,var6. Так же есть еще переменная в первой находиться числа от 1 до 6 назовем её ‘Del’.
Если сразу в 2 переменных будет значение нет, то как узнать последовательность присваивания значений?
А так же если 3 переменые = нет, 4 переменые = нет и 5 переменые = нет
evg_m
Описание алгоритма решения
счетчик =1
начинаем присвоения с указанной в Del
и пропускаем те переменные для которых значение =нет.
Увеличение счетчика только при присвоении
Набросок решения
вместо 6 переменных массив
num:=1; // счетчик
for j:=0+Del to 5+Del do begin // начинаем с индекса del
if var[j mod 6] then begin // закольцование массива
val[j mod 6]:=num;
num:=num+1; // при удаче увеличиваем счетчик
end;
если критично 6 переменных, не массив
case j mod 6 of
0: if var1 then begin var1:=num; num:=num+1; end;
1: if var2 ....
...
5: if var6 ....
end;
Похожие статьи
Купить рекламу на сайте за 1000 руб
пишите сюда - alarforum@yandex.ru
Да и по любым другим вопросам пишите на почту
пеллетные котлы
Пеллетный котел Emtas
Наши форумы по программированию:
- Форум Web программирование (веб)
- Delphi форумы
- Форумы C (Си)
- Форум .NET Frameworks (точка нет фреймворки)
- Форум Java (джава)
- Форум низкоуровневое программирование
- Форум VBA (вба)
- Форум OpenGL
- Форум DirectX
- Форум CAD проектирование
- Форум по операционным системам
- Форум Software (Софт)
- Форум Hardware (Компьютерное железо)