3. Внесите в программу следующие изменения:

а) Измените программу таким образом, чтобы она находила все совершенные числа из данного диапазона. (Натуральное число называется совершенным, если оно может быть представлено в виде суммы всех своих делителей кроме самого себя, например, 6=1+2+3)

б) Измените программу таким образом, чтобы она находила все простые числа из заданного диапазона. Натуральное число называется простым, если оно имеет только два делителя: 1 и само это число.

4. Задание для самостоятельного выполнения.

Начертить блок-схему и составить программу, которая находит сумму всех цифр каждого из чисел в диапазоне от 1 до N.

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

1. Когда циклы называют вложенными?

2. Какой цикл называют внешним, а какой внутренним?

3. Как изменяются параметры циклов разных уровней?

4. Как изменится результат работы программы задания 2, если операторы S:=0 и Writeln (S) вынести за тело внешнего цикла(до и после него соответственно)

Тема: Одномерные массивы.

Цель: выработать умения и навыки учащихся использовать одномерные массивы при решении задач.

План.

1. Повторить теорию.

2. Набрать на компьютере заданную программу.

3. Внести предложенные изменения.

4. Выполнить самостоятельное задание.

5. Ответить на контрольные вопросы.

Ход работы.

1. Теория.

Массив – это упорядоченная последовательность величин одного типа, обозначенная одним именем.

В одномерном массиве каждому элементу соответствует не более, чем 1 индекс.

Примеры описания одномерных массивов:

Type

A=array [1..5] of real;

mas=array ['a'..'d'] of char;

var

x:A; y:mas; z: array [1..7] of integer;;

x - одномерный массив вещественных чисел

из 5 элементов;

y - одномерный массив 4 символов

пронумерованных от 'a' до 'd';

z - одномерный массив целых чисел

из 7 элементов;

Примеры обращения к элементам описанных одномерных массивов:

х[3] x[5] y[3] y[1] z[7] z[2]

Существует несколько способов заполнения одномерных массивов.

1) непосредственное присвоение каждому элементу соответствующего значения;

2) ввод с клавиатуры каждого элемента;

3) с помощью датчика случайных чисел.

Заполним значениями произвольный массив, рассчитанный на 10 вещественных элементов.

Способ 1 Способ 2

Program T_1; Program T_2;

type type

mas=array [1..10] of real; mas=array [1..10] of real;

var var

M:mas; M:mas;

Begin i:integer;

m[1]:=1.5; Begin

m[2]:=2.1; for i:=1 to 10 do

m[3]:=3; read (m[i]);

m[4]:=4.1; End.

m[5]:=5;

m[6]:=6.2; Program T_3;

m[7]:=-3.2; type

m[8]:=0; mas=array [1..10] of real;

m[9]:=1; var

m[10]:=1.2; M:mas;

End. i:integer;

Begin

Randomize;

for i:=1 to 10 do

m[i]:=random(100)-50;

End.

2. Наберите заданную программу и проверьте ее работу на ЭВМ:

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

Program aa1;

Type

mas = array [1..10] of integer;

var X:mas;

I,n,k: integer;

Begin

Read(n); {ввод количества элементов}

K:=0; {присваивание начального значения переменной-

счетчику отрицательных элементов}

For I:=1 to n do

Read(X[i]); {ввод элементов массива}

For I:=1 to n do

If X[i]<0 then k:=k+1;{проверка элементов на

отрицательность}

Writeln(‘количество отрицательных элементов массива равно ‘,k);

End.