Лабораторная работа №15

Рассмотрим пример, в котором числа 2006, 1, 1 выводятся в формате даты 1.1.2006.

var MyTime: TDateTime;

begin

MyTime := EncodeDate(2006, 1, 1);

Edit1.Text := DateToStr(MyTime); end;

Для вывода в однострочное окно текущей записи на экран необходимо Edit1.Text := DateToStr(Now);

Задания для самостоятельной работы:

1. По введенному номеру года найти количество понедельников в этом году.

2. По введенному номеру года найти количество пятниц 13.

Компоненты вкладки Samples. Обработка событий OnDownClick и OnUpClick

TSpinButton – спаренные кнопки

Для данного компонента следует написать обработчики событий OnDownClick и OnUpClick, в которых реализуется реакция программы на щелчок по той или иной кнопке.

TСolorGrid – цветовая таблица

Класс предназначен для выбора и отображения цветов из 16-цветной палитры. Свойство BackGroundIndex содержит индекс выбранного фонового цвета, GridOrdering определяет количество колонок и столбцов.

Лабораторная работа №16

Задача: При нажатии на верхнюю спаренную кнопку выводится сообщение Up, на нижнюю – Down.

procedure TForm1.SpinButton1DownClick(Sender: TObject);

begin

edit2.text:='Down'

end;

procedure TForm1.SpinButton1UpClick(Sender: TObject);

begin

edit2.text:='Up'

end;

Задания для самостоятельной работы:

Составить задачу, в которой форма окрашивается в выбранный из палитры цвет.

Компоненты вкладки Dialogs

TOpenDialog – открытие файлов и TSaveDialog – сохранение файлов

Компоненты имеют идентичные свойства.

Свойство	Описание
FileName	Имя файла из которого читаются (TOpenDialog) или записываются (TSaveDialog) данные
Filter	Отбор файлов
DefaultExt	Формируется полное имя файла, если при ручном вводе пользователь не указал расширение
Files	Доступ к выбранным именам файлов, если разрешен множественный выбор

Лабораторная работа №17

Программа для просмотра содержимого текстового файла.

1. На пустую форму нанести компонент TOpenDialog, кнопку TButton и многострочное поле TMemo.

2. При работе программы щелчок по кнопке будет сигналом о необходимости загрузить в поле новый файл.

3. Procedure TForm1.Button1Click (Sender: TObject);

Begin

// настраиваем компонент на отбор текстовых файлов

OpenDialog1.Filter := ‘Текстовые файлы|*.txt|’+’Bat файлы |*.bat|’;

// выполняем диалог и анализируем его результат

If OpenDialog1.Execute and FileExists(OpenDialog1.FileName) then

// Результат успешный – пользователь выбрал файл

// загружаем файл в поле Memo

Memo1.Lines.LoadFromFile (OpenDialog1.FileName)

End;

Контрольная работа

Вариант №1

1. Найти наибольшее из 3 чисел a, b, c.

2. Найти сумму чисел s=1/(p+2)+ 2/(p+2)+…+ p/(p+2)

3. Дана строка. Найти количество вхождений букв А.

4. Дан двумерный массив. Найти количество элементов меньших 10.

Вариант №2

1. Найти среднее арифметическое положительных чисел из a, b, c, d.

2. Найти сумму чисел s=1+1/2+1/3+…+1/k

3. Дана строка. Найти количество знаков +, -, *, /

4. Дан одномерный массив. Найти сумму элементов кратных 5.

Вариант №3

1. Найти среднее геометрическое положительных чисел из a, b, c.

Примечание: среднее геометрическое считать равному квадратному корню из a*b*c.

2. Найти сумму чисел s=1+1/4+1/9+…+1/n²

3. Дана строка. Заменить * знаком +.

4. Дан одномерный массив. Найти количество элементов равных 0.

Вариант №4*

1. Дана точка А(x1, y1). Определить принадлежит ли она треугольнику со сторонами (x2, y2), (x3, y3), (x4, y4).

2. Найти сумму чисел s=(1+3+5+…+2n-1)²-(2+4+6+…+2n)³

3. Дана строка. Найти сумму входящих в нее цифр.

4. Дан динамический массив. Заполнить его следующим образом:

1	1	1	1
2	2	2	2
…	…	...	…
n	n	n	n