Блок-схема к программе
uses crt;
const n=4; * * * a:array[1..n,1..n] of real=((0.7,-12, 6, 3), * * * * * * * * * * * * * * * * * ( *1, *2,-1,-8), * * * * * * * * * * * * * * * * * ( -3, *4, 5, 0), * * * * * * * * * * * * * * * * * ( *5, -7, 0, 4)); var b:array[1..n,1..n] of real; * * i,j,k:byte; * * s:real; begin clrscr; writeln('Исходная матрица'); k:=0; s:=0; for i:=1 to n do *begin * for j:=1 to n do * *begin * * if j<n-i+1 then * * *begin * * * k:=k+1; * * * s:=s+a[i,j]; * * *end; * * write(a[i,j]:7:2); * *end; * writeln *end; s:=s/k; writeln('Среднее арифметическое выше побочной диагонали=',s:0:2); writeln('Новая матрица'); for i:=1 to n do *begin * for j:=1 to n do * *begin * * b[i,j]:=a[i,j]*s; * * write(b[i,j]:7:2) * *end; * writeln *end; readln end. |
На будущее: если Вы хотите, чтобы форматирование текста программы (отступы) сохранилось, то это делается так. Подготавливаете своё сообщение в Расширенном режиме (кнопка под полем ответа), копируете текст программы, выделяете его и жмёте одну из двух кнопок: # либо php. Все Ваши разметки сохранятся. Или можно в режиме быстрого ответа вручную перед и после листинга добавить теги {CODE} и {/CODE}, соответственно. Только скобки, конечно, не фигурные, а квадратные "[", "]". А звёздочки лепить не надо. Вот так:
С тегами CODE: Код:
uses crt; PHP код:
|
Часовой пояс GMT +4, время: 13:24. |
Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.