Пример5.3

Разработаем справочную систему для расчёта стоимости проез-да в один из пригородов с тремя уровнями комфорта и возможностьюскидки.Исходныеданныепредставленывтабл.5.4.

Таблица5.4

Исходныеданные

Пунктназначения	Базоваястоимость	Параметры	Коэффициент
0)Подпорожье	300руб.	IIIкласс	1
1)Пушкин,2) Всеволожск	100руб.	IIкласс	1,25
3)Выборг,4)Приозерск, 5)Гатчина,6)Тосно	200руб.	Iкласс	1,5
		скидка	0,75

Блок-схема алгоритма реше-нияпредставленанарис.5.11.Сначалаповыбранномугородуиз

списка(снумерациейотнуля)определяетсябазоваястоимостьпоездки. Если на момент расчётагородневыбран,тостоимостьимеет нулевое значение и пользо-ватель информируется об ошибке.Затемстоимостькорректируетсяв

зависимостиотклассаиналичия

скидки.Третийкласснеучтён,т.к.онневлияет настоимость.

Дляразмещениянаформесписка городов использован ком-понентListBox(свойства и способформированияспискаописанывработе 1). Для выбора одного изтрёх взаимоисключающих классовразмещены три компонентаRadio-Button(одинизнихследуетвклю-

читьнаэтаперазработкиформы),а для учёта скидки, которая можетбыть предоставлена для любого изклассов,–компонентCheckBox.

Пример работы приложения пред-ставленнарис.5.12.

procedureTForm1.Button1Click(Sender:TObject);

varst:real;n:byte;

begin

n:=ListBox1.ItemIndex;

casenof

0:st:=300;

1,2:st:=100;

3..6:st:=200;

else

begin

st:=0;

ShowMessage('невыбрангород');

end;end;

ifRadioButton2.Checkedthenst:=st*1.25elseifRadioButton3.Checkedthenst:=st*1.5;

ifCheckBox1.Checkedthenst:=st*0.75;

Рис.5.12

Label2.Caption:='вкассу'+FloatToStr(st)+'руб';

end;

Задание

1. Разработатьалгоритмвычислениязначенияфункции,пред-ставитьеговвиде блок-схемыиреализовать,создавпроект

^{x,x0 }x²1,x1

^ sin(2x)

^ __

_1,x1



2

y^

,0x1

y^ _{ },x1

y^x³,x1

1. ^



_{2. }cos_2x

3. ^

^x,x1

_^x,x1

^_0,x1 ^

^e^x,x0

^7 x1,x3

_0,x1





y^

_x_ ^

_4.y_x1,1x0 _5.

_cos_

_,0x1

2

_6.y_x11,

x3

^x,

x1

_   _

^{ }_0,x1

_7

x1,x3

2

^cosx,x^

^x²,x0 ^





₂ ^_x²,

x0

y^{ }

_7.y_sinx

x,0x

8.^y

_{9. }0,_2x0





^ x,x

_^x2,x2



^1,

_

x0

2. Разработать алгоритм определения отношения точкивыделеннойобласти(рис.5.13)иреализоватьего, создавпроект

6. ^y

1

⁰ 1 ^x

y y

8. ^9.

1

⁰ 1 ^x

1

⁰ 1 ^x

Рис.5.13

3. Разработатьсправочнуюсистемудляинформированияполь-зователяостоимостипроездавсоответствиисвариантомтабл.5.5.

Таблица5.5

Вариантызаданий

№	городов	цен.категорий	1кл.	2кл.	3кл.	возм.скидка	иобратно
1	7	4	1,5	1,3	0,75	25%	нет
2	8	3	2	1,5	0,8	нет	да
3	9	5	1,5	1	нет	30%	да
4	10	5	1,4	0,8	нет	нет	да
5	9	4	1,5	1,25	0,9	30%	нет
6	8	4	1,2	1,1	1	50%	да
7	7	5	1	0,9	0,7	нет	да
8	6	3	1,25	0,75	нет	нет	да
9	7	4	2	1,5	1	20%	нет