49521 (Языка программирования Delphi. Разработка практических заданий), страница 4
Описание файла
Документ из архива "Языка программирования Delphi. Разработка практических заданий", который расположен в категории "". Всё это находится в предмете "информатика" из 1 семестр, которые можно найти в файловом архиве . Не смотря на прямую связь этого архива с , его также можно найти и в других разделах. Архив можно найти в разделе "курсовые/домашние работы", в предмете "информатика, программирование" в общих файлах.
Онлайн просмотр документа "49521"
Текст 4 страницы из документа "49521"
3.2 Анализ языка программирования Visual Basic
В 1991 г. фирмой Microsoft был разработан и выпущен Visual Basic. Microsoft Visual Basic — средство разработки программного обеспечения, разрабатываемое корпорацией Microsoft и включающее язык программирования и среду разработки. Язык Visual Basic унаследовал дух, стиль и отчасти синтаксис своего предка — языка Бэйсик, у которого есть немало диалектов. В то же время Visual Basic сочетает в себе процедуры и элементы объектно-ориентированных и компонентно-ориентированных языков программирования. Среда разработки VB включает инструменты для визуального конструирования пользовательского интерфейса.
Visual Basic считается хорошим средством быстрой разработки прототипов программы, для разработки приложений баз данных и вообще для компонентного способа создания программ, работающих под управлением операционных систем семейства Microsoft Windows.
Первое признание серьёзными разработчиками Visual Basic получил после выхода версии 3 — VB3. Окончательное признание как полноценного средства программирования для Windows — при выходе версии 5 — VB5. Версию VB6, входящую в состав Microsoft Visual Studio 6. 0, стала по-настоящему зрелым и функционально богатым продуктом.
3.2.1 Достоинства языка программирования
Высокая скорость создания приложений с графическим интерфейсом для MS Windows. Простой синтаксис, позволяющий очень быстро освоить язык. Возможность как компиляции в машинный код, так и интерпретации во время отладки.
3.2.2 Недостатки языка программирования
Поддержка операционных систем только семейства Windows (Исключение — VB1 for DOS). Отсутствие механизма наследования объектов. Существующие в языке наследование, позволяет наследовать только интерфейсы объектов, а не их самих. Таким образом, в унаследованом классе должны быть явно переписаны все функции базового класса. Также в унаследованном классе невозможно добавление каких-либо методов, присущих только даннному классу, то есть если абстрактный базовый класс содержит только два метода, то и производный класс содержит только два метода, не более и не менее того. Требует установленных DLL для работы программы.
Часто критике подвергаются такие аспекты Visual Basic, как возможность отключить средства слежения за объявленными переменными, возможность неявного преобразования переменных, наличие типа данных «Variant». По мнению критиков, это даёт возможность писать крайне плохой код. С другой стороны, это можно рассматривать как плюс, так как VB не навязывает «хороший стиль», а даёт больше свободы программисту.
Отсутствие указателей, низкоуровневого доступа к памяти, ASM-вставок. Несморя на то, что парадигма Visual Basic позволяет среднему VB-программисту обходиться без всего этого, перечисленные вещи также нередко становятся объектами критики. И хотя, используя недокументированные возможности и определённые ухищрения, всё это можно реализовать и на VB; пользоваться этими трюками гораздо сложнее, чем, например, на Delphi.
4. ПРАКТИЧЕСКАЯ РЕАЛИЗАЦИЯ ЗАДАЧ С ИСПОЛЬЗОВАНИЕМ ЯЗЫКА ПРОГРАММИРОВАНИЯ DELPHI
4.1 Задача 1. Примитивный калькулятор
1. Войдите в среду Delphi, дважды щелкнув мышью на пиктограмму Delphi или через меню “Пуск”.
2. Выберите команду File/Save Project As…
3. В появившемся диалоге перейдите к корневому каталогу диска C, выбрав соответствующий пункт в выпадающем списке вверху окна.
4. Откройте папку, соответствующую названию вашей группы (например, Р-123). Если такой нет, то создайте её, щелкнув правой кнопкой мыши на свободном месте, выбрав из появившегося контекстного меню пункт Создать/папку и введя нужное название (после чего не забудьте её открыть).
5. Создайте (как описано в предыдущем пункте) папку "Ваша_фамилия Lab1".
6. Сохраните Unit1. pas под новым именем Main. pas, а Project1. dpr под новым именем Lab1. dpr.
7. Выберите из политры Standard визуальных компонентов и поместите в форму следующие компоненты:
8. Окно редактирования со связанной с ним меткой Operand 1. В этом окне вводится первый операнд.
9. Окно редактирования со связанной с ним меткой Operator. В этом окне вводится операция. В программе следует предусмотреть операции +, -, / и * .
10. Окно редактирования со связанной с ним меткой Operand 2. В этом окне вводится второй операнд.
11. Окно редактирования со связанной с ним меткой Result. В этом окне отображается результат запрошенной вами операции.
12. В событиях OnClick каждой кнопки опишите соответствующие действия, например, для кнопки код события должен выглядеть следующим образом:
| If Edit2. Text='0' Then ShowMessage('Знаменатель равен "0"!') Else Edit3. Text:=FloatToStr(StrToFloat(Edit1. Text)/StrToFloat(Edit2. Text)); |
Обратите внимание, что в данном действии осуществляется проверка деления на ноль. Оператор ShowMessage выдает сообщение, представленное на рис. 10 в случае, когда Y равен "0".
Рисунок 9 – Пример формы калькулятора
Рисунок 10 – Сообщение об ошибке
Процедуры FloatToStr и StrToFloat выполняют преобразования из числовой переменной в строковую и из строковой в числовую соответственно.
Остальные клавиши должны быть описаны соответственно.
4.2 Задача 2. Решение квадратного уравнения
Определите корни квадратного уравнения 
. Алгоритм решения этой задачи состоит в вычислении детерминанта. Если D 0, то корни действительные, в противном случае – комплексные.
| unit SqRoot_; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, OleCtrls; type TForm1 = 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; var Form1: TForm1; implementation // решает квадратное уравнение procedure SqRoot(a, b, c: real; var x1, x2: real; var ok: boolean); { a, b, c - коэффициенты уравнения x1, x2 - корни уравнения ok = True - решение есть ok = False - решения нет } var d: real; // дискриминант begin d := Sqr(b) - 4 * a * c; if d < 0 then ok := False // уравнение не имеет решения else begin ok := True; x1 := (-b + Sqrt(d)) / (2 * a); x2 := (b + Sqrt(d)) / (2 * a); end; end; {$R *. dfm} procedure TForm1. Button1Click(Sender: TObject); var k1, k2: real; // корни уравнения rez: boolean; // True - решение есть, False - решения нет mes: string; // сообщение begin SqRoot(StrToFloat(Edit1. Text), StrToFloat(Edit2. Text), StrToFloat(Edit3. Text), k1, k2, rez); if rez then mes := 'Корни уравнения' + #13 + 'x1=' + FloatToStrF(k1, ffGeneral, 4, 2) + #13 + 'x2=' + FloatToStrF(k2, ffGeneral, 4, 2) + #13 else mes := 'Уравнение не имеет решения'; label5. Caption := mes; end. |
4.3 Задача 3. Преобразование десятичных чисел в двоичные
Разработка программы преобразования десятичных чисел в двоичные.
Рисунок 11 – Пример формы приложения
Рисунок 12 – Результат выполнения программы
| unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Edit1: TEdit; Edit2: TEdit; Label1: TLabel; Label2: TLabel; Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *. dfm} procedure TForm1. Button1Click(Sender: TObject); var sDv: string; iMod, iDch :integer; // iDch - наше десятичное число, sDv - двоичное. begin iDch := StrToInt(Edit1. text); // Присваиваем переменной значение поля Edit1. { Получаем остаток от деления десятичного числа на 2. Делим десятичное число на два без остатка. Добавляем в начало нашего двоичного числа остаток от деления. Если поделенное на 2 без остатка десятичное число меньше двух, то цикл завершает работу, так как если десятичное число меньше 2, оно равно либо 1, либо 0, а эти цифры переводить уже не надо, так как они сами собой и останутся. } while iDch >= 2 do begin iMod := 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 и разработка практических заданий.
При выполнении курсовой работы:
-
была изучена теория и технология работы с средой программирования Borland Delphi7;
-
была изучена и проанализирована соответствующая литература;
-
был проведён сравнительный анализ языков этого класса и показаны преимущества и недостатки языка Delphi;
-
были приведены элементы методической работы в виде разработки вариантов заданий (из прикладных областей) для учащихся старших классов школ изучающих Delphi на уроках информатики.
СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ
-
Гофман, В. Э. Delphi. Быстрый старт / В. Э. Гофман, А. Д. Хомоненко. – СПб. : БХВ-Петербург, 2003. – 288 с.
-
Мизрохи, С. В. Turbo Pascal и объектно-ориентированное программирование / С. В. Мизрохи. – М. : Финансы и статистика, 1992. – 193 с.
-
Пестриков, В. М. Delphi на примерах / В. М. Пестриков, А. Н. Маслобоев. — СПб. : БХВ-Петербург, 2005. — 496 с.
-
Стивене, Р. Delphi. Готовые алгоритмы / Род Стивене; Пер. с англ. Мерещука П. А. - 2-е изд. , стер. - М. : ДМК Пресс ; СПб. : Питер, 2004. - 384 с.
-
Фаронов В. В. Deiphi 6. Учебный курс / В. В. Фараонов. – СПб. : Питер, 2002. – 260с.
-
Федоров А. Г. Создание Windows-приложений в среде Delphi / А. Г. Федоров. – М. : ТОО «Компьютер Пресс», 1999. – 347 с.
-
Фленов М. Е. Библия Delphi / М. Е. Фленов. — 2-е изд. , перераб. и доп. – СПб. : БХВ-Петербург, 2008. — 800 с.
