Вывод результата осуществим не в 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

Похожие статьи




Вывод результата осуществим не в Label, а в Edit., Вопросы для самоконтроля - Объектно-ориентированное, визуальное программирование в Delphi на уроках

Предыдущая | Следующая