Текст програми

{Оброблення події натиснення кнопки “Розв’язок" }

Procedure TForml.ButtonlClick(Sender: TObject);

Vara,b,c,d,x:Real;

begin

a:=StrToFloat(Editl.Text);

b:=StrToFloat(Edit2.Text);

c:=StrT oFloat(Edit3.Text);

d:=StrToFloat(Edit4.Text);

x:=StrT oFloat(Edit5.Text);

і f (A<=x)And(x<=b)or(c<=x)and(x<=d)

thenShowMessage (' Належить')

elseShowMessage (' He належить');

end;

Приклад 2. Написати програму, котра вводить число з клавіатури й повідомляє парне воно чи непарне.

Пояснення. Перевірку на парність можна виконати двома способами: використовувати стандартну функцію Odd(), яка повертає значення true, якщо її аргумент є непарний, або перевіряти, чи дорівнює остача від ділення числа на 2 (операція mod).

Схема алгоритму програми зображена на рис. 2.5.

Ні Так

Рисунок 2.5 - Схема алгоритму

Текст программи:

Program project 1;

{$APPTYPE CONCOLE}

Uses sysutils;

VarN: integer;

Begin

// введення числа

Writeln(‘Введітьчисло’);

Readln(N);

//виведення повідомлення

IfOdd(N) thenWriteln(‘Числонепарне’)

Else Writeln(‘Числопарне’);

Readln

End.

Пояснення. Програму написано в стилі MSDOS. Це консольний додаток. Ззовні він має вигляд програми з текстовим інтерфейсом, але здатні звертатись до більшості функцій Windows.

Для того, щоб створити консольний додаток, треба дати команду File→New(Файл→Создать) і у діалоговому вікні NewItens(Створення програми) обрати позначку ConsoleWizard(Майстер консольних додатків).

Система Delphi-5 автоматично згенерує в текстовому редакторі код (заготовку додатку).