Урок №1 языки программирования. Язык паскаль

ВОПРОСЫ

2. Чем характеризуется массив?

3. Как объявляется массив?

4. Перечислить основные этапы работы с массивом.

5. Как можно задавать начальные значения элементам массива?

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

7. Как напечатать элементы массива "в столбик"? "В строчку"?

Урок №25 3 этап работы с массивами: решение задач.
На 3-ем этапе возможно решение различных задач. Рассмотрим простейшие из них.

1. 
   Изменение элементов массива.
   

a[k] := <новое значение>;

Пример: увеличить вдвое каждый элемент массива.

For k := 1 to n do

a[k] := a[k] :* 2;

2. 
   Вычисление суммы элементов.
   

For k := 1 to n do

Summa := Summa + a[k];

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

For k := 1 to n do

Proizv := Proizv * a[k];

4. 
   .Нахождение количества элементов по условию.
   

For k := 1 to n do

If <условие для a[k]> then Kol :=Kol + 1;

Пример: найти количество чётных элементов массива.

Kol := 0;

For k := 1 to n do

If a[k] mod 2 := 0 then Kol :=Kol + 1;
Cамостоятельно. Задать случайным образом 10 элементов массива: целые числа из интервала от -5 до 50. Найти:

1) сумму нечётных элементов;

2) произведение элементов, стоящих на чётных местах;

3) количество отрицательных элементов.

1. 
   В символьном массиве из 6 элементов, заданных с клавиатуры:
   

2) найти количество запятых;

3) поменять все маленькие русские буквы на большие.

2. 
   В числовом массиве из 10 элементов, заданных случайным образом от -100 до 500:
   

2) найти произведение элементов массива, кратных 3 и стоящих на нечётных местах;

3) найти количество двузначных чисел в массиве.
Д/З Ввести с клавиатуры 15 элементов символьного массива. Заменить все цифры на «звёздочки», а все «пробелы» на знаки подчёркивания.

Урок №27 Нахождение максимального (минимального) элемента в

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

Алгоритм можно записать так:

N_max := 1;

For k := 1 to n do

if a[k] > a[N_max] then N_max := k;

После выполнения цикла и выхода из него максимальный элемент – это a[N_max].

1. 
   Найти минимальный элемент и увеличить его на 100.
   
2. 
   Найти максимальный элемент и поменять его местами с первым элементом.
   

For k := p to n-1 do

a[k] := a[k+1];

a[n] := zero;

а) 10-ый элемент;

б) минимальный элемент.
Д/З. Из символьного массива, 7 элементов которого заданы с клавиатуры, удалить максимальный элемент.

Урок №29. Решение задач.

1. 
   В символьном массиве из 6 элементов, заданных с клавиатуры, удалить символы «=».
   
2. 
   В числовом массиве из 10 элементов, заданных случайным образом от -100 до 100:
   

б) удалить все отрицательные элементы.

В теле программы все элементы, начиная с n-ого и до p, следует передвинуть на 1 место к концу массива. После этого можно на p-ое место поставить значение, заданное по условию задачи:

For k := n downto p do

a[k+1] := a[k];

a[p] := <новое значение>;
Самостоятельно. Задать случайным образом 8 элементов числового массива – числа от 100 до 200. Вставить в него:

а) число «-20» перед 5-ым элементом.

б) число «0» перед максимальным элементом;
Д/З. В символьный массив, 10 элементов которого заданы с клавиатуры, вставить символ «м» перед 7-ым элементом.

Урок №31 Решение задач.

1. 
   В символьный массив из 5 элементов, заданных с клавиатуры, вставить символ «+» перед первым символом – цифрой.
   
2. 
   В числовой массив из 11 элементов, заданных случайным образом от -70 до 70:
   

б) вставить перед каждым элементом, кратным 5, число «500».

Сортировка - это упорядочение элементов по возрастанию или убыванию. Алгоритм сортировки состоит из двух циклов:

1) Внешний - выбор места, на который нужно поставить максимальный элемент.

2) Внутренний - поиск максимального элемента.

Рассмотрим алгоритм сортировки по убыванию:

for i := 1 to n-1 do {выбор места}

begin

max := i:

if f[j] >a [max] then max:=j;

x := a[i]; {перестановка элементов}

a[i] := a[max];

a[max] := x

end:

1) по убыванию; 2) по возрастанию.