Номера задач задает преподаватель!

1. Составьте программу вычисления суммы четных делителей натурального числа М.

2. Составьте программу подсчета числа делителей, кратных 3, натурального числа М.

3. Составьте программу подсчета суммы нечетных делителей, кратных 5, натурального числа М.

4. Составьте программу подсчета числа нечетных делителей, кратных 7, натурального числа М.

5. Составьте программу вычисления суммы четных делителей натурального числа М, больших Р, но меньших Q.

6. Составьте программу отыскания наименьшего h, при котором число h²+h+41 является составным.

7. Составьте программу подсчета числа натуральных чисел, меньших данного М и являющихся делителями натурального Q.

8. Составьте программу вычисления суммы четных делителей натурального числа М, больших Р, но меньших Q.

9. Составьте программу вычисления произведения простых делителей натурального числа N.

10. Составьте программу вычисления квадрата суммы нечетных делителей натурального числа М.

Лабораторная работа №6. Одномерные массивы

Цель работы: Усвоить правила работы с переменными типа массив языка программирования Turbo Pascal. Научиться составлять алгоритмы и программы для обработки одномерных массивов.

Массивы представляют собой ограниченную упорядоченную последовательность однотипных компонент с индексами. Тип компонент массива может быть любым, кроме файлового. Вся совокупность компонент массива определяется одним именем.

Объявление массива в программе имеет вид:

Var <имя массива>: Array [m..n] of <тип компонент>

Здесь m  начальное значение индекса массива, n  конечное значение.

Доступ к компонентам массива осуществляется через индексы, которые пишутся после имени массива в квадратных скобках. В качестве индекса может использоваться постоянная, переменная или выражение, тип которых совпадает с типом индекса: Х[2], S[i+j].

Задачи, связанные с обработкой массивов можно условно разделить на следующие классы:

1. Однотипная обработка всех или указанных элементов массива.

2. Поисковые задачи для массивов.

3. Сортировка массивов.

Рассмотрим наиболее типичные примеры задач.

Задание 1. Ввод и вывод элементов массива

Составить программу на языке Turbo Pascal для ввода с клавиатуры 10 компонент одномерного массива A и вывода их на экран в обратном порядке.

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

1. Запустите Turbo Pascal.

2. В окне редактирования наберите текст программы:

Program massiv_1;

Const N=10; {Присваиваем верхней границе индексов массива значение 10}

var i: integer;

A: Array [1..N] of Real; {Вместо верхней границы 10 указываем константу N}

begin

For i:= 1 To N Do

begin

Writeln ('Введите значение ', i, ' –го элемента массива');

Read (A[i])

end;

For i:= N Downto 1 Do

Writeln ('A[ ', I, ']=',A[i]:6:2)

end.

3. Запустите процесс компиляции программы.

4. Запустите программу на выполнение.

5. Сохраните программу на диске.