Вывод результата осуществим не в Label, а в Edit., Вопросы для самоконтроля - Объектно-ориентированное, визуальное программирование в Delphi на уроках
Объявим переменные как глобальные:
Var
Form1: TForm1;
A, b, x : int64; // Самый большой целочисленный тип
Implementation
Код процедуры Click для кнопки Получить новое число. Кнопка из вкладки Additional - цвет надписи на кнопке можно изменить.
Procedure TForm1.BitBtn1Click(Sender: TObject);
Begin
A := StrToInt64(Edit1.Text);
X := a;
B := 0;
Repeat
B := b * 10 + x mod 10; // 1
X := x div 10; // 2
Until x = 0; // 3
Edit2.Text := IntToStr(b); // тип int64 максимальный в функции
End;
Вопросы для самоконтроля
- 1. Какую новую конструкцию языка Pascal Вы узнали? 2. Почему тип переменных a и b int64? 3. Какие переменные и для чего используются в процедуре? 4. Зачем переменную b перед использованием обнулили (b := 0;)? 5. Без какой переменной можно было обойтись в программе, у какой переменной в этом случае теряется начальное значение? 6. Почему операторы между Repeat и Until не заключили в операторные скобки Begin ... end? 7. Объясните, что выполняет команда с комментарием: 1, 2 и 3? 8. Какой тип данных находится в параметре Text компонента Edit? 9. Когда происходит выполнение процедуры Click? 10. Переделайте алгоритм с цикла Repeat ... Until на While ... do.
Приложение № 1
Некоторые параметры объектов и их использование
Align |
Выравнивание объекта к контейнеру |
Alignment |
Выравнивание текста: taCenter - по центру, taLeftJustify - по левой границе, taRightJustify - по правой границе |
AutoSize |
Настройка размера по данным |
Caption |
Надпись, заголовок |
Color |
Цвет фона объекта |
Cursor |
Вид курсора на объекте |
ClientHeight |
Высота объекта в пикселях (аналог Height) |
ClientWidth |
Ширина объекта в пикселях (аналог Width) |
Enabled |
Доступен ли объект (значения true, false) |
Font Color Height Name Size Style |
Параметры шрифта (фонта), шелчек на ... - вызов диал. окна цвет высота название (гарнитура) размер (в пунктах) стиль - начертание |
Hint |
Текст подсказки для объекта (без ShowHint не работает) |
Icon |
Замена стандартной иконки |
Layout |
Выравнивание текста по высоте, когда AutoSize равен true: tlBottom - по нижней границе tlCenter - по центру tlTop - по верхней границе |
Left |
Отступ от левой границы в пикселях (окна, формы, контейнера) |
Name |
Название объекта - лучше не менять стандартные, иначе правила идентификатора |
ShowHint |
Параметры показа подсказки объекта (значения true - показать, false - не показывать) |
Stretch |
Растягивает картинку по размерам области вставки (значения: true, false) |
Picture |
Вставка рисунка |
Transparent |
Прозрачность фона (значения: true, false) |
Top |
Отступ от верхней границы в пикселях (окна, формы, контейнера) |
Visible |
Видимый объект или нет (значения: true, false) |
Width |
Ширина объекта в пикселях |
WordWrap (когда AutoSize true) |
Отображение текста в несколько строк (значения: true, false), например, для label (метки), кнопки (button) и т. д. |
Приложение № 2
Математические операции и некоторые функции в Pascal-е и Delphi
Порядок |
Математика |
Delphi |
Пример | |
1 |
Возведение в степень |
Отсутствует |
См. замечания | |
2 |
Умножение |
Х |
* |
2 * 56 > 112 |
Деление |
: |
/ |
134 / 4 > 33,5 | |
Целочисленное деление |
Div |
17 div 3 > 5 | ||
Остаток от целочисленного деления |
Mod |
17 mod 3 > 2 | ||
3 |
Сложение |
+ |
+ |
17 + 8 > 25 |
Вычитание |
- |
- |
36,7 - 9,4 > 27,3 | |
4 |
Операции сравнения | |||
> |
> | |||
= |
= | |||
< |
< | |||
? |
<> | |||
? |
<= | |||
? |
>= |
Приложение № 3
Стандартные математические функции Object Pascal
Обращение |
Тип параметра |
Тип результата |
Примечание |
Abs(x) |
Real, Integer |
Тип аргумента |
Модуль аргумента |
ArcTan(x) |
Real |
Real |
Аргтангенс (значение в радианах) |
Cos(x) |
Real |
Real |
Косинус, угол в радианах |
Exp(x) |
Real |
Real |
Экспонента |
Frac(x) |
Real |
Real |
Дробная часть |
Int(x) |
Real |
Real |
Целая часть числа |
Ln(x) |
Real |
Real |
Логарифм натуральный |
Pi |
- |
Real |
= 3б141592653 ... |
Random |
- |
Real |
Псевдослучайное число, равномерно распределенное в диапазоне 0 ... [1] |
Random(x) |
Integer |
Integer |
Псевдослучайное число, равномерно распределенное в диапазоне 0 ... (x-1) |
Randomize |
- |
- |
Инициация генератора псевдослучайных чисел |
Sin(x) |
Real |
Real |
Синус, угол в радианах |
Sqr(x) |
Real |
Real |
Квадрат аргумента |
Sqrt(x) |
Real |
Real |
Корень квадратный |
В этой таблице Real означает любой вещественный тип, Integer - любой целый тип. |
Приложение № 4
Типы числовых данных в Pascal-е и Delphi
Целые типы | ||
Название |
Длинна, байт |
Диапазон значений |
Byte |
1 |
0 ... 255 |
ShotInt |
1 |
-128 ... +127 |
SmallInt |
2 |
-32 768 ... +32 767 |
Word |
2 |
0 ... 65 535 |
Integer |
4 |
-2 147 483 648 ... +2 147 483 647 |
LongInt |
4 |
-2 147 483 648 ... +2 147 483 647 |
LongWord |
4 |
0...4 294 967 295 |
Int64 |
8 |
-9*10^18 ... +9*10^18 |
Cardinal |
4 |
0... 2 147 483 647 |
Вещественные типы | |||
Название |
Длина, байт |
Количество значащих цифр |
Диапазон значений |
Real |
8 |
15 ... 16 |
5,0*10^-324 ... 1,7*10^308 |
Single |
4 |
7 ... 8 |
1,5*10^-45 ... 3,4*10^38 |
Double |
8 |
15 ... 16 |
5,0*10^-324 ... 1,7*10^308 |
Extended |
10 |
19 ... 20 |
3,4*10^-4951 ... 1,1*10^4932 |
Comp |
8 |
19 ... 20 |
-2^63 ... +2^63 - 1 |
Currency |
8 |
19 ... 20 |
±922 337 203 685 477, 5807 |
Похожие статьи
-
- рисуем графический примитив, например, эллипс у рыбки; - накладываем сверху на эллипс другой графический объект так, чтобы он закрывал часть эллипса; -...
-
Var A, b : integer; Begin // В переменные a и b заносим целочисленные //значения A := StrToInt(Edit1.Text); B := StrToInt(Edit2.Text); Label5.Caption :=...
-
Вопросы для самоконтроля - Объектно-ориентированное, визуальное программирование в Delphi на уроках
1. Какую новую конструкцию языка Pascal Вы узнали? 2. Почему в первом цикле переменная A начинается с 1, а переменные B и C с ноля. 3. Какие переменные и...
-
Нарисовать картину на форме или панели (минимум из 6-и Shapes) и выполнить движение: 1. направо, затем вверх из левого нижнего угла формы; 2. налево,...
-
1. Какой математической операции нет в Delphi? 2. Как изменить порядок выполнения операций Delphi? 3. В каком порядке выполняются операции одного...
-
Первая программа - движение слева направо Просмотрите код Unit1.pas для нашего примера: Unit Unit1; Interface Uses Windows, Messages, SysUtils, Variants,...
-
- замечания, нужно запомнить. Знакомство со средой DELPHI Для загрузки Delphi нужно запустить файл Delphi32.exe из папки Bin каталога Delphi7. Можно...
-
Процедура Click для кнопки ОПРЕДЕЛИТЬ с дополнительным заданием Procedure TForm1.Button1Click(Sender: TObject); Begin A := strtofloat(edit1.Text); {...
-
Код программы - Объектно-ориентированное, визуальное программирование в Delphi на уроках
Рассмотрим код процедуры Click для кнопки " Вычислить ": Procedure TForm1.Button1Click(Sender: TObject); Var X : real; { вещественный тип переменной }...
-
Сохранение проекта Возможны как минимум три варианта: 1. Меню File, строка Save All с подсказкой горячих клавиш Shift+Ctrl+S; 2. Щелкнуть по иконке двух...
-
Введение - Объектно-ориентированное, визуальное программирование в Delphi на уроках
Урок информатика программирование объект Значительно более мощные системы Windows, OS/2 и другие привели к повсеместному вытеснению старой "доброй" DOS...
-
ОПЕРАТОР ВВОДА ДЛЯ ЧТЕНИЯ ФАЙЛА, ОПЕРАТОР ВЫВОДА - Язык программирования Паскаль
Оператор ввода для чтения файла обладает всеми свойствамии обычного оператора READ. Вкачестве параметров могут быть переменные; каждая переменная поучает...
-
В ходе исследования был разработан веб-редактор для визуального языка в соответствии с требованиями, выделенными в главе 2, по результатам опроса...
-
Компонент TPanel является несущей конструкцией для размещения на ней других элементов управления, являясь в этом случае родителем для размещенных на ней...
-
Цель Работы - изучить основные способы работы с пользовательским типом данных "класс", его объектами, методами и способы доступа к ним. - Теоретические...
-
Программирование для Интернет - Разработка Windows-приложений в среде Borland Delphi
Цель Работы: Получить навыки использования компонента WebBrowser. Пояснения к работе Начиная с пятой версии Delphi появился компонент WebBrowser который...
-
Среда объектно-ориентированного программирования Delphi Delphi - это комбинация нескольких важнейших технологий, высокопроизводительный компилятор в...
-
Элементы пользовательского интерфейса - Разработка Windows-приложений в среде Borland Delphi
Цель Работы: Закрепить навыки проектирования интерфейса приложения, получить навыки использования стандартных диалоговых окон и буфера обмена. Пояснения...
-
Значения свойств объектов можно менять двумя способами: При проектировании : В каждый момент проектирования только один объект является выделенным...
-
Подменю Transform (преобразования) меню Symbolics содержит раздел операций преобразования Fourier (Преобразование Фурье) -- выполнить прямое...
-
Реализация клиентской части приложения На языке JavaScript, в соответствии с диаграммой классов, представленной в приложении Б, были разработаны объекты...
-
Примеры операторов вызова процедур - Структурирование программы
T; {нет списка фактических параметров Summa(x, y,z); {x, y,z - фактические параметры; x: integer; у, z; real} a(z); {z - фактический параметр, z:d} При...
-
Массивы - Разработка Windows-приложений в среде Borland Delphi
Цель работы Изучить различные алгоритмы сортировки списка. Закрепить навыки использования массивов данных и массивов объектов. Пояснения к работе...
-
Создает выборку из генеральной совокупности, рассматривая входной диапазон как генеральную совокупность. Если совокупность слишком велика для обработки...
-
Для определения выплат по займу используется финансовая функция ПЛТ (Ставка, КПер, Пс, Бс, Тип). Определим значения параметров функции ПЛТ: Ставка =9%...
-
В этом разделе описаны запросы, выполняемых всеми компонентами, а также типы данных, используемые при описании запросов. Стандарт типов данных При...
-
Основные типы данных языка Си - Основы программирования
Язык Си относится к языку с жестко определенными типами данных: каждое имя всегда обозначает объект некоторого типа, причем этот тип нельзя изменить до...
-
Использование языка PERL для написания CGI-cкриптов - Язык программирования PERL. Сфера применения
Как вы узнали из предыдущей главы, CGI обеспечивает узлам Web вoзмoжнoсть интерактивной работы с клиентскими программами, в качестве которых обычно...
-
Выводы по результатам тестирования - Исследование алгоритмов
По полученным в ходе анализа данным сделать вывод о качестве обученных каскадных классификаторов и о причинах таких результатов, а также выяснить, какие...
-
Разработка приложения для базы данных - Разработка Windows-приложений в среде Borland Delphi
Цель Работы: Получить навыки создания приложения для базы данных. Пояснения к работе Для работы с базами в Delphi есть несколько наборов компонент,...
-
JAPE позволяет анализировать текст на основе регулярных выражений. Грамматика этого языка состоит из фаз, которые сдержат в себе набор шаблонов и/или...
-
Для того, чтобы строить диаграммы в соответствии с рисунком 2.7, необходимо реализовать алгоритм соединения двух объектов линией. Для отображения линии...
-
"РЕШЕНИЕ ЗАДАЧ ЛИНЕЙНОГО ПРОГРАММИРОВАНИЯ С ИСПОЛЬЗОВАНИЕМ MICROSOFT EXCEL" Цель работы Приобретение навыков решения задач линейного программирования...
-
Запуск модели, Графики и диаграммы - Построение модели сердца
Щелкнув на кнопке запуска модели, после компиляции откроется окно презентации эксперимента. Запустив эксперимент, увидим структуру активного объекта:...
-
Построение модели - Построение модели сердца
В нашей модели должны присутствовать две переменные состояния - х и b, и два параметра - х0 и eps, где х0 - начальное значение х. Начальное значение...
-
Скалярные переменные - Язык программирования PERL. Сфера применения
Как отмечалось, скалярная переменная может содержать единственное значение. В языке Perl имена скалярных переменных всегда начинаются со знака ($). В еле...
-
Подпрограммы - Язык программирования PERL. Сфера применения
Как и все структурированные языки программирования, Perl поддерживает подпрограммы. Подпрограмма может быть определена с помощью ключевого слова sub, как...
-
В качестве доступного инструментария были рассмотрены две открытые кроссплатформенные библиотеки для разработки C++ приложений WxWidgets и Boost ,...
-
Выведем в общем виде уравнение движения заданной динамической модели при помощи уравнений Лагранжа II рода. Полная кинетическая энергия: , Полная...
-
Введение, Правила и порядок выполнения курсовой работы - Программирование в среде Turbo Pascal
Настоящие методические указания предназначены для выполнения курсовой работы "Расчеты на ЭВМ характеристик выходных сигналов электрических цепей" по...
Вывод результата осуществим не в Label, а в Edit., Вопросы для самоконтроля - Объектно-ориентированное, визуальное программирование в Delphi на уроках