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:

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|

за формулами

Y=

Значення х=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