Практична частина. 
Опрацьовування виняткових ситуацій в Delphi

• 1.1 Розробити прикладне застосування, в якому необхідно знайти найменше з п’яти введених чисел, та вивести його значення на форму.
• 1.1.1 Блок-схема даного завдання зображена на Рисунку 2.1.

Рисунок 2.1. — Блок-схема завдання 2.1

1.1.2 Лістінг програми 2.1.

program Project21;

{$APPTYPE CONSOLE}.

uses.

SysUtils;

Var a: array[1.5] of integer;

i, b: integer;

begin.

{ TODOoUsercConsole Main: Insert code here }.

Writeln ('Enter five numbers');

for i:=1 to 5 do.

Readln (a[i]);

b:=a[1];

for i:=2 to 5 do.

begin.

if a[i].

then b:=a[i];

end;

writeln ('The least number is:', b);

readln;

end.

1.1.3 Результат роботи даного завдання на Рисунку 2.2

Рисунок 2.2 — Результат роботи програми 2.1.

1.1.4 Відповіді задачі 2.1.

Таблиця 2.1 — Відповіді завдання 2.1.

• 1.2 Розробити прикладне застосування, якщо відомо, що дано речове число x, необхідно знайти значення наступної функції f, приймаючої речові значення: f (x) = 2sin (x), якщо x>0; f (x) = 6 — x, якщо x? 0.
• 1.2.1 Блок-схема даного завдання зображена на Рисунку 2.3

Рисунок 2.3 — Блок-схема завдання 2.2

1.2.2 Лістінг програми 2.2.

unit Unit1;

interface.

uses.

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,.

Dialogs, StdCtrls;

type.

TForm1 = class (TForm).

Label1: TLabel;

Edit1: TEdit;

Label2: TLabel;

Button1: TButton;

Button2: TButton;

Edit2: TEdit;

procedure Button1Click (Sender: TObject);

procedure Button2Click (Sender: TObject);

private.

{ Private declarations }.

public.

{ Public declarations }.

end;

var.

Form1: TForm1;

x, f: real;

implementation.

{$R *.dfm}.

procedure TForm1. Button1Click (Sender: TObject);

begin.

x:=StrToFloat (Edit1.Text);

if x > 0 then f := 2*sin (x).

else.

f :=6-x; Edit2. Text:=FloatToSTr (f);

end;

procedure TForm1. Button2Click (Sender: TObject);

begin.

close;

end;

end.

1.2.3 Результат роботи даного завдання на Рисунку 2.4.

Рисунок 2.4 — Результат роботи завдання 2.2.

1.2.4 Відповіді задачі 2.2.

Таблиця 2.2 — Відповіді завдання 2.2.

• 1.3 Розробити прикладне застосування у якому необхідно виконати наступні дії, а саме: вивести на екран три числа в порядку, зворотному введенню.
• 1.3.1 Блок-схема даного завдання зображена на Рисунку 2.5

Рисунок 2.5 — Блок-схема завдання 2.3

1.3.2 Лістінг програми 2.3.

program Project2;

{$APPTYPE CONSOLE}.

uses.

SysUtils;

var.

a, b, c:real;

begin.

{ TODOoUsercConsole Main: Insert code here }.

writeln ('enter 3 numbers');

readln (a, b, c);

writeln (c:4:2,' ', b:4:2,' ', a:4:2);

readln;

end.

1.3.3 Результат програми зображений на Рисунку 2.6.

Рисунок 2.6 — Результат роботи програми 2.3.

1.3.4 Відповіді задачі 2.3.

Таблиця 2.3 — Відповіді завдання 2.3.

• 1.4 Розробити прикладне застосування у якому необхідно обрахувати суму елементів масиву, вхідні дані довільні
• 1.4.1 Блок-схема даного завдання зображена на Рисунку 2.7

Рисунок 2.7 — Блок-схема завдання 2.4.

1.4.2 Лістінг програми 2.4.

program Project4;

{$APPTYPE CONSOLE}.

uses.

SysUtils;

var.

a:array[1.567 657] of integer;

S:integer;

i, n: integer;

begin.

{ TODOoUsercConsole Main: Insert code here }.

writeln ('Enter the number of array elements');

readln (n);

for i:=1 to n do.

begin.

writeln ('Enter the number', i);

readln (a[i]);

end;

for i:=1 to n do.

S:=S+a[i];

writeln ('S=', S);

readln;

end.

1.4.3 Результат програми зображений на Рисунок 2.8.

Рисунок 2.8 — Результат роботи програми 2.4.

1.4.4 Відповіді задачі 2.4.

Таблиця 2.4 — Відповіді завдання 2.4.

винятковий помилка масив програма.