- •Алфавит и словарь языка Паскаль
- •Правила написания идентификаторов:
- •Константы и переменные
- •Типы данных
- •Перечень типов данных в Турбо Паскале
- •Стандартные библиотечные модули
- •Примечание
- •Операторы
- •Простые операторы
- •Структурные операторы
- •Стандартные арифметические действия
- •Практическое занятие №2 процедуры ввода-вывода
- •Процедура чтения read
- •Процедура записи write
- •Практическое задание n2 3 Структурные операторы. Операторы условия.
- •Оператор условия If
- •Практическое задание № 4
- •Оператор повтора repeat
- •Практическое задание n9 6 Контрольная работа по Turbo Pascal 7.0
- •Практическое задание n2 7 Массивы
- •Поиск элемента в массиве
- •1: Write (‘ номер элемента массива, равного данному ’, I); 2: End.
- •Практическое задание n2 9 Таблицы
- •Вычисление суммы элементов главной диагонали квадратной таблицы.
- •Нахождение сумм элементов столбцов таблицы,
- •Процедуры без параметров
- •Var a, b: integer; {локальные переменные}
- •Наберите программу вычисления наименьшего общего кратного.
- •2.0Ператор безусловного перехода.
- •Рекурсии
- •Наберите программу вычисления факториала числа с использованием рекурсии.
- •7. Проем о:,
- •Практическое задание № 13 записи
- •Дан массив записей, содержащий сведения о работниках предприятия.
- •,J: integer; s: real; p: string [10]; begin { формирование массива записей }
- •Практическое задание n914 файлы Файл- это совокупность данных, записанная во внешней памяти под определенным именем.
- •Средства обработки файлов.
- •Открытие файла для операции запись производится оператором:
- •Открытие файла для чтения производится оператором: reset (f);
- •Чтение данных из файла осуществляется оператором: read (f, а);
- •Практическое задание № 15 Множества
- •Операции над множествами:
- •Наберите программу, определяющую количество гласных и согласных букв в
- •Управление экраном компьютера
- •Наберите программу, которая в разных текстовых режимах выводит текст, смещая его по диагонали и вставляет строку текста.
- •Наберите программу, которая выводит на экран окно с изменяющимся цветом фона и цветом текста.
- •Задачи для контрольной работы
- •Практическое задание № 8 Сортировка массива
- •Наберите программу сортировки массива методом пузырька:
- •Процедуры с параметрами
- •Управление звуком компьютера
- •2. Наберите программу, позволяющую произвести прсхггую музыкальную гамму.
Практическое задание № 8 Сортировка массива
Сортировка - это упорядочение массивов по какому - либо признаку (например, сортировка фамилий работников предприятия в порядке возрастания алфавита от А до Я). Существуют различные методы сортировок, различающиеся, в основном, по скорости получения результата.
Наберите программу сортировки массива методом пузырька:
Откопируйте программу, запустите ее на выполнение. Просмотрите результат. Сохраните программу на носителе, создайте .ехе-файл.
Процедуры с параметрами
Для удобства передачи данных в процедуру и получение из нее результата используются формальные и фактические параметры. Формальные - это условные обозначения в описании процедуры - описываются в ее заголовке. Фактические - с которыми требуется выполнить процедуру - перечисляются при вызове процедуры. Например, процедура NOD с параметрами может иметь заголовок Procedure NOD (а, b: integer; var k: integer);
Вызов этой процедуры NOD (x, у, m);
Или: NOD (36,54, m);
2. Наберите программу, используя процедуру с параметрами, и найдите среднее арифметическое, наибольший и наименьший элемент массива.
Program АВС14; Const n =10;
Откомпилируйте программу и запустте ее на выполнение. Введите следующее предложение: Мама мыла раму Просмотрите результат. Сохраните программу и создайте ехе-файл. Произвольно наберите несколько предложений и проследите за работой программы.
Управление звуком компьютера
Для создания звуковых эффектов в Турбо Паскале используются стандартные процедуры Sound, Nosound, Delay модуля CRT
Sound ( I : word ) - активизирует звуковые средства персонального компьютера. Целочисленное значение I указывает частоту звучания звука в герцах. Звук указанной частоты будет генерироваться до тех пор, пока не будет отменен процедурой Nosound.
Nosound - OTivieHa звука. Отменяет звуковой режим, заданный процедурой Sound.
Для указания времени, в течение которого будет продолжаться звучание, используется процедура Delay
2. Наберите программу, позволяющую произвести прсхггую музыкальную гамму.
Program АВС23;
Uses Crt;
Const
F: array [ 1. .12 ] of real = (130.8,138.6,146.8,155.6,164.8,
174.6,185.0,196.0,207.7, 220.0, 233.1,246.9);
Temp = 150;
Var
K, N : integer;
Begin
For К := 0 to 3 do ForN: = 1 to 12 do Begin
Sound (Round (F [ N ] * (1 shl k)));
Delay (Temp);
NoSound;
End;
For К: = 33 downto 0 do
1 Откомпилируйте программу Alt F9.