Главная » Просмотр файлов » Графическая среда ТД2014

Графическая среда ТД2014 (981800), страница 2

Файл №981800 Графическая среда ТД2014 (Проги на Delphi для ИУ (Ваулин)) 2 страницаГрафическая среда ТД2014 (981800) страница 22015-06-15СтудИзба
Просмтор этого файла доступен только зарегистрированным пользователям. Но у нас супер быстрая регистрация: достаточно только электронной почты!

Текст из файла (страница 2)

Done: There are errors. – при наличии ошибок.

  • Выполнение до курсора – Run\Run to Cursor или F4.

Синие точки слева показывают, в каких точках программы можно остановить выполнение.

Щелкнуть на синей точке она будет красная (точка останова). Для выполнения очередной строки клавиша F8.

  • Выполнить строку с заходом в подпрограмму – Run\Trace Into, или кнопка , или F7.

  • Выполнить строку без захода в подпрограмму – Run\Trace Over, или кнопка , или F8.

  • Завершить отладку – Run\Program Reset или Ctrl+F2. Использовать при зависании.

  • Отобразить окно наблюдения - Run\Add Watch или нажать Ctrl+F5, ввести имя переменной или выражение, нажать OK. Чтобы добавить в окно наблюдения новую переменную, можно установить на ней курсор в окне редактора кода, активизировать окно наблюдения, сделать на нем двойной щелчок и нажать кнопку OK.

  • Установить точку останова – щелкнуть в окне редактора кода на сером поле перед строкой, на которой должна быть эта точка.

  • Убрать точку останова – повторить действия предыдущего пункта.

Создание проекта для сложения двух чисел

  • Запустить Turbo Delphi, командой File\New\VCL Forms Application – Delphi for Win32. При этом автоматически будет создана форма с именем Form1 (или с именем Form#, где # - очередной номер формы).

  • Сохраните проект (в отдельной папке) командой File\Save All или щелкнуть на пиктограмме панели инструментов. Turbo Delphi последовательно предложит сохранить в файлах в появляющемся окне Save Until As - имя программного модуля Unit1.pas , а затем в еще одном окне имя проекта Project1.dpr. Можно не менять эти имена. В дальнейшем, если Turbo Delphi открывается для загрузки программы на редактирование, выбирайте файл Project1 типа Delphi Project Type или, после открытия Turbo Delphi, используйте команду File\Open Project для этого файла. Проект это набор (совокупность) файлов, используя которые компилятор создает выполняемый файл программы (EXE.файл).

  • В процессе работы необходимо периодически сохранять файлы программы щелчком на кнопке панели инструментов.

Зеленая линия на полях обозначает, что эти строки изменялись с момента открытия программы, но они уже сохранены.

Желтая линия выделяет строки, которые изменялись с момента открытия, но не сохранены.

  • Щелчком активизируйте окно формы, в диалоге (в окне диалога) Инспектора объектов (Object Inspector) на вкладке Properties щелкните на поле Caption и введите заголовок формы Задание 1.

  • Измените размеры формы мышкой или заданием значений в свойствах Height и Width в окне Инспектора объектов.

  • Разместите на форме поле ввода Edit1 и задайте ему текст (например, Ввoд числа А), используя компонент Label1 и его свойство Caption.

  • Разместите на форме поле вывода Edit2 и задайте ему текст (например, Ввод числа В), используя компонент Label2 и его свойство Caption.

  • Разместите на форме поле вывода Edit3 и дайте ему название (например, Сумма С), используя компонент Label3 и его свойство Caption.

  • Разместите на форме компонент Button1. Измените название кнопки, используя свойство Caption (например, Сложить).

  • Разместите на форме компонент Button2. Измените название кнопки, используя свойство Caption (например, Выход).

  • Запустите программу кнопкой или Run\Run, или F9 и завершите ее, закрыв окно формы.

Программирование

  • Создать обработчик события «Сложить» (Button1). В тело обработчика включить

описания переменных А, В, С типа real и записать операторы:

A:= StrToFloat (Edit1.Text); //преобразование строки в число

В:= StrToFloat (Edit2.Text);

C:=A+B;

Edit3.Text:=FloatToStr(C); //преобразование числа в строку и вывод результата в окно

Edit1.Text:=''; Edit2.Text:='';

Edit1.SetFocus; //установка курсора в окно и делает его активным (курсор мигает)

  • Создать обработчик события «Выход » (Button2). В теле обработчика

записать процедуру закрытия Close.

  • Создать обработчик события создания формы, который будет задавать символ '0' в качестве начального значения свойства Text полей ввода, выполнив соответствующие действия:

- дважды щелкнуть на свободном месте формы или,

- щелкнуть на форме и затем двойной щелчок на строке события OnCreate на вкладке Events

Инспектора объектов. В результате этого Turbo Delphi добавит в класс TForm1 заголовок

метода Procedure FormCreate (Sender: TObject );,

а в раздел реализации – описание этого метода с пустым телом begin end;

Procedure FormCreate (Sender: TObject );

begin

end;

В тело обработчика записать операторы: Edit1.Text:='0'; Edit2.Text:='0';

Edit3.Text:='0';

- Управление свойствами при создании макета формы

  • В Инспекторе объектов на вкладке Properties

- Управление свойствами при выполнении программы

  • В операторе присваивания <Компонент><Свойство>:=<Значение>, например, Label3.Caption:='СУММА С = '; Edit3.Text:=FloatToStr(С);

Помощь в Delphi

  • Для получения сведений щелкните на поле этого события в Инспекторе объектов и нажмите клавишу F1.

Задание

Вычислить значение интеграла

b

s = ∫ f(x) dx по заданию преподавателя:

a

1) методами прямоугольника и трапеций,

2) методами прямоугольника и трапеций с заданной точностью ε.

По заданию 1 форма должна иметь поля ввода данных (поля Edit): нижний предел интегрирования (A), верхний предел интегрирования (B), число подинтервалов (N); поля вывода результатов; кнопки событий Button (метод прямоугольников, метод трапеций, выход). Например, как показано на форме для одного метода (расположение окон произвольное).

По заданию 2 форма должна иметь дополнительно окна для задания точности ε и вывода числа итераций (приближений) K.

Требуемая точность ε определяет условие окончания итерационного процесса, которое задаётся отношением |S1-S2| < ε, где S1 и S2 – соседние значения интеграла, полученные на предыдущем и последующим шагах его вычисления. Начальное значение S1=0.

В

ычисляется S2 при начальном значении N. Если заданная точность не получена, то S1 получает значение S2 (S1= S2) и процесс повторяется при автоматическом увеличении числа подинтервалов вдвое (N=N*2).

Для заданий 1 и 2 добавить окно для вывода точного значения интеграла

Для проверки правильности задания исходных данных в полях ввода Edit1, Edit2, Edit3 можно использовать обработку исключений с выводом сообщений в окне MessageDLG.

Try

a:=StrToFloat(Edit1.Text);

except

MessageDLG('Введите нижний предел интегрирования'

,'например, так 2,5',mtInformation,[mbOk],0);

exit;

end;

try

b:=StrToFloat(Edit2.Text);

except

MessageDLG('Введите верхний предел интегрирования'

,'например, так 6,5',mtInformation,[mbOk],0);

exit;

end;

try

N:=StrToInt(Edit3.Text);

except

MessageDLG('Введите число подинтервалов'

,'например, так 10',mtInformation,[mbOk],0);

exit;

end;

Характеристики

Тип файла
Документ
Размер
429,5 Kb
Тип материала
Высшее учебное заведение

Список файлов решённой задачи

Свежие статьи
Популярно сейчас
Почему делать на заказ в разы дороже, чем купить готовую учебную работу на СтудИзбе? Наши учебные работы продаются каждый год, тогда как большинство заказов выполняются с нуля. Найдите подходящий учебный материал на СтудИзбе!
Ответы на популярные вопросы
Да! Наши авторы собирают и выкладывают те работы, которые сдаются в Вашем учебном заведении ежегодно и уже проверены преподавателями.
Да! У нас любой человек может выложить любую учебную работу и зарабатывать на её продажах! Но каждый учебный материал публикуется только после тщательной проверки администрацией.
Вернём деньги! А если быть более точными, то автору даётся немного времени на исправление, а если не исправит или выйдет время, то вернём деньги в полном объёме!
Да! На равне с готовыми студенческими работами у нас продаются услуги. Цены на услуги видны сразу, то есть Вам нужно только указать параметры и сразу можно оплачивать.
Отзывы студентов
Ставлю 10/10
Все нравится, очень удобный сайт, помогает в учебе. Кроме этого, можно заработать самому, выставляя готовые учебные материалы на продажу здесь. Рейтинги и отзывы на преподавателей очень помогают сориентироваться в начале нового семестра. Спасибо за такую функцию. Ставлю максимальную оценку.
Лучшая платформа для успешной сдачи сессии
Познакомился со СтудИзбой благодаря своему другу, очень нравится интерфейс, количество доступных файлов, цена, в общем, все прекрасно. Даже сам продаю какие-то свои работы.
Студизба ван лав ❤
Очень офигенный сайт для студентов. Много полезных учебных материалов. Пользуюсь студизбой с октября 2021 года. Серьёзных нареканий нет. Хотелось бы, что бы ввели подписочную модель и сделали материалы дешевле 300 рублей в рамках подписки бесплатными.
Отличный сайт
Лично меня всё устраивает - и покупка, и продажа; и цены, и возможность предпросмотра куска файла, и обилие бесплатных файлов (в подборках по авторам, читай, ВУЗам и факультетам). Есть определённые баги, но всё решаемо, да и администраторы реагируют в течение суток.
Маленький отзыв о большом помощнике!
Студизба спасает в те моменты, когда сроки горят, а работ накопилось достаточно. Довольно удобный сайт с простой навигацией и огромным количеством материалов.
Студ. Изба как крупнейший сборник работ для студентов
Тут дофига бывает всего полезного. Печально, что бывают предметы по которым даже одного бесплатного решения нет, но это скорее вопрос к студентам. В остальном всё здорово.
Спасательный островок
Если уже не успеваешь разобраться или застрял на каком-то задание поможет тебе быстро и недорого решить твою проблему.
Всё и так отлично
Всё очень удобно. Особенно круто, что есть система бонусов и можно выводить остатки денег. Очень много качественных бесплатных файлов.
Отзыв о системе "Студизба"
Отличная платформа для распространения работ, востребованных студентами. Хорошо налаженная и качественная работа сайта, огромная база заданий и аудитория.
Отличный помощник
Отличный сайт с кучей полезных файлов, позволяющий найти много методичек / учебников / отзывов о вузах и преподователях.
Отлично помогает студентам в любой момент для решения трудных и незамедлительных задач
Хотелось бы больше конкретной информации о преподавателях. А так в принципе хороший сайт, всегда им пользуюсь и ни разу не было желания прекратить. Хороший сайт для помощи студентам, удобный и приятный интерфейс. Из недостатков можно выделить только отсутствия небольшого количества файлов.
Спасибо за шикарный сайт
Великолепный сайт на котором студент за не большие деньги может найти помощь с дз, проектами курсовыми, лабораторными, а также узнать отзывы на преподавателей и бесплатно скачать пособия.
Популярные преподаватели
Добавляйте материалы
и зарабатывайте!
Продажи идут автоматически
6551
Авторов
на СтудИзбе
299
Средний доход
с одного платного файла
Обучение Подробнее