Главная Регистрация RSS
Приветствую Вас, Гость
Статистика
http://www.laserstrike.com.ua/ где отпраздновать детский день рождения Киев. | http://www.ilc-languagecompany.com.ua/ подготовка к toefl, подготовка к toefl киев. | Гель лак кошачий глаз "Интернет магазин Miss Fifi".
Онлайн всего: 1
Гостей: 1
Пользователей: 0
Ваша реклама здесь
Форма входа
Логин:
Пароль:
Наши сервисы
Запись на обучение
Научитесь бесплатно создавать нестандартные презентации PowerPoint!
Ваш e-mail: *
Ваше имя: *
Предмет: *
Поиск
Главная » Статьи » Лабораторно-практические занятия по Delphi [ Добавить статью ]

Практическая работа 3. Переменные, числа и строки

Подписаться на рассылку         Скачать в формате doc

Практическая работа №3. Переменные, числа и строки

Эту работу следует выполнять либо под руководством учителя, либо прослушав предварительно видеоурок «Переменные, числа и строки» из бесплатного курса по программированию на Delphi

Задания

1. Запустите среду программирования (Пуск, Все программы, Borland Delphi 7, Delphi 7).

2. Разместите на форме компоненты Label (2 метки), Button (кнопку), Edit (2 текстовых поля), как показано на рис. 1а.

3. Измените соответствующие свойства объектов (это делается в окне Инспектора объектов) так, чтобы форма приобрела вид, как на рис. 1б


4. Подумайте. Чем отличаются свойства формы Caption и Name с одной стороны от свойств Height, Width, Left, Top с другой стороны?

5. Свойства Caption и Name представляют собой строки символов, или просто строки, которые могут содержать любые символы. Свойства Height, Width, Top, Left и т.д. представляют собой целые числа. Итак, в Delphi есть по крайней мере два типа величин: строки и целые числа.

Строки в Delphi обозначаются словом string
Целые числа в Delphi обозначаются словом integer

6. Пример 1. Допустим, нужно создать программу, которая складывает две строки. Для этого:

Создайте процедуру-обработчик события OnClick кнопки Button1 (в Инспекторе объектов на вкладке Events).
В процедуре TForm1.Button1Click добавьте следующий текст (ТОЛЬКО то, что написано красным):

procedure TForm1.Button1Click(Sender: TObject);
var
  a: string;
  b: string; {красным написано то, что нужно добавить в процедуру}

begin

end
;

Мы только что добавили в процедуру две переменные a и b, причем эти переменные являются строками, потому что при их описании мы использовали слово string, которое означает строка. О том, что мы добавляем переменные (описываем переменные), свидетельствует ключевое слово var.

Добавьте в процедуру 3 следующие команды (ТОЛЬКО то, что написано красным):

procedure TForm1.Button1Click(Sender: TObject);
var
  a: string;
  b: string;
begin
  a:=Edit1.Text;
  b:=Edit2.Text;
  ShowMessage(a+b); {
красным написано то, что нужно добавить в процедуру}
end;

Запустите программу. Введите что-нибудь в текстовые поля. Нажмите кнопку. Что происходит? _____________
_________________________________________________________________________________________________

Рассмотрим подробнее эти три команды.

Первая команда a:=Edit1.Text состоит из трех частей: а, :=, Edit1.Text. Эта команда означает, что переменная а приобретет значение, которое сейчас содержится в свойстве Edit1.Text, то есть после выполнения этой команды в переменную а будет записано значение, которое пользователь ввел в первое текстовое поле. 

Вторая команда аналогична первой: в переменную b записывается текст второго текстового поля. 

Третья команда ShowMessage(a+b) выводит на экран окно сообщения, в котором есть строка a+b и кнопка ОК.

Вместо этих трех команд можно было использовать одну: ShowMessage(Edit1.Text+Edit2.Text)

Создайте в папке Delphi Projects папку «Сложение строк» и сохраните туда программу. Потом закройте проект, воспользовавшись командой File, Close All.

7. Пример 2. Допустим, нужно составить программу, которая складывает два целых числа. Для этого:

Начните новый проект (File, New, Application). Разместите на форме соответствующие компоненты, чтобы форма приобрела следующий вид (рис. 2):

Создайте процедуру-обработчик события OnClick кнопки Button1 (в Инспекторе объектов на вкладке Events).

В процедуре TForm1.Button1Click добавьте следующий текст (ТОЛЬКО то, что написано красным):

procedure TForm1.Button1Click(Sender: TObject);
var
  a: integer;
  b: integer; {красным написано то, что нужно добавить в процедуру}

begin

end
;

Мы только что добавили в процедуру две переменные a и b, причем эти переменные – целые числа, потому что при их описании мы использовали слово integer, которое означает целое число. О том, что мы добавляем (описываем) переменные, свидетельствует ключевое слово var.

Добавьте в процедуру 3 следующие команды (ТОЛЬКО то, что написано красным):

procedure TForm1.Button1Click(Sender: TObject);
var
  a: integer;
  b: integer;
begin
 
a:=StrToInt(Edit1.Text);
  b:=StrToInt(Edit2.Text);
  ShowMessage( IntToStr(a+b) ); {красным написано то, что нужно добавить в процедуру}

end;

Рассмотрим подробнее эти три команды.

Первая команда a:=StrToInt(Edit1.Text); состоит из трех частей: а, :=, StrToInt(Edit1.Text).  

Почему нельзя написать просто a:=Edit1.Text, как в предыдущей программе? Потому что сейчас переменная а типа integer, то есть целое число, а свойство Edit1.Text типа string, то есть строка. Числа нельзя присваивать строкам и наоборот. Поэтому, чтобы можно было осуществить операцию присваивания, нужно строку Edit1.Text перевести в целое число с помощью команды StrToInt.

Вторая команда аналогична первой: в переменную b записывается число из второго текстового поля. 

Третья команда ShowMessage( IntToStr(a+b) ).

Почему нельзя было написать просто ShowMessage(a+b), как в предыдущей программе? Потому что команда ShowMessage выводит на экран только строки.

Создайте в папке Delphi Projects папку «Сложение чисел» и сохраните туда программу. Потом закройте проект, воспользовавшись командой File, Close All.
Категория: Лабораторно-практические занятия по Delphi | Добавил: MainTeacher (07.12.2010)
Просмотров: 7616 | Рейтинг: 5.0/1
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]