Задачи для самостоятельного решения. 1. Построить и записать в виде программы алгоритм вычисления суммы квадратов десяти произвольных чисел

1. Построить и записать в виде программы алгоритм вычисления суммы квадратов десяти произвольных чисел, водимых с клавиатуры в процессе выполнения программы.

2. Вводятся 15 чисел. Определить, сколько среди целых чисел.

3. Вывести все чётные числа начиная с числа N и до числа M. Числа N и M задает пользователь.

4. Составить программу, проверяющую, является ли последовательность из 10 целых чисел, вводимых с клавиатуры, возрастающей.

5. Составить программу, печатающую все делители целого числа в порядке возрастания.

6. Составить программу нахождения суммы чётных чисел, находящихся в промежутке от 26 до 88.

7. Найти наибольший общий делитель двух натуральных чисел a и b.

8. Спортсмен в первый день пробежал 10 км. Каждый следующий день он увеличивал норму на 10% от нормы предыдущего дня.

а) Определить через сколько дней спортсмен пробежит суммарный путь более 100 км.

б) Определить через сколько дней спортсмен будет пробегать более 20 км.

в) Какой путь пробежит спортсмен на 7-й день.

9. Вводятся 14 чисел. Определить, сколько среди них положительных (включая 0) и сколько отрицательных. (Числа вводятся в одну переменную в цикле)

10. Запросите 16 чисел и выведите на экран для каждого, делится ли оно нацело на 11. Спросите у пользователя, сколько нужно проанализировать чисел, а затем запросите эти числа и сделайте для каждого вывод, является ли оно четным или отрицательным.

12. Найдите сумму следующей последовательности

а1+а2-а3+а4-...+аn, где n - количество элементов, задаваемых пользователем.

13. Составить программу, печатающую все делители целого числа в порядке убывания.

14. Вывести на экран числа, кратные К из промежутка [А,В]. Числа А, В, К задает пользователь.

15. Запросите у пользователя положительное число А и найдите сумму всех натуральных чисел из промежутка [1, А].

Занятие 2. Цикл с предусловием в графике.

Задача. Построить множество концентрических окружностей (с общим центром), удовлетворяющих следующим условиям:

а) радиус следующей окружности на m меньше предыдущей;

б) процесс построения должен завершиться, когда радиус меньшей окружности станет меньше или равным данному числу а.

Итак, для решения задачи в программе мы должны запросить у пользователя значения переменных m и а, затем инициализировать графический режим и в цикле выполнять построение окружностей, меняя при этом радиус. Для наиболее красочного построения окружностей применим процедуру установки текущего цвета с применением случайных чисел.

Program Krugi;

Uses

Crt, Graph;

Var

i,

m,

R,

a,

DV,

DM: integer;

Begin

ClrScr;

Randomize;

write (‘Введите шаг изменения радиуса окружностей ‘);

readln (m);

write (‘Введите радиус большей окружности ‘);

readln (R);

write (‘Введите радиус меньшей окружности ‘);

readln (а);

write (‘Введите координаты центра ‘);

readln (X, Y);

DV:=detect;

InitGraph (DV, DM, ‘..\BGI’);

SetBkColor (7);

while R>=a do

begin

SetColor (Random(15));

Circle (X, Y, R);

R:=R-m;

end;

readln;

CloseGraph;

End.

Примечание. Здесь применена процедура Randomise, которая инициализирует генератор случайных чисел. Значения же случайных чисел можно получить с помощью функции Random (Х), где Х - параметр, указывающий диапазон значений случайного числа. Оно изменяется в пределах [0,Х[. Результат в этом случае будет типа Word. Если параметр Х не задан, то результат буде типа real в пределах [0.0,1.0[.

Не нашли, что искали? Воспользуйтесь поиском: