Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
ПРАКТИЧНА РОБОТА N3.doc
Скачиваний:
0
Добавлен:
01.05.2025
Размер:
123.39 Кб
Скачать

Дати письмову відповідь на запитання

1.Яка властивість вказує на власника компонента?

_____________________________________

2.Як називається масив який містить список усіх компонентів, якими володіє даний компонент?

_____________________________________

3.Задопомогою якої властивості можна сховати компонент, і якого вона типу?

_____________________________________

4.Задопомогою якого методу можна сховати компонент?

_____________________________________

5.Задопомогою якого методу можна показати схований компонент?

_____________________________________

Переведіть числа з шістнадцятирічної системи числення в десятеричну та навпаки:

16

10

10

16

$00000D

3445

$2A000D

89765

$DDDDDD

123456

$123456

500

$000064

1000

$0003E8

100100

$000521

98765

$0013BA

909090

$00FFFF

64000

$0000FF

128

$FFFFFF

256

Завдання

Дано форма на якій міститься кнопка TButton та компонент TEdit. Напишіть код який повинний бути щоб при натисканні на кнопку число яке знаходиться в компоненті TEdit в десятеричному форматі перетворювалося в шістнадцятирічний.

procedure TForm1.Button1Click(Sender: TObject); begin end;

Практична робота №4 (2 год.)

ТЕМА: Розв’язування простих математичних виразів.

МЕТА: Навчитися використовувати компоненти із сторінки Standart для розв’язку простих математичних задач.

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

Процедури і функції для роботи з рядками.

Функція AnsiLowerCase(const S:String):String; Повертає рядок S, в якому всі заголовні літери замінені на рядкові в відповідності з національним кодуванням Windows.

Функція AnsiUpperCase (const S:String): String; Повертає рядок S, в якому всі рядкові літери замінені на головні в відповідності з національним кодуванням Windows.

Функція Concat(S1[,S2,...,SN]:String):String; Повертає рядок, що являє собою сцеплення рядків S1, S2..SN.

Функція Copy(St:String; Index, Count: Integer) : String; Копіює з рядка St Count символів, починаючи з сиволу з номером Index.

Процедура Delete(St:String; Index, Count: Integer); Видаляє Count символів із рядка St, починаючи з сиволу з номером Index.

Процедура Insert(SubSt:String; St, Index:Integer); Вставляє підрядок SubSt в рядок St, починаючи з символа з номера Index.

Функція Length(St:String):Integer; Повертає поточну довину рядка St.

Функція LowerCase(const Sstring): String; Повертає рядок S, в якому всі латинські заголовні літери замінені на рядкові.

Процедура OleStrToStrVar(Source:PwideChar; var Dest:String); Копіює “широкий” (двохбайтний) рядок в звичайний рядок.

Функція Pos (SubSt, St:String):Integer; Відшукує в рядку St перше входження підрядка SubSt і повертає номер позиції, з якої вона починається. Якщо підрядок не знайдений, повертається ноль.

Процедура SetLength (St:String; NewLength:Integer); Встановлює нову меньшу довжину NewLength рядка St. Якщо NewLength більше поточної довени рядка, звертання до SetLength ігнорується.

Функція StringOfChar (ChChar; Count: Integer): String; Створює рядок, що складається із Count раз повторюваного символу Ch.

Функція StringToOleStr (const Sourse: String): PwideChar; Копіює звичайний рядок в двохбайтний.

Функція StringToWideChar (Const Source: String; Dest: PwideChar; DestSize: Integer): PwideChar; Перетворює звичайний рядок в рядок з символами UNICODE.

Функція UpperCase (const S:String): String; Вертає рядок S, в якому всі рядкові латинські літери замінені на заголовні.

Підпрограми перетворення рядків в інші типи.

Функція StrToCurr(St:String): Currency; Перетворює символи рядка St в ціле число типу Currency. Рядок не повинен містити початкових або кінцевих пробілів.

Функція StrToDate (St:String): TdateTime; Перетворює символи рядка St в дату. Рядок повинен містити два або три числа, розділених правельним для Windows роздільником (.).

