- •Аннотация
- •Содержание
- •Интегрированная среда программирования 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 Построение заполненных сложных геометрических фигур
- •Список литературы
Процедуры ввода – вывода информации Процедуры ввода информации Read, ReadLn
Процедура ввода обеспечивает ввод числовых данных, символов, строк, и т.д. для следующей их обработки программой.
Формат:
Read(X1, X2,…,Xn);
Значения X1, X2,…,Xn набираются минимум через один пробел на клавиатуре пользователем. После набора данных для одной процедуры Read нажимается клавиша ввода. Значения переменных должны вводится в строгом соответствии с синтаксисом языка Pascal. Если соответствие нарушается ( например X1 имеет тип Integer, а при вводе набирается значение типа Char), то возникает ошибка ввода.
Пример:
Var:
I: Real;
J: Integer;
K: Char;
BEGIN
Read(I,J,K);
…
END.
Выполнение программы
I вариант
нет ошибки |
II вариант G 235.47 100 есть ошибка |
Процедуру Read можно использовать для организации пауз произвольной длины при выполнении программы. Для этого достаточно записать: Read(Kbd,Ch). Ch- литерная переменная, Kbd – имя стандартного файла клавиатуры. Программа продолжит работу только после того, как будет нажата любая клавиша на клавиатуре. Введенный символ на клавиатуре не отобразится.
Для ввода данных можно использовать процедуру ReadLn. Она аналогична процедуре Read. После выполнения данной процедуры курсор автоматически перейдет на новую строку.
Процедуры записи Write, WriteLn
Процедура производит вывод числовых данных, символов, строк.
Формат:
Write(Y1,Y2,…,Yn);
Например:
Write(234);
Write(A+B-2); {выводится результат выражения}
Write(List,Summa,A1,A2);
Write(List,’Результат вычислений=’,Rez);
После записи каждого выражения можно задать целочисленное выражение, определяющее ширину поля вывода.
I,p,q – целочисленное выражение
R - выражение вещественного типа
Ch – выражение символьного типа
S – выражение строкового типа.
Форматы процедуры вывода Write
-
I – выводится десятичное представление величины I, начиная с позиции положения курсора.
Значение I
Выражение
Результат
134
287
Write(I)
Write(I,I,I)
134
287287287
-
I:p – выводится десятичное представление величины I в крайние правые позиции поля шириной p.
Значение I
Выражение
Результат
134
1
70
Write(I:6)
Write(I:7)
Write(I+I:4)
134
1
140
-
R – в поле шириной 18 символов выводится десятичное представление R в формате с плавающей точкой.
Значение R
Выражение
Результат
715.432
-1.919E+01
Write(R)
Write(R)
7.1543200000E+02
-1.9190000000E+01
-
R:p – в крайние правые позиции поля шириной p символов выводится десятичное представление значения R в формате с плавающей точкой. Если R>=0 минимальная длина поля вывода 7 символов, если R <=0, то минимальная длина поля вывода 8 символов.
Значение R
Выражение
Результат
511.04
46.78
Write(R:15)
Write(-R:12)
5.110400000E+02
-4.67800E+01
-
R:p:q – в крайние правые позиции поля шириной p символов выводится значение R в формате с фиксированной точкой, причем после десятичной точки выводится q цифр. Если q> 24, то при выводе используется формат с плавающей точкой.
Значение R
Выражение
Результат
511.04
-46.78
Write(R:8:4)
Write(-R:7:2)
511.0400
-46.78
-
Ch – начиная с позиции курсора выводится значение Ch.
Значение Ch
Выражение
Результат
'X'
‘!’
Write(Ch)
Write(Ch,Ch,Ch)
X
!!!
-
Ch:p – в крайнюю правую позицию поля шириной p выводится значение Ch
Значение Ch
Выражение
Результат
'X'
‘!’
Write(Ch:3)
Write(Ch:2,Ch:3)
X
!!
-
S – начиная с позиции курсора выводится значение S
Значение S
Выражение
Результат
'Группа 1’
‘Лицей №2’
Write(S)
Write(S,S)
Группа 1
Лицей №2Лицей №2
-
S:p - значение S выводится в крайние правые позиции поля шириной p символов.
-
Значение S
Выражение
Результат
'Группа 1’
Write(S:12)
Группа 1
Процедура записи WriteLn аналогична процедуре Write, но после вывода последнего в списке значения для текущей процедуры WriteLn происходит перевод курсора к началу следующей строки.