- •Основные элементы языка. История создания и развитие языка программирования
- •Структурная схема программы на алгоритмическом языке.
- •Лексика языка. Типы данных.
- •Типы данных
- •Переменные и константы.
- •Выражения и операции.
- •Операторы языка. Синтаксис операторов присваивания.
- •Синтаксис операторов ввода-вывода.
- •Операторы 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
- •Переход в графический режим и возврат в текстовый
- •Краткая характеристика графических режимов работы дисплейных адаптеров
- •Процедуры и функции
- •Координаты, окна, страницы
Вставка строк и столбцов
Для решения задачи вставки строки необходимо:
Первые k строк оставить без изменения.
Все строки после k-ой сдвинуть на одну назад, это лучше сделать, начиная с последней строки и идти до (k+1)-ой.
Элементам строки k+1 присвоить заданное значение.
Увеличить количество строк.
Кроме того, необходимо изменить размерность массива. Так как мы вставляем строку, то число строк будет на одну больше.
Задача. Вставить строку из нулей после строки с номером k.
Procedure Insert1(Var X : MyArray2; n, m : integer; k1 : integer); Var i, j : integer; Begin for i := n downto k1 +1 do for j := 1 to m do X[i+1, j] := X[i, j];{элементу столбца j присваиваем элемент этого же столбца, но из предыдущей строки} for j := 1 to m do X[k1+1, j] := 0; Inc(n); End; |
Для вставки столбца пользуйтесь практически тем же правилом, только размерность увеличивается для столбцов и сдвигаем назад столбцы.
Задание. Напишите программу, содержащую процедуры вставки строки и столбца из заданного одномерного массива.
И еще несколько советов.
Если необходимо вставить после строки, удовлетворяющей какому-либо условию, то надо найти лишь ее номер и задача сводится к рассмотренной выше.
Если надо вставлять после всех строк с заданным условием, то надо увеличить размерность по строкам, и если строка удовлетворяет условию, то к ней применять вставку. При этом надо заметить, что лучше просматривать строки с последней и ввести счетчик вставленных строк.
Вставка перед строкой с данным номером отличается лишь тем, что сдвигать назад надо не с (k+1)-ой строки, а с k-ой.
Удаление строк и столбцов
Для решения задачи удаления строки необходимо:
Сдвинуть все строки, начиная с данной на одну вверх.
Последнюю строку обнулить.
Уменьшить количество строк.
Процедура удаления строки приведена ниже.
Procedure Delete1(Var X : MyArray2; Var n, m : integer; k1 : integer); Var i, j : integer; Begin for i := k1 to n-1 do for j := 1 to m do X[i, j] := X[i+1, j]; for j := 1 to m do X[n, j] := 0; Dec(n); End; |
Удаление столбца аналогично удалению строки.
И еще несколько советов.
При выводе на экран полученного массива не выводите нулевые строки и столбцы.
Задачу об удалении строки с заданным условием можно решить тем же способом, достаточно только найти ее номер, а в случае отсутствия такой строки можно просто сообщить об этом и закончить программу.
Задание. Выберите с учителем задачи из предложенного списка. Решите их, применяя подпрограммы, приготовьте для проверки 3-4 теста.
Задачи для самостоятельного решения Задачи на вставку элементов:
Вставить первую строку после строки, в которой находится первый встреченный максимальный элемент и первый столбец перед всеми столбцами, в которых встретится заданное число. Если такого столбца или строки нет, то вывести сообщение об этом.
Вставить второй столбец после первого столбца, в котором все элементы положительны и заданную строку перед всеми строками, в которых все элементы отрицательны. Если такого столбца или строки нет, то вывести сообщение об этом.
Вставить нулевую строку и нулевой столбец перед строками и столбцами, где находятся минимальные элементы.
Вставить после всех строк, в которых есть заданное число А, последнюю строку, а перед столбцами, которые задал пользователь, нулевой столбец. Если такого столбца или строки нет, то вывести сообщение об этом.
Вставить перед всеми столбцами, в которых нет отрицательных элементов, второй столбец, а после строк, в которых есть отрицательный элемент, вставить строку, полученную случайным образом. Если такого столбца или строки нет, то вывести сообщение об этом.
Вставить перед всеми строками, в которых есть 0, первую строку, а после всех столбцов, в которых есть отрицательные элементы - первый столбец.
Вставить нулевую строку и столбец перед строкой и после столбца, в которых встретился элемент, равный сумме своих индексов. Если такого столбца или строки нет, то вывести сообщение об этом.
Вставить нулевую строку и столбец перед строкой и столбцом, в которых встретился минимальный элемент.
В квадратном массиве вставить перед четными столбцами нулевой столбец, а после нечетных строк строку, состоящую из единиц.
Если в строке есть элемент, равный среднему арифметическому элементов этой строки, то вставьте после него строку, состоящую из этих элементов. Перед столбцом, в котором находится элемент, равный индексу строки, вставьте строку, состоящую из единиц. Если такого столбца или строки нет, то вывести сообщение об этом.
Если в строке имеется элемент, равный сумме своих соседей, то вставить перед этой строкой нулевую и после столбца, в котором находится этот элемент, нулевой столбец. Если такого столбца или строки нет, то вывести сообщение об этом.