Не особо знаю паскаль, так что дабы не накосячить с синтаксисом, покажу на примере. Тут всё просто - тебе лишь нужен цикл For и расчет процентов.
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, чтобы было нагляднее.
вот такую херь я нарыл курсе "Компетенции преподавателя электронного обучения" "1. Насколько вас устроил уровень организации мероприятия? Устроил полностью. 2. Какие информационные блоки вы отметили бы особенно и почему? Зарубежный опыт организации ЭО, что это не дело рук одного преподавателя, а коллектива. 3. Какова практическая ценность полученных материалов? Метод знакомиться со студентами в ЭС, потому что не всегда хватает очных занятий для этого. 4. На какие проблемы стоит обратить внимание? Работа в группах при таком большом потоке слушателей сложна в организации, в результате идеи мы представляли, а обратной связи не было, поэтому это было больше развлечением, чем практически ценным. 5. Какие рекомендации и пожелания вы можете для нас оставить? Больше практики. И ИНЭО все таки закупить ПО для более качественного обеспечения работы преподавателя в ТПУ в ЭС, а не пользоваться бесплатными ресурсами интернета, накладывающими свои рекламные логотипы. ". А.В. Жаворонок, кафедра экономики, ассистент О курсе "Организация учебного процесса с использованием технологий электронного обучения по смешанной модели (на основе LMS Moodle и других инструментов и сервисов ЭО за совместную работу, в целом все было замечательно. По курсу Разработка электронного курса по дисциплине на базе LMS Moodle с использованием инструментов и сервисов электронного обучения все отлично, к координаторам можно было всегда подойти и уточнить возникшие во По второму курсу Организация учебного процесса с использованием технологий электронного обучения по смешанной модели (на основе LMS Moodle и других инструментов и сервисов ЭО) я столкнулась со странной стратегией - время вебинаров не совпадало с заявленным и начало вебинара не было прописано в календаре (было бы лучше указывать точное время вебинара в календаре, т.к. календарем пользуются) (и да, только первое началось в указанное время). Мне очень было жаль технарей, т.к. не все термины из педагогики/сетодики им были знакомы. Здесь нужно составить хотя бы мини-глоссарий с наиболее употребляемыми терминами из методики и педагогики (которые позднее будут использованы в презентациях). Эти моменты действительно были самыми запоминающимися, опять-таки, повторюсь, но организаторы курса практически сразу реагировали на сообщения, отвечали и оставляли комментарии по работе. (мне конечно же хотелось получать ответ сразу после моего выложенного, но здесь была своя система, вероятно, по причине большого количества курсантов). Мне кажется, был некоторый перегруз теорией и заданиями, особенно последние два - они были слишком энергозатратными. (Вот, цель 3 лекции не ясна - во к лекции нет, видимо, только лишь для ознакомления)... Данный курс повышения квалификации и нужный, и полезный, задания, необходимые для выполнения, заставляют мозг работать в усиленном режиме большое преподавателям, которые с нами работали и до нас пытались донести все значимое!" Н.В. Аксенова, кафедра иностранных языков института кибернетики, старший преподаватель .
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, чтобы было нагляднее.