- •Аннотация
- •Содержание
- •Интегрированная среда программирования Turbo Pascal 7.0
- •Основные понятия языка Turbo Pascal 7.0
- •Алфавит языка
- •Структура программы
- •Раздел объявления меток
- •Раздел объявления констант
- •Строковые и символьные константы
- •Простые типы данных
- •Выражения Арифметические выражения
- •Математические функции
- •Условные выражения и операции отношения
- •Логические выражения и операции
- •Процедуры ввода – вывода информации Процедуры ввода информации Read, ReadLn
- •Процедуры записи Write, WriteLn
- •Форматы процедуры вывода Write
- •Простые операторы
- •Оператор присваивания
- •Примеры решения задач
- •Оператор безусловного перехода Goto
- •Структурированные операторы
- •Составной оператор
- •Условный оператор If
- •Примеры решения задач
- •Условный оператор Case
- •Примеры решения задач
- •Оператор цикла For
- •Особенности выполнения оператора For
- •Примеры решения задач
- •Оператор цикла Repeat…Until
- •Особенности выполнения оператора Repeat
- •Примеры решения задач
- •Оператор повтора While
- •Особенности выполнения оператора While
- •Примеры решения задач
- •Вложенные циклы
- •Массивы
- •Одномерные массивы Основные понятия
- •Описание массива
- •Заполнение массива
- •6.1.4 Примеры решения задач
- •1. Алгоритмы поиска и присвоения значений элементам массива
- •2. Алгоритмы нахождения суммы, произведения и количества элементов массива. Работа с индексами элементов массива
- •3. Алгоритмы нахождения наибольшего или наименьшего элемента массива и его индекса
- •6.2 Двумерные массивы
- •6.2.1 Основные понятия
- •6.2.2 Описание массива
- •6.1.3 Заполнение и вывод элементов двумерного массива
- •6.1.4 Примеры решения задач
- •1. Алгоритмы действий над элементами двумерного массива
- •2 Алгоритмы формирования одномерного массива
- •3 Алгоритмы нахождения наибольшего и наименьшего элементов двумерного массива
- •7. Множества
- •7. 1 Операции над множествами
- •7.2 Примеры решения задач
- •8. Строки
- •8.1 Строковые выражения
- •8.2 Стандартные процедуры и функции для обработки строковых данных
- •Обнаруживает первое появление в строке St2 подстроки St1. Результат равен номеру той позиции, где находится первый символ подстроки St1.
- •8.3 Примеры решения задач
- •1.Задачи на подсчет символов.
- •2. Задачи на замену символов.
- •3. Задачи на удаление символов.
- •4. Задачи на вставку символов.
- •9. Процедуры и функции, определенные пользователем
- •9.1 Процедуры пользователя
- •1 Вариант
- •2 Вариант
- •9.2 Функции пользователя Формат описания функции:
- •9.3 Параметры
- •9.3.1 Параметры – значения
- •9.3.2 Параметры - переменные
- •10 Модуль crt. Процедуры и функции модуля crt
- •11 Модуль Graph
- •11.1 Классификация типов драйверов и видеорежимов
- •11.2 Инициализация графики
- •11.3 Переключение между текстовым и графическим режимами
- •11.4 Система координат
- •Отображение строк
- •11.5 Управление текущим указателем
- •11.6 Отображение точки на экране
- •11.7 Определение параметров пикселов
- •11.8 Отображение отрезков прямых линий
- •11.9 Вычерчивание линий различных стилей
- •11.10 Построение прямоугольников
- •11.10.1 Построение прямоугольника на плоскости
- •11.10.2 Построение закрашенного прямоугольника
- •11.11 Установка стиля заполнения
- •11.13 Построение заполненных областей изображения
- •11.13.1 Построение заполненного сектора эллипса
- •11.13.2 Построение заполненного эллипса
- •11.13.3 Построение заполненных сложных геометрических фигур
- •Список литературы
Простые операторы
Простыми являются те операторы, которые не содержат в себе других операторов. К ним относятся:
-
Оператор присваивания;
-
Обращение к процедуре;
-
Оператор безусловного перехода Goto.
Оператор присваивания
Формат:
< Идентификатор>:=<выражение>;
Выполняется выражение, стоящее в правой части и присваивается результат переменной, стоящей в левой части. Переменная и выражение должны иметь один и тот же тип.
Например:
Sort:=1;
Gen:=15.23;
NAZV:=’Модель’;
Rez:=sin(a)+cos(b);
Примеры решения задач
1. Даны две целые переменные A, B. Составить фрагмент программы, после исполнения которого, значения переменных поменялись бы местами (новое значение A равно старому значению B и наоборот).
USES Crt;
VAR
A, B, T : INTEGER;
BEGIN
ClrScr; { Чистка экрана }
Write(‘ Введите два значения ‘);
ReadLn(A,B);
{Введем дополнительную целую переменную T}
T := A; A := B; B := T;
Write(A,B);
END.
2. Задан радиус окружности. Найти площадь и длину окружности.
USES Crt;
VAR
R : INTEGER;
S,L: REAL;
BEGIN
ClrScr;
Write(‘ Введите радиус окружности ‘);
ReadLn(R);
{Pi - зарезервированное значение}
S:=Pi*R*R; {Вычисление площади окружности}
L:=2*Pi*R; {Вычисление длины окружности}
WriteLn(‘ Площадь окружности = ’,S:4:2);
WriteLn(‘ Длина окружности = ‘,L:4:2);
END.
Примеры для самостоятельного решения:
-
Для двух данных чисел найти среднее арифметическое и среднее геометрическое модулей этих чисел.
-
Для данного числа А, не пользуясь никакими арифметическими операциями, кроме умножения, получить А8 за три операции и А10, А16, за четыре операции.
-
Мальчик купил несколько тетрадей по сто рублей и несколько обложек по 50 рублей. Составить программу, которая могла бы подсчитать стоимость всей покупки.
-
Даны две целые переменные A, B. Составить фрагмент программы, после исполнения которого, значения переменных поменялись бы местами (новое значение A равно старому значению B и наоборот), не используя дополнительных переменных.
Оператор безусловного перехода Goto
Формат:
Goto <метка>;
Применяется в случаях, когда после выполнения некоторого оператора следует выполнить не следующий по порядку, а какой – либо другой, отмеченный меткой оператор. Метка может содержать как цифровые, так и буквенные символы.
Пример: Вывести четные числа до 30.
Label Met1, Met2;
Var I:Integer;
BEGIN
I:=2;
WriteLn(‘Четные числа’);
Met1:
WriteLn(I);
I:=I+2;
If I>30 Then Goto Met2;
Goto Met1;
Met2: WriteLn(‘До свидания’);
END.
Структурированные операторы
Структурированными являются такие операторы, которые состоят из других операторов. К ним относятся:
-
Составной оператор;
-
Условный оператор If;
-
Условный оператор Case;
-
Оператор цикла For;
-
Оператор цикла While;
-
Оператор цикла Repeat.
Составной оператор
Составной оператор представляет собой группу из произвольного числа операторов, отделенных друг от друга «;» и ограниченную операторными скобками Begin и End
Формат:
Begin
<оператор>;
<оператор>;
…….
<оператор>;
End;
Например:
Begin
A:=A*B+(N-D);
Rez:=A+B*Pi;
WriteLn(Rez:12:6);
End;