LES01.htm – LES03.htm, LES07.htm,LES08.htm, LES10.htm
Лекции.ИНФО


LES01.htm – LES03.htm, LES07.htm,LES08.htm, LES10.htm



 

Материал Уч. Д2, необходимый для написания работы,

Глава3, пп.1-3, Глава4, п.1-2

 

Перечень основных компонент, необходимых для выполнения работы

TFORM, TLABEL, TEDIT, TSCROLLBAR, MessageDlg, MessageBox

 

Пример разработки приложения с минимальной функци­ональностью.

 

Ниже приведена программа, обладающая следующей функцио­нальностью. Имеется меню, содержащее пункты – Выход, Ввод/Вывод и О программе,

Продемонстрированы методы работы со следующими элементами контроля – метками, полями ввода и полосой прокрутки. Данные элементы являются базовыми для организации интерфейса в собственной программе студента.

 

unit L2_2;

Interface

Uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Menus;

Type

TForm1 = class(TForm)

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

Labl1: TMenuItem;

Edt1: TMenuItem;

ScrollBar1: TMenuItem;

Label1: TLabel;

ScrBr1: TMenuItem;

Edit1: TEdit;

Label2: TLabel;

ScrollBar2: TScrollBar;

Label3: TLabel;

public

procedure N2Click(Sender: TObject);

procedure Labl1Click(Sender: TObject);

procedure Label1Click(Sender: TObject);

procedure Edt1Click(Sender: TObject);

procedure Edit1KeyPress(Sender: TObject; var Key: Char);

procedure ScrollBar2Change(Sender: TObject);

procedure ScrollBar1Click(Sender: TObject);

procedure ScrollBar2Exit(Sender: TObject);

procedure Edit1Exit(Sender: TObject);

procedure ScrBr1Click(Sender: TObject);

end;{class}

 

Var

Form1: TForm1;

 

Implementation

{$R *.dfm}

 

{Реакция на событие – пункт меню «Выход»}

procedure TForm1.N2Click(Sender: TObject);

begin

Close;

end; {Proc}

 

{Реакция на событие – пункт меню «Ввод-вывод-Label»}

procedure TForm1.MenuLablClick(Sender: TObject);

begin

Label1.Visible:=True;

end; {Proc}

 

{Реакция на событие – клик на метку «Label»}

procedure TForm1.Label1Click(Sender: TObject);

begin

Label1.Visible:=False;

end; {Proc}

 

{Реакция на событие – пункт меню «Ввод-вывод-Edit»}

procedure TForm1.Edt1Click(Sender: TObject);

begin

Label2.Visible:=true; Edit1.visible:=true;

end; {Proc}

 

{Реакция на событие – ввод с клавиатуры в Edit}

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

var

v:real;

code:integer;

begin

if(key=#13) then begin {Конец ввода}

val(Edit1.Text,v,code);

if(code<>0) then begin

MessageDlg('Введено не число !!!', mtInformation, [mbOk], 0);

Edit1.Text:='1';

end else begin

if(v<=0) then begin

MessageDlg('Плохое число !!!', mtInformation, [mbOk], 0);

Edit1.Text:='1';

end else begin

Edit1.Visible:=false; Label2.Visible:=false

end;

end;

end;

inherited;

end; {Proc}

 

 

{Реакция на событие – изменение ScrollBar}

procedure TForm1.ScrollBar2Change(Sender: TObject);

var

s:string;

begin

Str(Scrollbar2.Position,s); Label3.Caption:='Текущее значение '+ s;

end; {Proc}

 

{Реакция на событие – щелчок по ScrollBar }

procedure TForm1.ScrollBar1Click(Sender: TObject);

begin

Label3.Visible:=true; Scrollbar2.Visible:=true;

end; {Proc}

 

{Реакция на событие – ScrollBar, потеря фокуса ввода}

procedure TForm1.ScrollBar2Exit(Sender: TObject);

begin

Scrollbar2.Visible:=false; Label3.Visible:=false;

end; {Proc}

 

{Реакция на событие – Edit, потеря фокуса ввода}

procedure TForm1.Edit1Exit(Sender: TObject);

begin

Edit1.Visible:=false; Label2.Visible:=false;

end; {Proc}

 

{Реакция на событие – пункт меню «О программе»}

procedure TForm1.MenuAbout(Sender: TObject);

var

st: string;

begin

st:='Мини. Лаб. № 2';

with Application do begin

MessageBox(Pchar(st), 'О программе', MB_OK);

end;

end; {Proc}

 

end.{Unit}

 

Примерный перечень заданий для выполнения студентами

 

1. Числа a и b – длины катетов одного прямоугольного треуголь­ника, c и d – другого. Разработать программу, определяющую, являются ли треугольники подобными.

2. Разработать программу, которая представляет исходную строку в обратном порядке и при этом удаляет в строке результата указан­ную группу символов.

3. Разработать программу, которая заменяет в исходной строке одну указанную группу символов на другую.

4. Вычислить сумму

 

с заданной точностью ε для различных значений параметров a, b.

5. Вычислить значения функции на отрезке с шагом h>0

6. Вычислить значения функции на отрезке с шагом h>0

7. Вычислить сумму

 

с заданной точностью ε для различных значений параметров a, b.

 

8. Вычислить сумму

 

 

с заданной точностью ε для различных значений параметров a, b.

 

9. Вычислить сумму

 

 

с заданной точностью ε для различных значений параметров a, b.

 

10. Разработать программу, которая удаляет из строки все повторно встречающиеся символы.

11. Разработать программу, которая из строки, содержащей некоторый текст, выделяет все слова и печатает их в алфавитном порядке (по первой букве).

12. Разработать программу, которая определяет, является ли данная строка палиндромом (пример: «А роза упала на лапу Азора»).

13. Разработать программу, которая исключает из данной строки группы символов, расположенные между скобками [ … ]. Сами скобки тоже должны быть исключены.

14. Дана строка символов, состоящая из нулей, единиц и пробелов. Группы единиц и нулей, разделенные пробелами и не содержащие пробелов внутри себя, называются словами. Разработать программу, подсчитывающую число слов в строке. Рассматривая слова как числа (двоичные), определить количество слов, делящихся на 5 без остатка. Найти максимальное и минимальное такое слово.

15. Разработать программу, реализующую основные арифметические операции с комплексными числами.

 

Вопросы для самопроверки

 

1. Когда и почему исчезает элемент управления Edit при нажатии клавиши «ввод»?

2. Каковы условия исчезновения с формы элементов управления?

3. Где в программе сохраняется численное значение введенного числа в Edit?

4. Как изменить свойства метки Label1, чтобы она не исчезала с формы при нажатии, а изменяла цвет фона?

5. Какова реакция ScrollBar на щелчок мыши?

 


ЛАБОРАТОРНАЯ РАБОТА Л-2.3

 

Работа с файлами

 

Основной целью третьей лабораторной работы является изучение приемов работы с файлами, а также использование стандартных диалогов в системе Delphi.

 

Материал Уч. Д1, необходимый для написания работы, -









Читайте также:

Последнее изменение этой страницы: 2016-03-17; Просмотров: 63;


lektsia.info 2017 год. Все права принадлежат их авторам! Главная