06.06.2014, 21:59 | #1 (permalink) |
Новичок
Регистрация: 31.05.2014
Сообщений: 8
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Блок-схема к программе
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. |
06.06.2014, 21:59 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
В схожих темах должны встречаться полезные советы Помогите, пожалуйста, построить блок схему по программе Нужна блок-схема к программе |
07.06.2014, 09:28 | #2 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
На будущее: если Вы хотите, чтобы форматирование текста программы (отступы) сохранилось, то это делается так. Подготавливаете своё сообщение в Расширенном режиме (кнопка под полем ответа), копируете текст программы, выделяете его и жмёте одну из двух кнопок: # либо php. Все Ваши разметки сохранятся. Или можно в режиме быстрого ответа вручную перед и после листинга добавить теги {CODE} и {/CODE}, соответственно. Только скобки, конечно, не фигурные, а квадратные "[", "]". А звёздочки лепить не надо. Вот так:
С тегами CODE: Код:
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 код:
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|