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

2016-07-30СтудИзба

Описание файла

Документ из архива "Языка программирования 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 на уроках информатики.

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

  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 с.

Свежие статьи
Популярно сейчас
Зачем заказывать выполнение своего задания, если оно уже было выполнено много много раз? Его можно просто купить или даже скачать бесплатно на СтудИзбе. Найдите нужный учебный материал у нас!
Ответы на популярные вопросы
Да! Наши авторы собирают и выкладывают те работы, которые сдаются в Вашем учебном заведении ежегодно и уже проверены преподавателями.
Да! У нас любой человек может выложить любую учебную работу и зарабатывать на её продажах! Но каждый учебный материал публикуется только после тщательной проверки администрацией.
Вернём деньги! А если быть более точными, то автору даётся немного времени на исправление, а если не исправит или выйдет время, то вернём деньги в полном объёме!
Нет! Мы не выполняем работы на заказ, однако Вы можете попросить что-то выложить в наших социальных сетях.
Добавляйте материалы
и зарабатывайте!
Продажи идут автоматически
4121
Авторов
на СтудИзбе
667
Средний доход
с одного платного файла
Обучение Подробнее