Читать онлайн «Информатика. Задачи. Часть 2. Задачи на тему: массивы, строки, множества»
Автор Я. М. Русанова
Министерство образования Российской федерации
Ростовский ордена Трудового Красного Знамени
государственный университет
Н. И. Амелина, Я. М. Русанова, А. А. Чекулаева
Информатика. Задачи. Часть 2
Задачи на тему:
массивы, строки, множества. Методические указания для студентов дневного и вечернего отделений
механико-математического факультета
Ростов - на - Дону
2002
2
Печатается по решению учебно-методической комиссии
механико-математического факультета РГУ от . . 2002. АННОТАЦИЯ
Методические указания содержат набор задач, предназначенных
для отработки основных приемов программирования при работе с
такими структурами данных, как одномерные и двумерные массивы,
строки и множества. Методические указания предназначены для начинающих
программистов, студентов младших курсов, специализирующихся в
области прикладной математики, и для преподавателей, ведущих
практические занятия по программированию. Авторы: Н. И. Амелина, Я. М. Русанова, А. А. Чекулаева
© Н. И. Амелина, Я. М. Русанова, А. А. Чекулаева, 2002
3
СОДЕРЖАНИЕ
1 Массив как структура данных ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... 4
2 Двумерные массивы (матрицы)... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... . 8
3 Сортировка массивов. Поиск элементов. ... ... ... ... ... ... ... ... ... ... ... ... ... ...
... 12
4 Строки ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... 15
5 Множества ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... . . 19
4
1. 1 Массив как структура данных. Программа, которая из данных n целых чисел выводит сначала все
отрицательные числа, а затем - все остальные. Program MAS;
const nmax = 10;
type IArray = array[1. . nmax] of integer;
var A: IArray;
n, i: byte;
begin
write ('количество элементов массива = ');
readln (n);
writeln ('Введите элементы массива. ');
for i := 1 to n do readln (A[i]);
writeln ('Вывод по заданному правилу:');
for i := 1 to n do
if A[i]< 0 then writeln(A[i]);
for i := 1 to n do
if A[i] >= 0 then writeln(A[i]);
end.
1. 1. 1 Дан массив целых чисел. Найти:
а) сумму (произведение) положительных (отрицательных)
элементов массива;
б) среднее арифметическое его положительных (отрицательных)
элементов;
в) сумму (произведение) четных (нечетных) элементов массива;
г) сумму (произведение) элементов массива, кратных (не
кратных) заданному числу.
1. 1. 2 Дан массив чисел A.
