Turbo Pascal

Program Diagonal;

Uses Crt;

Type Mas = Array [1..10, 1..10] of Integer;

Var A : Mas;

N, i, j : Integer;

Flag : Boolean;

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

Procedure InputOutput(Var A : Mas); {описание процедуры ввода-}

Begin {вывода исходных данных }

ClrScr;

Write(’Количество строк и столбцов – ’); Read(N);

For i := 1 to N do

For j := 1 to N do

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

ReadLn(A[i, j])

end; WriteLn;

WriteLn(’Заданная матрица :’);

For i := 1 to N do

Begin

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

WriteLn

End; WriteLn

End; { of InputOutput }

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

Procedure Solution(Var A : Mas); {описание процедуры поиска решения}

Var Flag : Boolean;

Begin

Flag:=FALSE; i:=1;

While (i<=N) and not Flag do

If (A[i, i]>0) and (A[i, i] mod 2 = 1)

then Flag:=TRUE

else i:=i+1;

WriteLn(’О т в е т :’);

Write(’Среди элементов главной диагонали ’);

If Flag then WriteLn (’есть нечетные положительные.’)

else WriteLn(’нет нечетных положительных.’);

ReadLn;

End; { of Solution }

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

BEGIN

InputOutput(A); {вызов процедуры ввода-вывода данных}

Solution(A); {вызов процедуры поиска решения задачи}

END.

QBasic

CLS

INPUT "Количество строк и столбцов матрицы = ", N

DIM A(N, N)

FOR i = 1 TO N

FOR j = 1 TO N

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

INPUT A(i, j)

NEXT j

EXT i

PRINT : PRINT "Матрица А"

FOR i = 1 TO N

FOR j = 1 TO N

PRINT A(i, j) ;

NEXT j : PRINT

NEXT i

’Цикл "пока" по элементам главной диагонали A(i,i)

i = 1 : Flag = 0

WHILE (i <= N) AND (Flag = 0)

IF (A(i, i)>0) AND (A(i, i) MOD 2 = 1) THEN Flag=1 ELSE i=i+1

WEND

PRINT : PRINT "О т в е т :"

PRINT "Среди элементов главной диагонали ";

IF Flag = 1 THEN

PRINT "есть положительные нечетные."

ELSE

PRINT "нет положительных нечетных."

END IF

END

Пример 4.4. Числа Фибоначчи ( F_i ) определяются по формулам F₀ = F₁ = 1; F_i = F_{i –1} + F_{i –2} при i = 2, 3, ... (каждое очередное число равно сумме двух предыдущих). Вычислить сумму всех чисел Фибоначчи, которые не превосходят заданного натурального числа М.

Тест