Кафедра: автоматика и инф. технологии
Лабораторная работа
На тему:
"Создание приложения вещественного деления в среде Delphi".
Екатеринбург, 2008
Задание 1. Создайте приложение, реализующее ввод двух целых чисел, по щелчку на кнопке с символом "=" вычисляющее результат операции вещественного деления и выводящее значение результата на экран.
Решение:
Запустите Delphi и создайте новый проект (см. лаб. раб. №1). В окне SaveAs создайте новую папку для файлов проекта, папку назовите "Вещественное деление". Затем откройте созданную папку и задайте в поле Имя Файла имя main и щелкнете по кнопке Сохранить. После сохранения файла модуля main. pas откроется окно сохранения проекта SaveProjectAs, в котором следует задать имя файла проекта Delenie, а затем нажать кнопку Сохранить.
1. Измените свойства формы. Измените надпись в заголовке формы с помощью Инспектора объектов в свойстве Caption задайте новое значение "Вещественное деление двух целых чисел".
2. Разместите на форме компоненты Edit1, 2, 3, Label1, 2, 3, 4 и Button1, как показано на рис.2. Удалите текст Edit1, 2, 3 из соответствующих компонентов (воспользуйтесь свойством Text).
3. Задайте свойство Caption компонента Label1 значение "/", компонента Label2 значение "Делимое", для Label3 - "Делитель", для Label4 - "Частное", для Button1 - "=". Измените размеры символов и начертание соответствующих компонентов (см. лаб. раб. №1).
Рис.2 Пример формы с компонентами
Чтобы приложение выполняло вычисление при щелчке мышью на кнопке с изображением "=", следует написать код обработки этого события.
4. Выбелите на форме компонент Button1, затем на странице события дважды щелкните мышью на пустом поле списка в событии OnClick. После этого курсор получит фокус в окне Редактора кода.
5. В раздел описания переменных следует ввести следующее:
Var
A, b: integer;
C: real;
В тело обработки события введите текст:
A: =StrToInt (Edit1. text);
B: =StrToInt (Edit2. text);
C: =A/B;
Edit3. text: =FloatToStrF (c, ffGeneral, 7,4); {преобразование вещественного числа в текстовую строку}
6. Запустите программу на выполнение при помощи команды RUN и проверти результат работы.
Задание 2. Дополните программу обработчика события таким образом, чтобы перед операцией деления выполнялась проверка делителя на равенство нулю. В случае равенства нулю вместо деления в окне Edit3 должно отображаться сообщение "На ноль делить нельзя".
Решение: для этого вставьте в процедуру обработчика события TForm1. Button1Click оператор if then else.
В тело процедуры введите дополнительный текст:
If b<>0 then begin
C: =A/B;
Edit3. text: =FloatToStrF (c, ffGeneral, 7,4);
End
Else
Edit3. text: =’На ноль делить нельзя! ’;
Сохраните изменения и запустите программу на выполнение.
Задание 3. Измените программу, чтобы сообщение "На ноль делить нельзя!" выводилось красным цветом.
Решение: для этого дополните код следующим оператором:
Edit3. Font. Color: =clRed; {установить красный цвет шрифта}
Откомпилируйте и запустите программу на выполнение. Проверьте ее работу, задавая различные варианты решения. Обратите внимание, что в случае ввода в качестве делителя нуля, сообщение выводится красным цветом. Причем цвет шрифта остается красным, даже если при следующей итерации делитель не был равен нулю. Чтобы восстановить черный цвет шрифта в окне Edit3, дополните код модуля перед оператором if then else следующей строкой:
Edit3. Font. Color: =clBlack; {установить черный цвет шрифта}
Сохраните изменения и проверти работу программы. Обратите внимание, что текст сообщения "На ноль делить нельзя" отображается не целиком.
Задание 4. Измените программу, чтобы ширина окна Edit3 изменялась в ходе выполнения программы.
Решение: для того, чтобы ширина окна Edit3 изменялась в ходе выполнения программы, отредактируйте код модуля дополнив его следующими операторами:
Edit3. Width: =130; {увеличение ширины компонента Edit3}
Edit3. Width: =81; {восстановить первоначальную ширину}
Сохраните изменения и запустите программу на выполнение.
Задание 5. Измените программу таким образом, чтобы текст "На ноль делить нельзя" выводился в отдельном окне.
Решение:
Чтобы не вносить изменения в проект, созданный в предыдущих заданиях, сохраните проект под новым именем Delenie2, а текст программы под именем - main2. pas.
Отредактируйте текст модуля main2 следующим образом:
Begin
A: = StrToInt (Edit1. text);
B: = StrToInt (Edit2. text);
Edit3. text: = ‘ ‘;
If b=0 then ShowMessage (‘ На ноль делить нельзя! ‘)
Else begin
C: = A/B;
Edit3. text: = FloatTo Str (C);
End;
End;
Другие работы по теме:
работа
Кинематографы создают удивительные спецэффекты или полностью анимированные фильмы. В последние годы широкое распространение получили также компьютерные игры, максимально использующие трехмерную графику для создания виртуальных миров
Вычисление значения функции y(x)
Особенности применения компьютерных программ Pascal, Excel, MathCAD и Delphi для вычисления значения функции y(x) с заданным промежутком и шагом. Виды результатов вычислений, их сравнение и вывод. Изображение блок-схемы алгоритма решения задания.
Описание файлов, создаваемых Дельфи
Вы когда ни будь задумывались о том, что создает Дельфи в папке с исходниками проекта? Да и нужен ли весь этот абсолютно бесполезный, для рядового программиста, "мусор"? Пора призадуматься. В этой мини-статье я расскажу о назначении таких файлов.
Установка компонентов в Дельфи
Если после установки компонента на форму возникли проблемы с компиляцией проекта, то это значит, что Delphi не может найти .pas файл компонента.
Реестр: записьчтение
Работа с системным реестром в Delphi достаточно простая. Использование реестра имеет некоторые преимущества перед INI-файлами. Они заключаются в том, что реестр - более стабильный, и у него нет ограничения на размер.
Допустимость хода шахматной фигуры
Разработка программы в среде Delphi, показывающей на экране возможные варианты выбранной шахматной фигуры для хода. Спецификация исходных данных и функций программы, тексты разработанных классов приложения и их ключевые методы, тестирование программы.
Создание устного счета на языке Паскаль
Проектирование и реализация программы, запускающей создание и взаимодействие группы объектов. Разработка компьютерного приложения "Устный счет" для проверки знания математики, стиль ее оформления и наявность справочной подсистемы с указанием возможностей.
Создание Web-приложений в среде Delphi
Время первопроходцев HTML в скором времени закончится и вовсе, и их место займут профессионалы-программисты. Именно программисты, ибо уже в большей степени от их умения создать удобный в использование сайт зависит его успех.
Математична модель вимірювальної системи в середовищі Delphi
Курсова робота Математична модель вимірювальної системи в середовищі Delphi АНОТАЦІЯ Опис програми містить загальний опис алгоритмів головної програми та допоміжних на рівні блок-схем, а також більш детальний опис розробленої програми на рівні програмного коду.
Створення таблиць за допомогою SQL-запитів в середовищі DELPHI
Створення таблиць за допомогою запитів в середовищі DELPHI Середовище Delphi широко використовується для програмування баз даних. Найчастіше, бази даних як певний підбір даних, організовані за допомогою таблиць. В реляційних базах даних таблиці представляють інформацію про об”єкти одного типу.
Обработка файлов в среде Delphi
Лабораторная работа На тему: «Обработка файлов в среде Delphi» Задание 1: Создайте приложение, которое создает текстовый файл text1.txt и записывает в него текст, введенный пользователем в окно Edit, после чего закрывает файл.
Программа на Delphi
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) private { Private declarations } public { Public declarations }
Середовище програмування DELPHI 2 0
СЕРЕДОВИЩЕ ПРОГРАМУВАННЯ DELPHI 2.0 Зміст Основні елементи середовища 1. Головне вікно 2. Вікно форми 3. Вікно коду 4. Інспектор об’єктів Управління файлами проекту Delphi
Середовище програмування DELPHI 20
СЕРЕДОВИЩЕ ПРОГРАМУВАННЯ DELPHI 2.0 Зміст 5.Основні елементи середовища 2 a.1. Головне вікно 2 a.2. Вікно форми 2 a.3. Вікно коду 3 a.4. Інспектор об’єктів 3
Визуальное программирование в Delphi
Изучение методов визуального программирования в Delphi. Задание: Построить графики функций ; ; Текст программы: unit Graph; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
База данных предприятия
Министерство образования Российской Федерации. Сибирский межрегиональный колледж строительства и предпринимательства. Курсовой проект По дисциплине:
Создание приложения Клавиатурный тренажер
Министерство образования и науки Украины Луганский национальный университет имени Тараса Шевченко Ровеньковский факультет Кафедра информационных технологий и систем
Oedipus Essay Research Paper The Excruciating Truth
Oedipus Essay, Research Paper The Excruciating Truth of Oedipus Oedipus is a man of integrity and passion whose goal in life was to seek the raw truth. Throughout the story, he constantly tried to obtain that
Interpretations Of Socrates
’s Definition Of Wisdom Essay, Research Paper . he went to Delphi at one time and ventured to ask the oracle he asked if any man was wiser than I, and the Pythian replied that no one was wiser 21b
Oedipus The King And His Fate Essay
, Research Paper Oedipus The King, by Sophocles, is a play about how Oedipus lives up his fate that he will kill his father and marry his mother, both of which are extremely bad in the Greek society, even though he thinks he is getting away from it. Despite the Greek notions of supreme power of the gods and fate, Oedipus’ downfall is primarily the result of King Laius? and his own actions and attempts to defy the gods, consequently Sophocles says that prophecies from the gods of someone?s fate should not be ignored.
Apollo 2 Essay Research Paper ApolloTable of
Apollo 2 Essay, Research Paper Apollo Table of Contents 1. Title Page 2. Table of Content 3. Apollo Report 4. Apollo Report 5. Story of apollo 6. Temple of Apollo ( Didyma, Turkey )