Описать юридические программы (сайт распространение описание) 1)ayfie – поисковые и текстоаналитические решения для юридических и финансовых компаний. 2)banyanrfp – облачная онлайн-платформа, которая длительные процессы запроса предложений и позволяет корпоративным юридическим отделам принимать более обоснованные решения. 3)case.one – предоставляет настраиваемую и мощную систему практикой, объединяющую множество функций и платформ в простое в использовании решение. 4)citeck ecos – програма для учёта договоров лидер категории: it audit 5)doelegal – решение, которое повышает эффективность и снижает затраты на предприятиях. 6)epiq systems – администрирование бизнес-операций, ведение судебной отчетности. 7)heretik – решение для машинного обучения, которое устраняет риски, выполняет обязательства и реализует возможности в рамках контрактов. 8)innovative development – работает с большим объемом данных, проводит бизнес-анализ и разрабатывает решения для обеспечения качества продукции крупных компаний. 9)intrensic – платформа для хранения материалов для правоохранительных органов, комплексное решение для цифровыми доказательствами. it audit 10)lawclerk – оптимизирует работу юристов и дает возможность воспользоваться услугами юристов-фрилансеров.
FOR i = 1 TO 100
percents = FIX(x * p / 100) ' здесь у нас есть переменная percents, которой присваиваются округленные функцией fix проценты (насколько я знаю, в паскале аналогичная функция называется Round)
x = x + percents 'тут всё понятно - переменной X присваивается она сама и годовые проценты по вкладу
IF x >= y THEN 'проверяем, не равен или не превысил ли наш вклад ожидаемую сумму
PRINT i 'в цикле For можно не заморачиваться с отслеживанием лет, переменная i сама подсчитает количество итераций-лет
END 'завершаем программу
END IF
NEXT i ' конец цикла
Можно ещё чисто для себя добавить в условие вывод переменной X, чтобы было нагляднее.
DIM n AS INTEGER
INPUT "Введите кол-во студентов:", n
DIM studentYearsOld(1 TO n) AS INTEGER
DIM studentName(1 TO n) AS STRING
FOR i = 1 TO n
INPUT "Введите имя студента:", studentName(i)
INPUT "Введите год рождения студента:", studentYearsOld(i)
NEXT i
PRINT
FOR i = 1 TO n
PRINT "Студент "; studentName(i)
studentYrs = 2016 - studentYearsOld(i)
IF studentYrs < 18 THEN
PRINT "Лет до права голоса:"; 18 - studentYrs
ELSEIF studentYrs >= 18 THEN
PRINT "Студент уже имеет право голоса!"
PRINT
END IF
studentYrs = 0
NEXT i
Код валидный, если допустил ошибку во время переписывания - сообщите.