Банк рефератов содержит более 364 тысяч рефератов, курсовых и дипломных работ, шпаргалок и докладов по различным дисциплинам: истории, психологии, экономике, менеджменту, философии, праву, экологии. А также изложения, сочинения по литературе, отчеты по практике, топики по английскому.
Полнотекстовый поиск
Всего работ:
364139
Теги названий
Разделы
Авиация и космонавтика (304)
Административное право (123)
Арбитражный процесс (23)
Архитектура (113)
Астрология (4)
Астрономия (4814)
Банковское дело (5227)
Безопасность жизнедеятельности (2616)
Биографии (3423)
Биология (4214)
Биология и химия (1518)
Биржевое дело (68)
Ботаника и сельское хоз-во (2836)
Бухгалтерский учет и аудит (8269)
Валютные отношения (50)
Ветеринария (50)
Военная кафедра (762)
ГДЗ (2)
География (5275)
Геодезия (30)
Геология (1222)
Геополитика (43)
Государство и право (20403)
Гражданское право и процесс (465)
Делопроизводство (19)
Деньги и кредит (108)
ЕГЭ (173)
Естествознание (96)
Журналистика (899)
ЗНО (54)
Зоология (34)
Издательское дело и полиграфия (476)
Инвестиции (106)
Иностранный язык (62791)
Информатика (3562)
Информатика, программирование (6444)
Исторические личности (2165)
История (21319)
История техники (766)
Кибернетика (64)
Коммуникации и связь (3145)
Компьютерные науки (60)
Косметология (17)
Краеведение и этнография (588)
Краткое содержание произведений (1000)
Криминалистика (106)
Криминология (48)
Криптология (3)
Кулинария (1167)
Культура и искусство (8485)
Культурология (537)
Литература : зарубежная (2044)
Литература и русский язык (11657)
Логика (532)
Логистика (21)
Маркетинг (7985)
Математика (3721)
Медицина, здоровье (10549)
Медицинские науки (88)
Международное публичное право (58)
Международное частное право (36)
Международные отношения (2257)
Менеджмент (12491)
Металлургия (91)
Москвоведение (797)
Музыка (1338)
Муниципальное право (24)
Налоги, налогообложение (214)
Наука и техника (1141)
Начертательная геометрия (3)
Оккультизм и уфология (8)
Остальные рефераты (21692)
Педагогика (7850)
Политология (3801)
Право (682)
Право, юриспруденция (2881)
Предпринимательство (475)
Прикладные науки (1)
Промышленность, производство (7100)
Психология (8692)
психология, педагогика (4121)
Радиоэлектроника (443)
Реклама (952)
Религия и мифология (2967)
Риторика (23)
Сексология (748)
Социология (4876)
Статистика (95)
Страхование (107)
Строительные науки (7)
Строительство (2004)
Схемотехника (15)
Таможенная система (663)
Теория государства и права (240)
Теория организации (39)
Теплотехника (25)
Технология (624)
Товароведение (16)
Транспорт (2652)
Трудовое право (136)
Туризм (90)
Уголовное право и процесс (406)
Управление (95)
Управленческие науки (24)
Физика (3462)
Физкультура и спорт (4482)
Философия (7216)
Финансовые науки (4592)
Финансы (5386)
Фотография (3)
Химия (2244)
Хозяйственное право (23)
Цифровые устройства (29)
Экологическое право (35)
Экология (4517)
Экономика (20644)
Экономико-математическое моделирование (666)
Экономическая география (119)
Экономическая теория (2573)
Этика (889)
Юриспруденция (288)
Языковедение (148)
Языкознание, филология (1140)

Лабораторная работа: Создание приложения вещественного деления в среде Delphi

Название: Создание приложения вещественного деления в среде Delphi
Раздел: Рефераты по информатике
Тип: лабораторная работа Добавлен 18:23:07 15 июля 2010 Похожие работы
Просмотров: 31 Комментариев: 12 Оценило: 2 человек Средний балл: 5 Оценка: неизвестно     Скачать

Кафедра: автоматика и инф. технологии

Лабораторная работа

На тему:

"Создание приложения вещественного деления в среде Delphi".

Екатеринбург, 2008


Задание 1. Создайте приложение, реализующее ввод двух целых чисел, по щелчку на кнопке с символом "=" вычисляющее результат операции вещественного деления и выводящее значение результата на экран.

Решение:

Запустите Delphi и создайте новый проект (см. лаб. раб. №1). В окне Save As создайте новую папку для файлов проекта, папку назовите "Вещественное деление". Затем откройте созданную папку и задайте в поле Имя Файла имя main и щелкнете по кнопке Сохранить . После сохранения файла модуля main. pas откроется окно сохранения проекта Save Project As , в котором следует задать имя файла проекта 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;

Оценить/Добавить комментарий
Имя
Оценка
Комментарии:
Привет студентам) если возникают трудности с любой работой (от реферата и контрольных до диплома), можете обратиться на FAST-REFERAT.RU , я там обычно заказываю, все качественно и в срок) в любом случае попробуйте, за спрос денег не берут)
Olya02:30:24 27 августа 2019
.
.02:30:23 27 августа 2019
.
.02:30:23 27 августа 2019
.
.02:30:22 27 августа 2019
.
.02:30:21 27 августа 2019

Смотреть все комментарии (12)
Работы, похожие на Лабораторная работа: Создание приложения вещественного деления в среде Delphi

Назад
Меню
Главная
Рефераты
Благодарности
Опрос
Станете ли вы заказывать работу за деньги, если не найдете ее в Интернете?

Да, в любом случае.
Да, но только в случае крайней необходимости.
Возможно, в зависимости от цены.
Нет, напишу его сам.
Нет, забью.



Результаты(259883)
Комментарии (3518)
Copyright © 2005-2020 BestReferat.ru support@bestreferat.ru реклама на сайте

Рейтинг@Mail.ru