Задания уровня 1

Упражнение 1.
     Задан массив целых чисел. Необходимо удалить из него все совершенные числа. Совершенное число представляет собой сумму всех своих делителей, меньших его самого. Для решения поставленной задачи необходимо проверить каждый элемент массива, и, если он представляет собой совершенное число, удалить его (после удаления остается элемент с тем же номером, однако это уже следующий элемент). В противном случае надо перейти к следующему элементу. В программе будут использоваться две подпрограммы: функция Sover, которая проверяет, является ли число совершенным, и процедура Udal удаления одного элемента из массива.

1. Наберите текст программы:


Program MAS_3;
uses crt;
type
{Тип данных massiv будет использоваться при описании процедуры удаления i-го элемента}
massiv=array[1..1000] of longint;
{Описание функции, проверяющей, является ли число совершенным}
Function Sover (P: longint):boolean;
var sum, m: longint;
begin
if p>1 then
begin {Нахождение суммы общих делителей}
sum:=1; {В начале сумма равна 1, т.к. любое число делится на 1}
for m:=2 to p div 2 do
{Делителем числа может быть любое число от 2 до половины самого себя}
if p mod m=0 then sum:= sum+m; {Если число m – делитель, то добавляем его к сумме}
{Если сумма делителей = самому числу p, то функция возвращает значение true,}
if sum=p then Sover:=true
else Sover:=false {иначе - false}
end
{Числа, меньшие или равные 1, не являются совершенными, поэтому ф-ция возвращает значение false}
else Sover:=false
end;
{Описание процедуры удаления i-го элемента из массива x}
Procedure Udal (var x: massiv; i: word; var N: word);
var j: integer;
begin
for j:=i to N-1 do {Сдвиг массива, начиная с i–го, влево на один элемент}
x[j]:=x[j+1];
N:=N-1; {После удаления элемента его размер становится на один меньше}
end;
var x: massiv;
i: integer;
L: boolean;
n:word;
begin
write ('n='); readln (n);
writeln ('Массив X');
for i:=1 to n do read (x[i]);
i:=1; {Просмотр массива начинаем с первого элемента}
while (i<=n) do {Проверяем, не достигнут ли конец массива}
begin
{Обращение к функции Sover, которая проверяет, является ли элемент массива x[i] совершенным;}
{результат записывается в логическую переменную L}
L:=Sover (x[i]);
{Если число совершенное,то удаляем его из массива. При этом текущим остается элемент с номером i}
{но после удаления там хранится другой элемент}
if L then Udal (x, i, n)
else i:=i+1
{Если число не является совершенным, то переходим к следующему элементу массива}
end;
writeln ('Преобразованный массив X');
for i:=1 to n do
write (x[i], ' ');
end.

2. Запустите программу на выполнение и проверьте её работу: Ctrl-F9
3. Для просмотра результатов выполненной программы необходимо нажать: Alt-F5
4. Сохраните программу на своем диске: A:\P7PR1

Задания уровня 2

Разработать процедуры и функции для решения следующих задач обработки массивов (по вариантам):
1. посчитать количество отрицательных элементов одномерного массива вещественных чисел. Записать программу под именем P7PR2;
2. посчитать сумму квадратов положительных элементов одномерного массива вещественных чисел. Сохранить программу под именем P7PR3;
3. посчитать сумму квадратов отрицательных элементов одномерного массива вещественных чисел. Сохранить программу под именем P7PR4;
4. преобразовать одномерный массив вещественных чисел, присвоив каждому элементу квадрат его значения. Сохранить программу под именем P7PR5;
5. преобразовать одномерный массив вещественных чисел, уменьшив каждый элемент на абсолютную величину среднего значения элементов массива. Сохранить программу под именем P7PR6;
6. преобразовать одномерный массив вещественных чисел, занеся в каждый элемент сумму всех предыдущих элементов (в первый элемент при этом необходимо поместить значение 0). Сохранить программу под именем P7PR7;
7. посчитать сумму квадратов диагональных элементов двумерного массива вещественных чисел. Сохранить программу под именем P7PR8;
8. посчитать максимальную сумму элементов в строках двумерного массива вещественных чисел. Сохранить программу под именем P7PR9;
9. посчитать минимальную сумму элементов в столбцах двумерного массива вещественных чисел. Сохранить программу под именем P7PR10;
10. преобразовать двумерный массив вещественных чисел, занеся значение 0 во все элементы с двумя четными индексами. Сохранить программу под именем P7PR11.

Задания уровня 3

Функции
11. Даны четыре числовых массива f1, f2, f3, f4. Вывести имя того из этих массивов, который имеет наибольшее число элементов (если таких элементов более одного, то вывести имя одного из них). Описать в программе функцию l(f), значение которой равно количеству элементов массива. Сохранить программу под именем P7PR12.
12. Даны действительные числа a, b, c. Получить:
Сохранить программу под именем P7PR13.
Процедуры
13. Дано: натуральное n, действительные a1, …, a3n. Получить x + y2 + z3, где
x = a1 • a2 •…• an ,
y = an+1 • a n+2 •…• a 2n ,
y = a2n+1 • a 2n+2 •…• a 3n
Сохранить программу под именем P7PR14.


Контрольные вопросы:
1. Что такое процедура?
2. Какое назначение имеют процедуры?
3. Как описываются процедуры в программах?
4. Как осуществляется вызов процедуры?
5. Что такое функция?
6. Как описывается функция и в каком месте программы она располагается?
7. Как осуществляется вызов функции в программе?
8. Какие параметры называют формальными, а какие фактическими?
9. Перечислите отличия между процедурой и функцией.
10. Какие переменные называются глобальными?
11. Какие переменные называются локальными?