Turbo Pascal

Program Decrease;

Uses Crt;

Var A : Array [1..10] of Real;

N, i : Integer;

Otvet: Boolean;

{--------------------------------------------}

Procedure InputOutput; {описание процедуры ввода-вывода данных}

Begin

ClrScr;

Write(’Количество элементов - ’); ReadLn(N);

For i := 1 to N do

begin Write(’A[’ , i , ’] = ’);

ReadLn(A[i])

end; WriteLn;

WriteLn(’Заданная последовательность чисел’);

For i := 1 to N do Write(A[i] : 5 : 1);

WriteLn

End; { of InputOutput }

{--------------------------------------------}

Procedure Processing( Var Otvet: Boolean);

Begin {описание процедуры проверки на убывание элементов}

Otvet := TRUE; i:=1;

While (i<=N–1) and Otvet do

If (A[i]<A[i+1]) then Otvet := FALSE

else i := i+1;

End; { of Processing }

{--------------------------------------------}

Procedure Result(Otvet: Boolean); {описание процедуры вывода результата}

Begin

If Otvet then Write(’образует ’)

else Write(’не образует ’);

WriteLn(’монотонно убывающую последовательность.’);

ReadLn

End;

{--------------------------------------------}

BEGIN

InputOutput; {вызов процедуры ввода-вывода}

Processing(Otvet); {вызов процедуры проверки на убывание}

Result(Otvet); {вызов процедуры вывода результата}

END.

QBasic

CLS

INPUT "Количество элементов – ", N : DIM A(N)

FOR i = 1 TO N

PRINT "A(" ; i ; ") = " ;

INPUT A(i)

NEXT i

CLS : PRINT "Заданная последовательность чисел"

FOR i = 1 TO N

PRINT A(i) ;

NEXT i : PRINT

i = 1 : Otvet = 0

WHILE (i <= N–1) AND (Otvet = 0)

IF A(i) < A(i + 1) THEN Otvet = 1 ELSE i = i + 1

WEND

IF Otvet=0 THEN PRINT "образует" ; ELSE PRINT "не образует" ;

PRINT " монотонно убывающую последовательность."

END

Пример 4.2. Задано множество точек на плоскости. Oпределить, принадлежит ли хотя бы одна точка множества внутренней области круга с центром в точке (a, b) и радиусом R.