Задания для самостоятельной работы

1. Найти сумму ряда чисел 1+2*2+3*3+...+n*n, где n вводится с клавиатуры. Вывести результат в окне.

2. Найти сумму ряда чисел: 1+1/2+1/3+...+1/n, где n вводится с клавиатуры. Вывести результат в окне.

3. По введенному числу M распечатать все 3-х значные десятичные числа, сумма цифр которых равна M. Посчитать также количество таких чисел или сообщить, что таких чисел нет.

4. Ежемесячная стипендия студента составляет А рублей, а расходы на проживание превы­шают стипендию с составляют В рублей в месяц. Рост цен ежемесячно увеличивает расходы на проживание на 3%. Напишите программу расчета необходимой суммы денег, которые нужно единовременно попросить у родителей, чтобы можно было прожить учебный год(10 месяцев), использую только эти деньги и стипендию. Создайте удобный интерфейс для ввода информации.

5. У студента имеются накопления S рублей. Ежемесячная стипендия сос­тавляет A рублей, а расходы на проживание превышают стипендию и сос­тавляют B рублей в месяц. Рост цен ежемесячно увеличивает расходы на 3%. Напишите программу расчета времени (в месяцах), которое может про­жить студент, использую только эти накопления и стипендию. Подумайте, изменится ли алгоритм, если инфляция не постоянна.

6. Нарисовать 20 прямоугольников (окружностей) случайного цвета и размера в случайных местах экрана.

7. Нарисовать 15 концентрических окружностей случайного цвета с центром в се­ре­­дине экрана, радиус каждой следующей окружности больше предыдущей на 10 пикселей. Прижать окружности к правому краю, к левому краю, к верхнему краю, нижнему краю.

8. Нарисовать шахматную доску. Расставить начальную позицию белых и черных шашек, как показано на рисунке

9. Написать программу, которая выводит на экран изображенный ниже узор.

10. Написать программу, которая выводит на экран изображенный ниже узор:

11. Написать программу, которая выводит на экран оцифрованную координатную сетку.

12. Нарисовать поле для игры «Сапер» размером 10 на 10 клеточек, нарисовать 10 мин голубого цвета в случайных местах поля, как показано на рисунке:

Контрольные вопросы

1. Что такое цикл? Какие виды циклов применяются в Pascal?

2. Для чего используется цикл со счетчиком? Как работает цикл со счетчиком? Какой оператор языка Pascal реализует цикл со счетчиком?

3. В каких случаях следует использовать цикл с предусловием? Какова блок-схема работы цикла с предусловием, поясните?

4. Какой оператор языка Pascal реализует цикл с предусловием?

5. Может ли цикл с предусловием не выполниться ни разу? В каких случаях?

6. Может ли цикл с предусловием выполняться бесконечное число раз? В каких случаях?

7. Цикл с постусловием: в каких случаях используется? Какова блок-схема выполнения цикла с постусловием?

8. Какой оператор языка Pascal позволяет реализовать цикл с постусловием?

9. Может ли цикл с постусловием не выполниться ни разу?

10. Что необходимо предпринять, чтобы прервать программу, которая зациклилась (зависла)?

11. Какой оператор позволяет немедленно выйти из цикла?

12. Какой оператор позволяет перейти на начало цикла?

13. Для чего используется функция Random?

14. Для чего используется процедура Randomize?