Языка программирования Delphi. Разработка практических заданий (стр. 5 из 5)

9. Окно редактирования со связанной с ним меткой Operator. В этом окне вводится операция. В программе следует предусмотреть операции +, -, / и * .

10. Окно редактирования со связанной с ним меткой Operand 2. В этом окне вводится второй операнд.

11. Окно редактирования со связанной с ним меткой Result. В этом окне отображается результат запрошенной вами операции.

12. В событиях OnClick каждой кнопки опишите соответствующие действия, например, для кнопки код события должен выглядеть следующим образом:

If Edit2. Text='0' Then ShowMessage('Знаменательравен "0"!')ElseEdit3. Text:=FloatToStr(StrToFloat(Edit1. Text)/StrToFloat(Edit2. Text));

Обратите внимание, что в данном действии осуществляется проверка деления на ноль. Оператор ShowMessage выдает сообщение, представленное на рис. 10 в случае, когда Y равен "0".

Рисунок 9 – Пример формы калькулятора

Рисунок 10 – Сообщение об ошибке

Процедуры FloatToStr и StrToFloat выполняют преобразования из числовой переменной в строковую и из строковой в числовую соответственно.

Остальные клавиши должны быть описаны соответственно.

4.2 Задача 2. Решение квадратного уравнения

Определите корни квадратного уравнения

. Алгоритм решения этой задачи состоит в вычислении детерминанта. Если D  0, то корни действительные, в противном случае – комплексные.

unit SqRoot_;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, OleCtrls;typeTForm1 = class(TForm)Edit1: TEdit;Edit2: TEdit;Edit3: TEdit;Label1: TLabel;Label2: TLabel;Label3: TLabel;Label4: TLabel;Button1: TButton;Label5: TLabel;procedure Button1Click(Sender: TObject);private{ Private declarations }public{ Public declarations }end;varForm1: TForm1;implementation// решаетквадратноеуравнениеprocedure SqRoot(a, b, c: real; var x1, x2: real; var ok: boolean);{ a, b, c - коэффициенты уравненияx1, x2 - корни уравненияok = True - решение естьok = False - решения нет }vard: real; // дискриминантbegind := Sqr(b) - 4 * a * c;ifd < 0thenok := False // уравнение не имеет решенияelsebeginok := True;x1 := (-b + Sqrt(d)) / (2 * a);x2 := (b + Sqrt(d)) / (2 * a);end;end;{$R *. dfm}procedure TForm1. Button1Click(Sender: TObject);vark1, k2: real; // корниуравненияrez: boolean; // True - решение есть, False - решения нетmes: string; // сообщениеbeginSqRoot(StrToFloat(Edit1. Text), StrToFloat(Edit2. Text), StrToFloat(Edit3. Text), k1, k2, rez);if rez thenmes := 'Корниуравнения' + #13 +'x1=' + FloatToStrF(k1, ffGeneral, 4, 2) + #13 +'x2=' + FloatToStrF(k2, ffGeneral, 4, 2) + #13elsemes := 'Уравнение не имеет решения';label5. Caption := mes;end.

4.3 Задача 3. Преобразованиедесятичных чисел в двоичные

Разработка программы преобразования десятичных чисел в двоичные.

Рисунок 11 – Примерформыприложения

Рисунок 12 – Результат выполнения программы

unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;typeTForm1 = class(TForm)Edit1: TEdit;Edit2: TEdit;Label1: TLabel;Label2: TLabel;Button1: TButton;procedure Button1Click(Sender: TObject);private{ Private declarations }public{ Public declarations }end;varForm1: TForm1;implementation{$R *. dfm}procedure TForm1. Button1Click(Sender: TObject);varsDv: string;iMod, iDch :integer; // iDch - нашедесятичноечисло, sDv - двоичное. beginiDch := StrToInt(Edit1. text); // Присваиваемпеременнойзначениеполя Edit1. { Получаем остаток от деления десятичного числа на 2. Делим десятичное число на два без остатка. Добавляем в начало нашего двоичного числа остаток от деления. Если поделенное на 2 без остатка десятичное число меньше двух, то цикл завершает работу, так как если десятичное число меньше 2, оно равно либо 1, либо 0, а эти цифры переводить уже не надо, так как они сами собой и останутся. }while iDch >= 2 dobeginiMod := iDch mod 2;iDch := iDch div 2;sDv := IntToStr(iMod) + sDv;end;Edit2. Text := IntToStr(iDch) + sDv; // Ставим в начало нашего двоичного числа оставшееся после цикла десятичное число(1 или 0) и выводим в Edit2. end;end.

ЗАКЛЮЧЕНИЕ

Система Delphi позволяет решать множество задач, в частности:

•Создавать законченные приложения для Windows самой различной направленности: от чисто вычислительных и логических, до графических и мультимедиа.

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

•Создавать мощные системы работы с локальными и удаленными базами данных

•Создавать справочные системы (файлы . hlp) для своих приложений и мн. др.

Delphi - это комбинация нескольких важнейших технологий:

•Высокопроизводительный компилятор в машинный код

•Объектно-ориентированная модель компонент

•Визуальное (а, следовательно, и скоростное) построение приложений из программных прототипов

•Масштабируемые средства для построения баз данных.

В процессе выполнения курсового проекта я усвоил некоторые возможности Delphi. Но даже этот небольшой объем материала позволил мне убедиться в колоссальности данной среды.

Целью курсовой работы было изучение языка программирования DELPHI и разработка практических заданий.

При выполнении курсовой работы:

· была изучена теория и технология работы с средой программирования BorlandDelphi7;

· была изучена и проанализирована соответствующая литература;

· был проведён сравнительный анализ языков этого класса и показаны преимущества и недостатки языка Delphi;

· были приведены элементы методической работы в виде разработки вариантов заданий (из прикладных областей) для учащихся старших классов школ изучающих Delphi на уроках информатики.

СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ

1. Гофман, В. Э. Delphi. Быстрый старт / В. Э. Гофман, А. Д. Хомоненко. – СПб. : БХВ-Петербург, 2003. – 288 с.

2. Мизрохи, С. В. Turbo Pascal и объектно-ориентированное программирование / С. В. Мизрохи. – М. : Финансы и статистика, 1992. – 193 с.

3. Пестриков, В. М. Delphi на примерах / В. М. Пестриков, А. Н. Маслобоев. — СПб. : БХВ-Петербург, 2005. — 496 с.

4. Стивене, Р. Delphi. Готовые алгоритмы / Род Стивене; Пер. с англ. Мерещука П. А. - 2-е изд. , стер. - М. : ДМК Пресс ; СПб. : Питер, 2004. - 384 с.

5. Фаронов В. В. Deiphi 6. Учебный курс / В. В. Фараонов. – СПб. : Питер, 2002. – 260с.

6. Федоров А. Г. Создание Windows-приложений в среде Delphi / А. Г. Федоров. – М. : ТОО «Компьютер Пресс», 1999. – 347 с.

7. Фленов М. Е. Библия Delphi / М. Е. Фленов. — 2-е изд. , перераб. и доп. – СПб. : БХВ-Петербург, 2008. — 800 с.