Begin Readln

End

Ця програма просто виведе чорне консольне вікно й закриється, коли буде натиснуто клавішу Enter.

Приклад 3. Обчислити значення у для трьох варіантів параметрів:

1) а=-3,7; b=5,6; c=tg|bx|,

2) а=0,81; b=-2,4; c=tg|bx|,

3) а=2,5; b=0,6; c=tg|bx|

за формулами

Значення х=0,5 ввести із компонента Edit, результати обчислень вивести в компонент Мето.

Пояснення. Компонент Меmо - це багаторядкове текстове вікно для введення чи виведення значень даних програми. У вікні компонентів Delphiвона має позначення, зображене на рис. 2.6.

Основні властивості компонента Мето:

Name- ім’я компонента у программі,
Lines- вікно для введення чи редагування початкових даних програми,
ScroIlBars- встановлення у вікні Мето лінійки прокручування. Ця властивість може приймати одне із значень: None, Vertical, Gorizontal, Both(відсутня, вертикальна, горизонтальна, обидві).

Основні методи компонента Мето:

Clear - очищення вікна Мето,
Lines.Add(s)- додавання рядка Sу вікно Мето.

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

{Оброблення події натиснення кнопки "Пуск" }

Procedure TForml.ButtonlClick(Sender: TObject);

Vara,b,c,d,x,y: real; s:integer; Label 88;

begin

x:= StrToFloat(Editl .Text);

s:=l;

{ Селектор }

88: case s of

1: begin a:=-3.7; b:=5.6; c:=abs(sin(b*x)/cos(b*x)); end;

2: begin a:=0.81; b:=-2.4; c:=abs(sin(b*x)/cos(b*x)); end;

3: begin a:=2.5; b:=0.6; c:=abs(sin(b*x)/cos(b*x)); end;

end;

if x<a then y:=sin(exp(a+c))+sqr(x);

if (x>=a) and (x<b) then y:=exp((l/3)*ln(a+abs(5.3*b)))+c;

if x>=b then y:=sqr(cos(a))+sin(x*x)-b*c;

// виведення результатів у Memo

