Мова Delphi
|
|
Найбільш зручним для використання в програмах є тип Delphi Integer .Інші цілі типи використовуються для зменшення місця, займаного даними в пам'яті комп'ютера. |
Дробові числа мають дробову частину, відокремлювану десятковою крапкою. Допускається використання символу e (або E ), за яким слідує число, яке вказує, що ліву частину потрібно помножити на 10 у відповідній мірі: 5e25 - п'ять помножити на десять у двадцять п'ятого ступеня.
Нижче наведено стандартні типи дрібних чисел і відповідні їм діапазони допустимих значень . Для більшості типів вказано діапазон позитивних значень, проте допустимим є аналогічний діапазон негативних значень, а також число 0 .
|
Найбільш зручним для використання в програмах є тип Delphi Real . Йому еквівілентен тип Double , але в майбутньому це може бути змінено.Обчислення з дробовими числами виконуються наближено, за винятком типу Currency (фінансовий), який призначений для мінімізації помилок округлення в бухгалтерських розрахунках. |
Наступним типом даних є логічний Boolean , що складається всього з двох значень: True (Істина) і False(Брехня). При цьому True> False .
Тепер, використовуючи компоненти, їх властивості та події, вводячи власні змінні, можна конструювати програми, що містять обчислення. Залишилося дізнатися, як обчислене значення вивести на екран. Про консольні програми я тут не говорю ! А в нормальних віконних Windows-додатках це значення потрібно помістити в який-небудь компонент, який має властивості Text або Caption . Це, наприклад, такі компоненти як Label і Edit , та й сама Форма має властивість Caption , куди теж можна виводити інформацію. Однак, в Delphi інформацію перед виведенням, як правило, необхідно перетворювати. Так як привласнення можливе тільки між змінними одного типу, то така програма (не намагайтеся її виконувати):
var A, B, C: Integer ;
begin
A := 5 ;
B := 10 ;
C := A+B ;
Label1.Caption := C ;
end ;
викличе помилку, так як властивість Caption має текстовий тип String , а використані змінні - цифровийтип Integer . Значить, потрібно перетворити значення змінної C в текстовий тип. Для цього є вбудована функція IntToStr . Рядок в нашій "програмі", що викликала помилку, повинна виглядати так:
Label1.Caption := IntToStr(C) ;
Така програма, крім показу числа 15 , ні на що не здатна. Ми повинні навчитися вводити в програму інші числа.Використовуємо компоненти Edit . Введені числа будуть міститися у властивості Text цих компонентів.Розташуємо на формі два компоненти Edit , один компонент Label і кнопку Button , після натискання на яку і будемо проводити обчислення. У компоненти Edit1 і Edit2 будемо вводити числа для підсумовування.Щоб переміститися в редактор коду, клацнемо двічі по нашій кнопці Button1. Ми потрапимо прямо в сформовану для нас середовищем Delphi заготовку обробника натискання на кнопку, безпосередньо між операторами begin і end . Напишемо таке просте код:
procedure TForm1.Button1Click(Sender: TObject);
var A, B, C: Integer;//Не забудьте опис змінних
begin
//Початок коду:
A := Edit1.Text;
B := Edit2.Text;
C := A+B;
Label1.Caption := IntToStr(C);
//Кінець коду
end ;
При спробі виконати цей код Delphi покаже помилки з аналогічної причини - змінні A і B мають цифровий тип Integer , а властивість Text - текстовий тип String. Виправити помилки допоможе вбудована функція StrToInt , що виконує зворотне перетворення - текст в ціле число. Оператори присвоєння змінним A і B повинні виглядати так:
A := StrToInt(Edit1.Text);
B := StrToInt(Edit2.Text);
В даному випадку змінні A, B, Cвикористовувалися для наочності. Можна обійтися одним рядком:
Label1.Caption:=IntToStr(StrToInt(Edit1.Text)+StrToInt(Edit2.Text));
Аналогічно, є функції і для перетворення в рядок і назад дійсних чисел c плаваючою ( Float ing англ.) Коми, що мають тип Real . Для перетворення в рядок - FloatToStr , назад - StrToFloat . Часто результати обчислень, що мають тип Delphi Real , мають після коми довгий "хвіст" цифр. При виведенні такої змінної в текстовому вигляді необхідно обмежити кількість цифр після коми. Як це можна зробити, описується також в Уроці Delphi Робота з рядками Delphi .
