Register

OR

Do you already have an account? Login

Login

OR

Don't you have an account yet? Register

Newsletter

Submit to our newsletter to receive exclusive stories delivered to you inbox!

Энджелл

Двумерный массив
ЗАДАНИЕ 22. Дана матрица размером n*m. Выполнить сглаживание в строках матрицы, которое заключается в замене каждого элемента значением среднего арифметического трех стоящих рядом значений.

более месяца назад
Просмотров : 15    Ответов : 1   

Лучший ответ:

Const
   N = 3;
   M = 4;
Var
   A:array[1..N,1..M] of real;
   i,j:integer;
   Sr,B,C:real;
Begin
Randomize;
WriteLn(Исходная матрица:);
For i:= 1 to N do
    Begin
    For j:= 1 to M do
        Begin
        A[i,j]:=random()*13;
        Write(A[i,j]:6:3, )
        End;
    WriteLn;
    End;
WriteLn;
WriteLn(Сглаженная матрица:);
For i:= 1 to N do
    Begin
    B:=A[i,1];
    C:=A[i,2];
    A[i,1]:=(B+C)/2;
    For j:= 2 to M-1 do
        Begin
        Sr:=(B+C+A[i,j+1])/3;
        B:=A[i,j];
        A[i,j]:=Sr;
        End;
    A[i,M]:=(B+A[i,M])/2
    End;
For i:= 1 to N do
    Begin
    For j:= 1 to M do
        Write(A[i,j]:6:3, );
    WriteLn;
    End
End.

более месяца назад
Ваш ответ:
Комментарий должен быть минимум 20 символов
Чтобы получить баллы за ответ войди на сайт
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров и нажмите кнопку Просмотр анимации.


Другие вопросы: