Завантажте середовище Delphi.

Лабораторна робота №10

Тема:Розміщення на формі елементів керування та настроювання їх властивостей. Введення й виведення даних, робота зі змінними.

Мета:. Практично закріпити, вдосконалити та перевірити знання та вміння введення, виведення інформації різних типів, їх прості перетворення в Delphi.засвоїти прийоми відкриття, редагування, компіляції та збереження проектів; виховувати культуру роботи за комп’ютером.

Забезпечення: ПК, інструкція.

Теоретичні відомості

Запис арифметичних виразів на будь-якій мові програмування відрізняється від математичного запису горизонтальним принципом побудови, тобто операнди та знаки операцій запичуються послідовно один за іншим.

Наприклад:

~ (a*a*a+2*x)/(4*a-x);. ~ ((a+1)*(a+1)-2)/(4*(a-x)).

Стандартні функції Delphi:

Delphi	Коментарі, матем. форма	Delphi	Коментарі, матем. форма
Abs(x)	\| x \| – абсол. величина х	Trun(x)	Ціла частина Х
Sqrt(x)	x – квадр. корінь з х	Int(x)	Обнулить дробну частину
Sqr(x)	x² – квадрат числа	Random	Випадкове дійсне Î(0;1)
Exp(x)	е^х – експонента е	Random(n)	Випадкове ціле Î[0;n]

Функції перетворення

Функція	Значення функції
IntToStr (k)	Рядок – відображення цілого k
FloatToStr (n)	Рядок – відображення дійсного n
FloatToStrF(n, fffixed , k,m)	Рядок – відображення дійсного n в форматі з фіксованою крапкою; k —загальна кількість символів, m — кількість цифр після десяткової точки.
StrToInt (s)	Ціле – відображення рядка s
StrToFloat (s)	Дійсне – відображення рядка s

Інструкція «Обчислити і присвоїти».

Формат : <адреса результату>: = <звідки дані і як визначити результат>;

В лівій частині може бути вказана адреса – змінна, значення якої визначається або компонента вікна, яка повинна бути змінена. Права частина визначає, звідки беруть інформацію, які перетворення з нею треба виконати.

Наприклад:

Label2.captin:=’Добрий день!’; – текст помістити в вікні як нове значення мітки Label2;

S:=Edit1.text; – інформація з рядку Edit1 – нове значення змінної S.

Image3.Visible:=true; – змінити властивість Image3,тобто малюнок зробити видимим.

Label2.captin:= Edit1.text+’, вітаю!’; – до тексту, введеному користувачем в рядок Edit1додати вказаний текст і результат вивести в вікні як нове значення міткиLabel2.

Розстановка елементів інтерфейсу на формі

Label – мітка, використовується для виведення в вікні текстів.

Edit – вікно введення, використовується для введення від користувача початкових даних.

Button – кнопка. Як правило, при її натисканні повинна початись обробка введених даних і друкування результату.

Хід роботи

Завдання1.Створити проект, що реалізує додавання цілих чисел. (до 7 балів).

Завантажте середовище Delphi.

2. Введіть на Вікно Форми необхідні елементи.

Форма даного додатку буде містити наступні компоненти: три вікна Еdit для введення і виведення даних Еdit, одну мітку Label для зображення знаку «+», і дві кнопки Button - одна для реалізації завдання, інша для його завершення.

Дайте формі назву Додавання цілих чисел. Проексперементуйте з кольором форми, розміром шрифту кнопок

3. Введіть у вікно Редактора коду програми необхідні команди.

Модуль даного додатка практично весь генерується автоматично Delphi при проектуванні додатка. Користувач вводить лише свій код для обробки подій, що настувають при натисканні кнопок Button. У тексті модуля від виділений жирним шрифтом.

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

lbl1: TLabel;

btn1: TButton;

btn2: TButton;

procedure btn1Click(Sender: TObject);

procedure btn2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

Implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);

Var

a,b,c:Integer;

begin

a:=strtoint(Edit1.Text);

b:=strtoint(Edit2.Text);

c:=a+b;

Edit3.Text:=inttostr(c);

end;

procedure TForm1.btn2Click(Sender: TObject);

begin

Close;

end;

end.

4. Запустіть проект на виконання(кнопка ). Перевірте, чи працює проект.

5. Збережіть проект в папці D:\MyProgram з іменем Лабораторна10 (Меню File – Save Project As).

6. Запишіть в звіт команди, які утворюють Вашу процедуру обробки події.

Завдання2. Створити проект, який реалізує розрахунок площі трикутника по трьом сторонам. Значення сторін вводе користувач. Після натискання кнопки Обчислити, програма повинна виводити результат – площу трикутника. (від 7 балів).

Постановка задачі: значення a, b, c (сторони трикутника)– повинен визначати користувач в ході виконання програми. Результат – S повинна розраховувати програма і виводити для перегляду на екрані.

Математична модель: доцільно для розрахунку використати формулу Герона: .

Розробка програми в середовищі Delphi складається з наступних етапів:

1. Почніть з створення форми.

Змініть її заголовок (властивість Caption, значення – Трикутник). Змініть властивості, що визначають розмір форми та її розташування відносно верхньої і лівої границі екрану. Можна визначити колір, шрифт, тощо.

2. Створення процедури обробки події – натискання кнопки.

Щоб після натискання кнопки відбувались певні події, створимо процедуру обробки подїі – Button1Click.Подвійний клік миші по командній кнопці вставляє в проект шаблон процедури обробки події.

3. Написання коду процедури обробки події.

Перед ключовим словом begin вставимо рядок з текстом, що описує змінні, які будуть використовуватись для розрахунку:

var a,b,c,p,s:real; f:string;

змінні a,b,c,p,s – дійсні (real),

f – текстова (string).

Між словами begin і end вставимо команди, за якими повинна відбуватись обробка даних та виведення результату.

Треба знати, що будь-яка інформація на формі має текстовий формат. Навіть якщо користувач вводе числа, вони сприймаються як послідовність символів, тобто текст. Арифметичні операції можуть виконуватись тільки з даними в числових форматах. То ж перший крок обробки даних – переведення їх з текстового в числовий формат.

Ці команди визначають, що значення a, b, c будуть взяті з вікон введення на формі і з текстового формату (string) будуть перетворенні в числовий формат дійсного типу (float).

Другий крок – арифметичні операції з даними. Як будувати арифметичні вирази сказано в теоретичних основах.

Ці команди визначають формули, за якими будуть здійснюватись розрахунки, а також адреси комірок ОП для результатів.

Третій крок: Отриманий результат матиме числовий формат. Тож щоб він був зрозумілим користувачу, перед виведенням його в компонент на формі, треба виконати перетворення даних з числового формату в текстовий.

Перетворення значення змінної S з числового формату дійсних чисел (float) в текстовий формат (string) та виведення в компоненті label5.

4. Прогон програми – .

5. Збереження проекту:

Зберегти проект (меню File – SaveProject As). Delphi запропонує зберегти модуль, потімфайли проекту. Імена модуля і проекту повинні бути різні і містити тільки латинські літери.
Щоб в поточній папці створити і зберегти файл виконавчої програми (*.ехе), виконати команду з меню Proiect– BuildNameProject.
Щоб почати створення нового проекту, треба виконати команду: меню File – New – Application. При цьому Delphi опитує, чи треба зберегти попередній проект.

Висновок.

Контрольні запитання

1. З яких розділів складається процедура події?

2. Для чого призначена кнопка ?

3. Для чого призначена кнопка ?

4. Для чого призначена кнопка ?

5. Який формат запису операції «присвоїти»?