Memo1.Lines.Add(‘x=’+ FloatToStr(x) + ’ y=’ + FloatToStr(y) +IntToStr(s)+^,{i - варіант’);

if s<=3 then goto 88;

end;

3.Контрольні запитання

Які програми називаються розгалуженими?
Назвіть оператори, котрі дозволяють змінювати порядок виконання операторів програми.
Запишіть оператор умовного переходу (повна форма), накресліть структурну схему його роботи.
Запишіть оператор умовного переходу (скорочена форма), накресліть структурну схему його роботи.
До складу умовного оператора може входити лише один оператор. Як бути, якщо необхідно використати декілька операторів?
Які можливості має оператор варіанта?
Назвіть правила запису «селектора».
Як «працює» оператор варіанта?
Запишіть загальну форму оператора безумовного переходу. В яких випадках він виконується?
Запишіть фрагмент програми обчислення Z:

4.Лабораторне завдання

Скласти структурну схему алгоритму та програму обчислення значень Yдля трьох варіантів значень параметрів за формулами, зазначеними в індивідуальному завданні. Індивідуальне завдання взяти з таблиці 2.9 згідно порядкового номера, прізвища студента в списку групи.

При складанні програми передбачити: введення значень х з дисплею, виведення на форму проекту всіх варіантів значень вихідних даних ірезультатів обчислення. Оформити протокол. Зробити висновки за результатами розрахунків.

N вар	Формули виразів	Варіанти параметрів
1	y=	1.u=Sin x 2.u=Cos x 3.u=tg x
2	y=	1.a=0.4;b=2.3;z= 2.a=0.2;b=0.8;z= 3.a=0.7;b=2.1;z=0.8
3	y=	1.b=-1.6; m=0.9;n=-1.4 2.b=4.5;m=-0.5;n=2.2 3.b=-4.5;m=0.5;n=-1.5
4	y=	1.a=0.2;b=0.5;z= 2.a=0.15;b=0.2z= 3.a=0.9;b=5;z=
5	y=	1.a=-4.2;b=5.3;c=1.5 2.a=0.35;b=-1.8;c=-1.8 3.a=2.8;b=-0.6;c=2.0
6	y=	1.a=-5;b=2.5z=Ln 2.a=-3;b=5;z=Ln 3.a=-10;b=3;z=Ln
7	y=	1.a=3.2;b=-0.7;c=2.2 2.a=10.5;b=-2.5;c=5.6 3.a=5.4;b=3;c=2.6
8	y=	1.k=3.1;m=5.15n==0.5 2.k=0.78;m=-2.4;n=4.5 3.k=1.1;m=0.95;n=0.41
9	y=	1.a=-2.2;b=7.2;z= 2.a=-1.5;b=3.2;z= 3.a=-5;b=5.5;z=
10	y=	1.a=101;b=9;c=1112 2.a=120;b=1005;c=600 3.a=91;b=303;c=712
11	y=	1.a=-1b=3.4;z=tgbx 2.a=-3.2;b=5.5;z=tg 3.a=-5.2b=7.2;z=tg
12	y=	1.k=4;m=-14.7;n=-0.7 2.k=3;m=6.5;n=3.14 3.k=5;m=-11;n=0.45
13	y=	1.k=1.33;r=0.85;s=3.5 2.k=0.9;r=3.3;s=1.2 3.k=1.57;r=0.75;s=2.15
14	y=	1.a=0.5;b=4.5;z= 2.a=0.5;b=3.7;z= 3.a=0.5;b=2.7;z=
15	y=	1.a=3.5;b=-0.73;c=2.5 2.a=15.4;b=-5.6;c=3.5 3.a=5.1;b=4;c=2.7
16	y=	1.a=0.2;b=0.5z= 2.a=1.2;b=2.5;z= 3.a=0.5;b=1.2;z=
17	y=	1.a=0.2;b=0.75;z=Lntgbx 2.a=2.4;b=2.4;z=Lntgbx 3.a=5.1;b=6.1;z=Lntgbx
18	y=	1.a=6;b=3.2;z= 2.a=3;b=6; z= 3.a=2.7;b=1.8; z=
19	y=	1.a=2.2;b=2.4;c=Ln 2.a=1.6;b=1.7;c= c=Ln 3.a=1.3;b=4.2;c=Ln
20	y=	1.a=0.8;b=2.4;f= 2.a=1.2;b=4.2;f= 3.a=3.4;b=8.1;f=
21	y=	1.a=4.5;b=8.4;z=tgb 2.a=8.2;b=15.2; z=tgb 3.a=1.7;b=0.5; z=tgb
22	y=	1.a=0.3;b=0.9;z=Sin 2.a=4.3;b=5.15;z=Sin 3.a=6.5;b=7.5;z=
23	y=	1.a=1.5;b=6.4;z=Ln 2.a=1.9;b=4.6; z=Ln 3.a=0.6;b=12.4; z=Ln
24	y=	1.a=3.7;b=8.7;z=tgbx 2.a=9.3;b=10.5;z=tgabx 3.a=2.1;b=5.7;z==tg
25	y=	1.a=1.5;b=5.7;z=Ln 2.a=3.7;b=8.4; z=Ln 3.a=a=4.4;b=5.6; z=Ln
26	Обчислити дійсні корені рівняння а+b+c=0. Якщо коренів немає, то повідомити про це: «Коренів немає».	1.a=0.5;b=6;c=-5 2.a=-3;b=0.4;c=10 3.a=2;b=3;c=5
27	y=	1.a=0.5;b=1.5;p=-4 2.a=-1;b=0.5;p=-4 3.a=-2;b=0;p=-4
28	Визначити, чи можна побудувати трикутник з наданими сторонами (a,b,c). Якщо не можна –надрукувати 0, інакше – «ТАК, МОЖЛИВО».	1.a=5;b=5;c=10 2.a=10;b=10;c=5 3.a=10;b=5;c=2
29	Змінній К присвоїти номер чверті плоскості, в якій знаходиться точка з координатами x,y.	Координати x,y ввести з дисплею за завданням викладача.
30	Значення змінних a,b,c поміняти місцями таким чином, щоб було а<b<c.	a=-5;b=5;c=2; a=5;b=-5;c=2; a=2;b=5;c=15