
- •ЛР 1. Операторы и выражения Delphi
- •Оператор присваивания
- •Арифметические операторы
- •Оператор конкатенации строк
- •Логические операторы
- •Операторы поразрядного сдвига
- •Операторы отношения
- •Операторы множеств
- •Составной оператор begin..end
- •Условный оператор if..then..else
- •Оператор-селектор case
- •Оператор перехода goto
- •Оператор with..do
- •Организация циклов
- •Цикл с параметром for..do
- •Инструкция in в цикле for..do
- •Цикл с предусловием while..do
- •Цикл с постусловием repeat..until
- •Вложенные циклы
- •Операторы break и continue
- •ЗАДАНИЕ
- •Вариант 1.
- •Вариант 2
- •Вариант 3
- •Вариант 4
- •Вариант 5
- •Вариант 6
- •Вариант 7
- •Вариант 8
- •Вариант 9
- •Вариант 10
- •Вариант 11
- •Вариант 12
- •ЛР 2. Структурные типы
- •Множества
- •Записи
- •Вариантные поля
- •Усовершенствованная запись
- •Массивы
- •Объявление массива
- •Обращение к ячейкам массива
- •Динамический массив
- •ЗАДАНИЕ
- •Вариант 1
- •Вариант 2
- •Вариант 3
- •Вариант 4
- •Вариант 5
- •Вариант 6
- •Вариант 7
- •Вариант 8
- •Вариант 9
- •Вариант 10
- •Вариант 11
- •Вариант 12
- •ЛР 3. Объекты и классы
- •Проектирование класса
- •Управление жизненным циклом объекта
- •Опережающее объявление класса
- •Ограничение видимости членов класса
- •Свойства объекта
- •Особенности объявления методов
- •Поля класса и методы класса
- •Иерархия наследования
- •Полиморфизм
- •ЗАДАНИЕ
- •Вариант 1
- •Вариант 2
- •Вариант 3
- •Вариант 4
- •ЛР4. Опорные классы VCL
- •Класс TObject
- •Класс TPersistent
- •Основа компонента, класс TComponent
- •Владение компонентом
- •Класс TControl
- •Принадлежность к родительскому контейнеру
- •Размещение и размеры элемента управления
- •События, связанные с изменением размеров
- •Выравнивание элемента управления в контейнере
- •Видимость и активность элемента управления
- •Задание
- •Вариант 1
- •Вариант 2
- •Вариант 3
- •Вариант 4
- •Вариант5
- •Совет
- •ЛР5. Обработка клавиатурных событий и событий мышки
- •Щелчки кнопками мыши
- •Перемещение указателя мыши
- •Вращение колесика мыши
- •Операция перетаскивания drag and drop
- •Обработка событий клавиатуры
- •Задание
- •Вариант 1
- •Вариант 2
- •Вариант 3
- •Вариант 4
- •Вариант 5
- •ЛР 6. Классы потоков данных
- •Прототип потоков данных, класс TStream
- •Потоки с дескриптором, класс THandleStream
- •Файловый поток данных, класс TFileStream
- •Пример работы с файловым потоком данных
- •Задание
- •Вариант 1.
- •Вариант 2.
- •Вариант 3.
- •Вариант 4.
- •Вариант 5.

Языки программирования
Counter : Integer; begin
Accept:=true;
Counter:=0;
while Accept=true do begin
Accept:=<ЛОГИЧЕСКОЕ ВЫРАЖЕНИЕ>;
INC(Counter); //Counter:=Counter+1; if Counter>10 then break;
end; end;
Цикл while..do будет выполняться до тех пор, пока переменная Accept принимает значение true. Но количество итераций в любом случае не превысит числа 10, контроль за этим осуществляется с помощью переменной-счетчика Counter. При достижении Counter значения 11 работа цикла прекращается.
В листинге 1.20 предложен еще один пример. На этот раз нам необходимо подсчитать сумму нечетных чисел, входящих в диапазон от 0 до 99. Для этого воспользуемся оператором continue и операцией целочисленного деления MOD, вычисляющей остаток от деления.
Листинг 1.20. Переход к очередной итерации с помощью continue
var X,Sum:Integer; begin
Sum:=0;
for X:=0 to 99 do begin
if (X MOD 2)=0 then continue; {пропускаем итерации с четным значением x}
Sum:=Sum+X; {накапливаем нечетные числа} end;
WriteLn(Sum);
Readln; end;
Если переменная X принимает четное значение, то оператор continue принуждает цикл начать новую итерацию (досрочно увеличивает счетчик цикла на единицу). Поэтому суммируются только нечетные значения из диапазона чисел 0—99.
ЗАДАНИЕ
Вариант 1.
1) Вычислить и вывести на экран в виде таблицы значения функции F на интервале от Xнач. до Xкон.
с шагом dX |
|
|
2 + |
при < 0 и ≠ 0 |
|
|
|||
|
= |
− |
при > 0 и = 0 |
|
|
|
− |
||
|
|
|
|
|
Где a,b,c — действительные числа. Значения a,b,c, |
dX, Xнач. и Xкон вводятся с клавиатуры. |
|||
в остальных случаях |
||||
|
|
|
|
|
Вариант 2
1)Вычислить и вывести на экран в виде таблицы значения функцииF на интервале от Xнач. до Xкон. с шагом dX
13
СКФУ Кафедра компьютерной безопасности

Языки программирования |
|
|
|
|
|
|
1 |
− |
при + 5 < 0 и = 0 |
|
|
|
|
|
|
= |
− |
при + 5 > 0 и ≠ 0 |
|
|
|
|
||
|
|
10 |
в остальных случаях |
|
Где a,b,c — действительные числа. Значения a,b,c, |
||||
|
|
−4 |
dX, Xнач. и Xкон вводятся с клавиатуры. |
|
|
|
|
|
Вариант 3
1) Вычислить и вывести на экран в виде таблицы значения функцииF на интервале от Xнач. до Xкон.
с шагом dX |
|
2 + + |
при < 0 и ≠ 0 |
||
= |
|||||
− |
|
при > 0 и = 0 |
|||
Где a,b,c — действительные числа. |
|
( + ) |
|
в остальных случаях |
|
|
Значения−a,b,c, |
dX, Xнач. и Xкон вводятся с клавиатуры. |
Вариант 4
1) Вычислить и вывести на экран в виде таблицы значения функцииF на интервале от Xнач. до Xкон.
с шагом dX |
|
|
− − |
при < 0 и ≠ 0 |
|
|
|||
|
= |
− |
при > 0 и = 0 |
|
|
|
− |
||
|
|
|
в остальных случаях |
|
Где a,b,c — действительные числа. Значения a,b,c, |
||||
|
|
|
− |
dX, Xнач. и Xкон вводятся с клавиатуры. |
|
|
|
|
Вариант 5
1) Вычислить и вывести на экран в виде таблицы значения функцииF на интервале от Xнач. до Xкон.
с шагом dX |
|
− |
|
при < 0 и ≠ 0 |
|
|
|
|
|
10 + |
|
|
= |
− |
при > 0 и = 0 |
||
|
− |
||||
|
|
|
|
2 |
в остальных случаях |
Где a,b,c — действительные числа. |
|
3 + |
|||
|
|
Значения a,b,c, dX, Xнач. и Xкон вводятся с клавиатуры. |
Вариант 6
1) Вычислить и вывести на экран в виде таблицы значения функции F на интервале от Xнач. до Xкон.
с шагом dX |
|
|
2 + 2 |
|
при < 0 и ≠ 0 |
|
|
||||
|
= |
+ |
|
при > 0 и = 0 |
|
|
|
+ |
|
||
|
|
|
|
в остальных случаях |
|
Где a,b,c — действительные числа. Значения a,b,c, |
|||||
|
|
|
|
|
dX, Xнач. и Xкон вводятся с клавиатуры. |
|
|
|
|
|
Вариант 7
1)Вычислить и вывести на экран в виде таблицы значения функцииF на интервале от Xнач. до Xкон. с шагом dX
14
СКФУ Кафедра компьютерной безопасности

Языки программирования |
|
|
|
|
|
|
|
2 + |
при < 0 и ≠ 0 |
|
= |
− |
при > 0 и = 0 |
|
|
|
− |
||
|
|
|
в остальных случаях |
|
Где a,b,c — действительные числа. Значения a,b,c, |
||||
|
|
|
|
dX, Xнач. и Xкон вводятся с клавиатуры. |
|
|
|
|
Вариант 8
1) Вычислить и вывести на экран в виде таблицы значения функцииF на интервале от Xнач. до Xкон.
с шагом dX |
|
1 |
− |
при + 5 < 0 и = 0 |
|
||||
|
|
|
|
|
|
= |
− |
при + 5 > 0 и ≠ 0 |
|
|
|
|
||
|
|
10 |
|
|
Где a,b,c — действительные числа.Значения a,b,c, |
dX, Xнач. и Xкон вводятся с клавиатуры. |
|||
в остальных случаях |
||||
|
|
−4 |
|
Вариант 9
1) Вычислить и вывести на экран в виде таблицы значения функцииF на интервале от Xнач. до Xкон.
с шагом dX |
|
2 + + |
при < 0 и ≠ 0 |
||
= |
|||||
− |
|
при > 0 и = 0 |
|||
|
Значения−a,b,c, |
dX, Xнач. и Xкон вводятся с клавиатуры. |
|||
Где a,b,c — действительные числа. |
|
( + ) |
|
в остальных случаях |
Вариант 10
1) Вычислить и вывести на экран в виде таблицы значения функцииF на интервале от Xнач. до Xкон.
с шагом dX |
|
|
− − |
при < 0 и ≠ 0 |
|
|
|||
|
= |
− |
при > 0 и = 0 |
|
|
|
− |
||
|
|
|
|
|
Где a,b,c — действительные числа. Значения a,b,c, |
dX, Xнач. и Xкон вводятся с клавиатуры. |
|||
в остальных случаях |
||||
|
|
|
− |
|
Вариант 11
|
|
− |
|
при < 0 и ≠ 0 |
|
1)Вычислить и вывести на экран в виде таблицы значения функции F на интервале от Xнач. до Xкон. с |
|||||
шагом dX |
|
|
|
10 + |
|
|
= |
− |
при > 0 и = 0 |
||
|
− |
||||
|
|
|
|
2 |
в остальных случаях |
Где a,b,c — действительные числа. |
|
3 + |
|||
|
|
Значения a,b,c, dX, Xнач. и Xкон вводятся с клавиатуры. |
Вариант 12
1)Вычислить и вывести на экран в виде таблицы значения функции F на интервале от Xнач. до Xкон. с шагом dX
15
СКФУ Кафедра компьютерной безопасности
Языки программирования |
|
|
|
|
|
|
|
|
2 + 2 |
|
при < 0 и ≠ 0 |
|
= |
+ |
|
при > 0 и = 0 |
|
|
|
+ |
|
||
|
|
|
|
в остальных случаях |
|
Где a,b,c — действительные числа. Значения a,b,c, |
|||||
|
|
|
|
|
dX, Xнач. и Xкон вводятся с клавиатуры. |
|
|
|
|
|
16
СКФУ Кафедра компьютерной безопасности