|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
26.02.2015, 15:10 | #1 |
Регистрация: 25.02.2015
Сообщений: 6
|
напишите блок схему
напишите пожалуйста блок схему по листингу программы👇
program prog; var i, j, n, m_i, m_j: byte; A: array[1..100,1..100] of Real; maxmod: Real; begin randomize; writeln('Vvedite N:'); readln(n); {заполнение случайными числами, можно вводить вручную} for i:=1 to n do for j:=1 to n do A[i,j]:=-100+random(200); {поиск максимального по модулю элемента} maxmod:=abs(A[1,1]); m_i:=1; m_j:=1; for i:=1 to n do for j:=1 to n do if abs(A[i,j])>maxmod then begin maxmod:=abs(A[i,j]); m_i:=i; m_j:=j; end; {Печать матрицы и ответа} writeln('Исходная матрица:'); for i:=1 to n do begin for j:=1 to n do write(A[i,j]:6:1); writeln; end; writeln('Максимальный по модулю элемент A[',m_i,';',m_j,'] = ', A[m_i, m_j]:6:1); {вывод на печать уменьшенной матрицы} for i:=1 to n do if (i<>m_i) then begin for j:=1 to n do if (j<>m_j) then write(A[i,j]:6:1); writeln; end; readln; end. |
26.02.2015, 15:35 | #2 |
Форумчанин
Регистрация: 23.09.2010
Сообщений: 682
|
Владимир163
Существуют программы, которые умеют строить блок-схемы по коду, погуглите, я думаю найдёте. Вот например - первая страница поиска яндекса: http://www.twirpx.com/files/software/codeflows/ http://diamfc.ucoz.ru И если уж выкладываете код - оформляйте его тегом "code"
Проще всего признать свою ошибку.
Гораздо труднее еЁ осознать и исправить. Последний раз редактировалось Niro; 26.02.2015 в 15:39. |
26.02.2015, 16:38 | #3 | |
Старожил
Регистрация: 12.11.2010
Сообщений: 8,570
|
Цитата:
|
|
26.02.2015, 19:54 | #4 | |
Старожил
Регистрация: 04.02.2009
Сообщений: 18,136
|
Цитата:
Маньяк-самоучка
Utkin появился в результате деления на нуль. Осторожно! Альтернативная логика |
|
26.02.2015, 20:13 | #5 | |
Цифровой кот
Старожил
Регистрация: 29.08.2014
Сообщений: 7,656
|
Цитата:
Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...
|
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Проверьте блок схему | NYork | Помощь студентам | 1 | 19.12.2014 16:05 |
Составить схему алгоритма (блок-схему) | doc599 | Помощь студентам | 12 | 04.10.2012 17:07 |
Нарисовать блок-схему | Megastervochka | Паскаль, Turbo Pascal, PascalABC.NET | 0 | 20.05.2012 22:36 |
напишите блок-схему! | abket1992 | Помощь студентам | 1 | 15.04.2010 18:51 |
напишите пож-та блок-суму | 4otenado | Помощь студентам | 4 | 01.06.2009 09:44 |