Функція StrToDateTime(St:String): TdateTime; Претворює символи рядка St в дату і час. (StrToDateTime(’28.06.99 18:23’); - дата й час розділені пробілом.

Функція StrToFloat(St:String):Extended; Перетворює символи рядка St в речовинне число. Рядок не повинен містити початкових або кінцевих пробілів.

Функція StrToInt(St:String): Integer; Перетворює символи рядка St в ціле число. Рядок не повинен містити початкових та кінцевих пробілів.

Функція StrToIntDef(St:String; Default:Integer): Integer; Перетворює символи рядка St в ціле число. Якщо рядок не містить правельного представлення цілого числа, повертається значення Default.

Функція StrToIntRange (St:String; Min,Max:Longint): LongInt; Перетворює символи рядка St в ціле число і викликає виняток ErangeError, якщо число виходить за межі діапазону Min...Max.

Функція StrToTime (St:String):TdateTime; Перетворює символи рядка St в час. Рядок повинен містити два або три числа розділених двокрапкою. За останнім числом через пробіл може йти “am” або “pm”, що вказує на 12-годинний формат часу.

Процедура Val(St:String; var X; Code:Integer); Перетворює рядок символів St в внутрішнє представлення цілої або речовинної змінної х, яке визначається типом цієї змінної. Параметр Code містить нуль, якщо перетворення пройшло вдало. В протилежному випадку він містить номер позиції де виникла помилка. В рядку можуть бути початкові або кінцеві пробіли.

Підпрограми оберненого перетворення.

Функція DateTimeToStr(Value:TdateTime):String; Перетворює дату і час із параметра Value врядок символів.

Процедура DateTimeToString(var St:String; Format:String; Value: Tdata Time); Перетворює дату і час із параметра Value в рядок St в відповідності з специфікаторами параметра Format.

Функція DateToStr(Value: TdateTime): String; Перетворює дату із параметра Value в рядок символів.

Функція FloatToStr(Value:Extended):String; Перетворює речовинне значення Value в рядок символів.

Функція FloatToStrF(Value: Extended; Format: TFloatFormat; Precision, Digits:Integer): String; Перетворює дійсне значення Value в рядок символів з врахуванням формату Format і параметрів Precision i Digits.

Функція Format (const Format: String; const Args:array of const): String; Перетворює будь-яку кількість аргументів масива Args в рядок в відповідності з форматом Format.

Функція FormatDateTime (Format:String; Value: TdateTime):String; Перетворює дату і час із параметра Value в рядок символів в відповідності з спеціфікаторами параметра Format.

Функція FormartFloat (Format:String; Value: Extended): String; Перетворює речовинне значення Value в рядок символів з врахуванням спеціфікаторів формату Format.

Функція IntToNext (Value:Integer; Digits: Integer): String; Перетворює ціле число Value в рядок символьного представлення шестнадцятирічного формату: Digits – мінімальна кількість символів в рядку.

Функція IntToStr(Value:Integer): String; Перетворює ціле значення Value в рядок символів.

Функція Str(X[:Width[:Decimals]]; var St:String); Перетворює число х будь-якого рачовинного або цілого типів в рядок символів St; параметр Width i Decimals, якщо вони є, задають формат перетворення: Width визначає загальну ширину поля, що виділяється під відповідне символьне представлення речовинного або цілого числа х, а Decimals – кількість символів в дробовій частині – якщо х речовинне число.

C

Відображає спочатку дату в форматі дд.мм.рр, потім пробіл і час в форматі гг.хх.сс

D

Відображає день без початкового нуля.

Dd

Відображає день з початковим нулем.

Dddd

Відображає день неділі прописом.

Ddddd

Відображає дату в форматі дд.мм.рр

Dddddd

Відображає дату в форматі д.місяць.рік (8 липня 1999)

M

Відображає місяць без початкового нуля.

Mm

Відображає місяць з початковим нулем.

Mmm

Відображає скорочену назву місяця.

Mmmm

Відображає повну назву місяця.

Y або yy

Відображає дві останні цифри року.

Yyy або yyyy

Відображає всі цифри року.

H

Відображає години без початкового нуля.

Hh

Відображає час з початковим нулем.

N

Відображає хвилини без початкового нуля.

Nn

Відображає хвилини з початковим нулем.

S

Відображає секунди без початкового нуля.

Ss

Відображає секунди з початковим нулем.

T

Відображає час в форматі гг.хх

Tt

Відображає час в форматі гг.хх.сс

Am/pm

Відображає час в 12-годинному форматі (am-до 12-дня, pm-після).

Ampm

Відображає час в 12-годинному форматі але без вказівки до чи після півдня.

A/p

Відображає час в 12-годинному форматі (а-до 12-дня, р-після).

/

Відображає використовуванний в Windows роздільник дати.

:

Відображає використовуванний в Windows роздільник часу.

Функція TimeToStr (Value:TdateTime):String; Перетворює час із параметра Value в рядок символів.

ІІІ.Використання в процедурах і функціях рядка Format: