- •Основные элементы языка. История создания и развитие языка программирования
- •Структурная схема программы на алгоритмическом языке.
- •Лексика языка. Типы данных.
- •Типы данных
- •Переменные и константы.
- •Выражения и операции.
- •Операторы языка. Синтаксис операторов присваивания.
- •Синтаксис операторов ввода-вывода.
- •Операторы 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
- •Переход в графический режим и возврат в текстовый
- •Краткая характеристика графических режимов работы дисплейных адаптеров
- •Процедуры и функции
- •Координаты, окна, страницы
Контрольная работа.
Вариант 1
1. Результатом вычисления функции Copy('программирование',4,5) будет слово
миров
грамм
программ
программа
грамми
2. Результатом работы программы:
Var x : string[6]; Begin x := ‘мим’+’озадаченный’; writeln(x); End.
будет слово:
мим озадаченный
мимозадаченный
мимоза
озадаченный мим
озадаченныймим
3. Составьте подпрограмму для решения задачи:
Выясните, какая из букв (первая или последняя) встречается в заданном слове чаще.
Вариант 2
1. Результатом работы программы:
Program DemoUpcase; Var Word : string; i : Byte; Begin Word := 'фирма Microsoft'; for i := 1 to Length (Word) do Word[i] := UpCase (Word[i]); writeln(Word); {выводится текст 'фирма MICROSOFT'} End.
будет предложение:
'Фирма MICROSOFT'
'ФИРМА MICROSOFT'
'фирма Microsoft
'фирма MICROSOFT'
'фирма microsoft
2. Вызывая функцию Copy не нужно указывать:
имя строки, из которой должен извлекаться копируемый фрагмент,
позицию в строке, начиная с которой будет копироваться фрагмент,
число копируемых символов;
имя строки, в которую копируется данный фрагмент
имя функции.
3. Составьте подпрограмму для решения задачи:
Сколько букв "у" в слове стоит на четных местах?
Вариант 3
1. Результатом работы программы:
Program DemoFunctionLength; Var Word : string[9]; Begin Word := 'Я люблю программировать'; writeln(Length (Word)); End.
будет:
9
23
'Я люблю программировать'
'Я люблю '
256
2. Результатом работы программы:
Program DemoFunctionPos; Var Word : string; SearchWord : string[20]; Position : Byte; Begin Word := 'Карл у Клары украл кораллы. Клара у Карла украла кларнет.'; SearchWord := 'Карл'; Position := Pos(SearchWord, Word); writeln (Position ); End.
будет:
1 и 37
37
28
1
0
3. Составьте подпрограмму для решения задачи:
Вычеркните i-ые буквы текста и посчитайте в нем количество введенных повествовательных предложений.
Вариант 4
1. Встроенная функция Length позволяет определить: (а не, установленную при декларации):
фактическую длину текстовой строки, хранящейся в указанной переменной,
величину предельного размера строки,
предполагаемую величину строки,
начальную длину строки,
длину строки, заранее заданную пользователем.
2. Результатом работы программы:
Program DemoFunctionConcat; Var Word : string; Word1, Word2 : string[20]; Begin Word1 := ' Microsoft '; Word2 := ' фирмы'; Word := Concat('Компьютеры ',Word1,Word2); writeln(Word); End.
будет текст:
' фирмы Компьютеры Microsoft',
' Microsoft Компьютеры фирмы ',
'Компьютеры фирмы Microsoft',
'Компьютеры Microsoft фирмы ',
'Компьютеры Microsoft фирмы '.
3. Составьте подпрограмму для решения задачи:
Вычеркните из слова Х те буквы, которые встречаются в слове Z.
Вариант 5
1. При подсчете фактической длины строки:
учитываются все входящие в нее символы,
учитываются все входящие в нее символы, кроме пробелов,
учитываются не все входящие в нее символы,
учитываются все входящие в нее символы, исключая служебные символы,
учитываются все входящие в нее символы, имеющиеся на клавиатуре.
2. Результатом работы программы:
Program DemoProcedureStr; Var Word : string; Chislo : integer; Begin Chislo := 1560; Str(Chislo:8, Word); writeln(Word); End.
будет текст:
'1500',
' 1560',
' 1560',
100000000',
'00001560'.
3. Составьте подпрограмму для решения задачи:
Напишите программу, которая вводит строку и выводит ее, сокращая каждый раз на 1 символ до тех пор, пока в строке не останется 1 символ.
Вариант 6
1. C помощью функции Pos Вы можете осуществить поиск некоторого фрагмента в строке. Если заданный фрагмент в строке присутствует, то:
функция возвращает количество фрагментов в строке,
функция возвращает нуль,
функция вырезает найденный фрагмент из строки,
функция заменяет найденный фрагмент на введенный ранее,
функция возвращает номер позиции, с которой начинается фрагмент.
2. Результатом работы программы:
Program DemoProcedureVal; Var Word : string; Chislo, Code : integer; Begin writeln('Введите строку цифр '); readln(Word); Val(Word, Chislo, Code); {преобразование строки в число} if Code <> 0 then writeln(‘??????????????’); End.
должно быть следующее сообщение:
'Ошибка! В позиции ',Code,' не ноль!',
'Ошибка! Цифра Code,' не закодирована!',
'Прекрасно! Число в переменной ',Code,' !',
'Ошибка! В позиции ',Code,' не цифра!',
'Прекрасно! Число в переменной ', Chislo,' !'.
3. Составьте подпрограмму для решения задачи:
Составьте программу вычисления суммы мест, на которых в слове Х стоят буквы "в" и "п".