- •Основные элементы языка. История создания и развитие языка программирования
- •Структурная схема программы на алгоритмическом языке.
- •Лексика языка. Типы данных.
- •Типы данных
- •Переменные и константы.
- •Выражения и операции.
- •Операторы языка. Синтаксис операторов присваивания.
- •Синтаксис операторов ввода-вывода.
- •Операторы Write и WriteLn
- •Операторы Read и ReadLn
- •Составление программ линейной структуры.
- •Синтаксис операторов безусловного и условного переходов.
- •Составной оператор.
- •Вложенные условные операторы.
- •Составление программ разветвляющейся структуры. Выберите из предложенного ниже списка задачи для самостоятельного решения.
- •Составление программ сложной разветвляющейся структуры.
- •Оператор case. Оператор выбора case. Решение задач.
- •Оператор goto.
- •Синтаксис операторов циклов.
- •Циклические конструкции.
- •Циклы с предусловием.
- •Задачи для самостоятельного решения:
- •Циклы со счетчиком.
- •Общая форма записи цикла со счетчиком
- •Циклы с постусловием.
- •Задачи для самостоятельного решения:
- •Составление программ циклической структуры.
- •Проверьте себя, ответив на вопросы:
- •Доступ к элементам массива.
- •Изменение значения некоторых элементов
- •Нахождение номеров элементов с заданным свойством
- •Нахождение количества элементов с заданным свойством
- •Задачи для самостоятельного решения
- •Вставка элементов в одномерный массив. Вставка одного элемента
- •Вставка нескольких элементов
- •Задачи для самостоятельного решения
- •Перестановка двух элементов
- •Перестановка части массива
- •Работа с несколькими массивами
- •Задачи на использование одномерных массивов
- •Самостоятельное решение задач.
- •Формирование значений элементов массива случайным образом и с клавиатуры и вывод их на экран
- •Нахождение количества элементов с данным свойством
- •Определить, отвечает ли заданный массив некоторым требованиям
- •Изменение значений некоторых элементов, удовлетворяющих заданному свойству
- •Заполнение массива по правилу
- •Задачи для самостоятельного решения
- •Вставка строк и столбцов
- •Удаление строк и столбцов
- •Задачи для самостоятельного решения Задачи на вставку элементов:
- •Задачи на удаление элементов:
- •Задачи для самостоятельного решения
- •Задачи на использованиедвумерных массивов
- •I. Заполнение и анализ элементов массива
- •II. Работа с одномерным и двумерным массивами
- •Дополнительные задачи (на усмотрение учителя)
- •Для любопытных Графические программы с применением массивов.
- •Сортировка выбором
- •Сортировка массива с помощью рекурсии
- •Рекурсивная сортировка слиянием (для любопытных)
- •Строка. Тип данных string. Строковые переменные, их описание. Длина строки. Операции над строками.
- •Задачи для самостоятельного решения
- •Задачи для дополнительного решения (на усмотрение учителя)
- •Стандартные функции для работы со строками (concat,copy,length, pos,upcase). Функция Length
- •Функция Upcase
- •Функция Copy
- •Функция Pos
- •Функция Concat
- •Задачи для самостоятельного решения
- •Стандартные процедуры для работы со строками (delete, insert,str,val).
- •Задачи для самостоятельного решения
- •Задачи для дополнительного решения (на усмотрение учителя)
- •Контрольная работа.
- •Сформулируйте тексты решенных ниже задач
- •Выберите с учителем задачи для самостоятельного решения:
- •Решение задач.
- •Бегущая строка. Пример программы осыпающихся букв. Строки в графическом режиме (для увлеченных программированием).
- •Тип данных char. Операции над символами.
- •1.Организовать ввод фио только на русском языке.
- •2.Вывести все совершенные числа в данном диапазоне.
- •3.Введенное число - полиндром?
- •2.Найти факториал числа с помощью рекурсии.
- •Задачи на построение процедур и функций
- •Самостоятельное решение задач.
- •I Выберите с учителем одну из предложенных ниже задач (тип Integer, real)
- •II Выберите с учителем одну из предложенных ниже задач (тип char)
- •III Выберите с учителем одну из предложенных ниже задач (тип string)
- •IV Выберите с учителем одну из предложенных ниже задач (тип record)
- •Текстовые файлы
- •Компонентные файлы
- •Бестиповые файлы
- •Последовательный и прямой доступ
- •Задачи на работу с файлами
- •Использование библиотеки crt
- •Программирование клавиатуры
- •Текстовый вывод на экран
- •Программирование звукового генератора
- •Использование библиотеки Graph
- •Переход в графический режим и возврат в текстовый
- •Краткая характеристика графических режимов работы дисплейных адаптеров
- •Процедуры и функции
- •Координаты, окна, страницы
Изменение значений некоторых элементов, удовлетворяющих заданному свойству
Задача. В массиве размерностью NxM к элементам четных столбцов прибавить элемент первого столбца соответствующей строки.
Procedure Izmenenie1(Var X : MyArray2; n, m : integer); Var i, j : integer; Begin for i := 1 to n do for j := 1 to m div 2 do Inc(X[i, 2*j], X[i, 1]); End; |
Вопрос. Какой смысл вложен в оператор цикла for j := 1 to m div 2 do?
Задача. Заменить все отрицательные элементы на противоположные.
Procedure Izmenenie2(Var X : MyArray2; n, m : integer); Var i, j : integer; Begin for i := 1 to n do for j := 1 to m do X[i, j] := Abs(X[i, j]); End; |
Заполнение массива по правилу
Задача. Заполнить массив А размером NxM "змейкой" следующим образом: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28
Для того, чтобы заполнить, надо вывести правило заполнения, а оно в данном случае будет таким: если ряд нечетный, то A[i, j]=(i-1)*m+j; если ряд четный, то A[i, j]=i*m-j+1.
По этому правилу и составляем процедуру заполнения:
Procedure FillArray(Var X : MyArray2; n, m : integer); Var i, j : integer; Begin for i := 1 to n do for j := 1 to m do if i mod 2 =1 then A[i, j]=(i-1)*m+j else X[i, j]=i*m-j+1; End; |
Задание. Вставьте в программу-шаблон рассмотренные подпрограммы и организуйте выбор одной из них через меню. Дополните подпрограммы, не содержащие пояснений, соответствующими комментариями. Сохраните файл на дискете. Листинг сдайте учителю для проверки.
Задачи для самостоятельного решения
Выберите задачи из предложенного списка в соответствии с Вашим порядковым номером в журнале. При решении задач используйте программу-шаблон. Не забудьте пояснять решение задачи комментариями. Приготовьтесь объяснить решение задач учителю.
1. Найти сумму и количество элементов с заданным условием (хранить эти значения в массивах):
элементы каждого столбца, кратные k1 или k2;
элементы каждого столбца, попадающие в промежуток [А..В];
элементы каждого столбца, которые являются простыми числами;
элементы каждого столбца положительны и лежат выше главной диагонали;
отрицательные элементы каждого столбца, меньшие заданного числа а;
элементы каждого столбца, меньшие среднего арифметического элементов каждого столбца;
элементы каждой строки, больших среднего арифметического элементов данной строки;
максимальные элементы каждой строки;
отрицательные элементы каждой строки;
элементы каждой строки, равные сумме соседних с ним элементов;
элементы каждой строки, равные элементу в том же столбце, но в предыдущей строке.
2. Найти и вывести на экран индексы заданных элементов массива (если их нет выдать соответствующее сообщение):
четных элементов каждой строки и нечетных элементов каждого столбца;
симметричных чисел;
первых k отрицательных элементов каждого столбца;
последних k отрицательных элементов каждой строки;
последних k отрицательных элементов каждого столбца;
равных между собой элементов каждого столбца;
элементов, являющимися действительными числами;
элементов, являющихся трехзначными числами;
элементов, не имеющих целой части;
элементов, являющихся числами, сумма цифр которых равна заданному числу;
элементов, являющихся числами, первая цифра которых равна заданной.
3. Используя функцию булева типа, определить:
есть ли в данном массиве отрицательный элемент;
есть ли два одинаковых элемента;
есть ли данное число А среди элементов массива;
есть ли в заштрихованной области массива (рис. а) элемент, равный введенному с клавиатуры числу (массив имеет размерность nxn);
есть ли в заштрихованной области массива (рис. b) элемент, равный введенному с клавиатуры числу (массив имеет размерность nxn):
есть ли в заштрихованной области массива (рис. c) элемент, равный введенному с клавиатуры числу (массив имеет размерность nxn):
является ли массив логическим квадратом, то есть суммы по всем горизонталям, вертикалям и двум диагоналям должны быть равны;
добавить к предыдущему условию, что сумма должна быть равна данному числу А;
состоящая только из положительных элементов;
состоящая только из положительных или нулевых элементов;
состоящая только из элементов, принадлежащих промежутку от А до В.
4. Измените исходный массив в соответствии с заданием:
в каждой строке сменить знак максимального по модулю элемента на противоположный;
отрицательный последний элемент каждого столбца заменить нулем;
положительные элементы умножить на первый элемент соответствующей строки, а отрицательные - на последний;
заменить все элементы строки с номером k и столбца с номером р на противоположные по знаку (элемент, стоящий на пересечении, не изменять);
к элементам столбца k1 прибавить элементы столбца k2;
переверните в массиве каждую третью строку;
поменяйте местами заданные элементы каждого столбца;
добавьте к массиву столбец, содержащий максимальный элемент соответствующей строки, и строку содержащую минимальный элемент соответствующего столбца;
найти максимальный элемент каждой строки и заменить им все минимальные элементы строки;
найти минимальный и максимальный элементы столбца и заменить их суммой последний элемент;
переверните в массиве каждую половину каждого столбца.
5. Решите задачу на заполнение массива по определенному правилу.
Составить программу вывода на экран арифметического квадрата, в нем первый столбец и первая строка заполнены единицами, а каждый из остальных элементов равен сумме своих соседей сверху и слева. Квадрат должен быть занесен в массив.
Заполнить массив А размером NxM следующим образом:
21 20 19 18 17 16 15 8 9 10 11 12 13 14 7 6 5 4 3 2 1
Заполнить массив А размером NxM следующим образом:
1 0 2 0 3 0 4 0 5 0 6 0 7 0 8 0 9 0 10 0 11
Заполнить квадратный массив В размером NxN следующим образом:
1 4 7 10 13 17 20 2 5 8 11 14 18 21 3 6 9 12 15 19 22
Заполнить квадратный массив В размером NxN следующим образом:
1 3 4 10 11 21 2 5 9 12 20 22 6 8 13 19 23 30 7 14 18 24 29 31 15 17 25 28 32 35 16 26 27 33 34 36
Заполнить квадратный массив В размером NxN (N<10)следующим образом:
1 2 3 4 5 6 7 11 12 13 14 15 16 17 21 22 23 24 25 26 27
Заполнить квадратный массив В размером NxN следующим образом:
0 1 1 1 1 0 2 0 1 1 0 4 2 2 0 0 4 4 2 2 0 0 4 4 2 0 3 3 0 4 0 3 3 3 3 0
Заполнить квадратный массив В размером NxN следующим образом:
6 1 1 1 1 5 2 6 1 1 5 4 2 2 6 5 4 4 2 2 5 6 4 4 2 5 3 3 6 4 5 3 3 3 3 6
Заполнить квадратный массив В следующим образом: первая строка - числа Фибоначчи, а каждый столбец продолжает ряд Фибоначчи от элемента, находящегося в первой строке.
Заполнить массив рядом натуральных чисел, расположив их закручивающейся спиралью по часовой стрелке.
Заполнить массив рядом натуральных чисел, расположив их раскручивающейся спиралью против часовой стрелки.
Вставка и удаление строк и столбцов.
Мы уже рассматривали такие действия для одномерных массивов. Обобщим для двумерных.