Введення

a, b, c, d, x

Xналежить до

[a,b] чи [c,d]

«Не належить»

«Належить»

Кінець

Ні Так

Форма проекту з вхідними даними та результатом має вигляд:

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

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

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.

Початок

N

N-парне

«Число парне»

«Число не парне»

Кінець

Ні Так

Рисунок 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автоматично згенерує в текстовому редакторі код (заготовку додатку).

Program projectl;

{SAPPTYPE CONCOLE}

Uses SysUtils;

Begin

// Insert uses code here;

{ Тут вставте вихідний текст }

end.

Директива {SAPPTYPECONCOLE}повідомлює, що ця програма є консольний додаток.

За допомогою ключового слова Usesпідключають стандартний модуль SysUtils.

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

У Pascalє дві стандартні процедури Readln(для введення даних) і Writeln(для виведення даних), які можна використовувати в консольних додатках.

Процедура Readlnвиконує введення значення з клавіатури й передання його в змінну. При введенні списку змінних їхні значення треба відокремлювати пропусками. Після закінчення введення необхідно натиснути клавішу Enter. У процедурі Readlnможе не бути жодного параметра. Тоді при її виконанні програма просто очікує натиснення Enter.

Процедури Writeі Writelnслугують для виведення даних. При звертанні до Writeвиведення даних здійснюється у рядок, а при кожному звертанні до Writelnвиведення значень починається з нового рядка.

Якщо Writelnне має параметрів, то відбувається пропускання рядка. Для першого пробного запуску у головний логічний блок програми можна помістити лише один оператор Readln: