|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
19.01.2018, 21:53 | #1 |
Регистрация: 25.12.2017
Сообщений: 9
|
Блок-схема
Помогите составить блок-схему по программному коду , или подскажите хороший сайт онлайн- конструктор
Uses Crt; type Sq = array [1..50, 1..50] of integer; var A: Sq; n, i, j, R1, R2: integer; procedure Testing(X: Sq; m, l, k: integer; var S: integer); label Result; var i, j, l1, k1, p: integer; begin k1 := l; l1 := k; i := 1; j := 1; repeat for p := 1 to m do begin if l = 1 then i := 1; if k = 1 then j := 1; S := 0; repeat if X[i, j] = p then S := 1; i := i + l; j := j + k; until (i = m + 1) or (j = m + 1); if S = 0 then goto Result; end; i := i + l1; j := j + k1; until (i = m + 1) or (j = m + 1); S := 1; Result: end; begin clrscr; Writeln('введите порядок квадрата (не больше 50)'); Readln(n); for i := 1 to n do begin Writeln('введите по очереди элементы строки N ', i); for j := 1 to n do Readln(A[i, j]); end; clrscr; for i := 1 to n do begin for j := 1 to n do Write('|', A[i, j]:7); Writeln('|'); end; Testing(A, n, 0, 1, R1); Testing(A, n, 1, 0, R2); if (R1 = 1) and (R2 = 1) then Writeln('Матрица - латинский квадрат') Else Writeln('Матрица не является латинским квадратом'); Readln; end. |
19.01.2018, 21:57 | #2 |
Старожил
Регистрация: 12.01.2011
Сообщений: 19,500
|
Вы не перепутали "помогите" и "сделайте за меня"?
Назовите нормально тему, покажите свои наработки, конкретные вопросы и т.п. http://www.programmersforum.ru/announcement.php?f=31 Или в раздел Фриланс если вы не хотите ничего делать, а ищете кого-то, кто выполнит ваши задачи за вознаграждение.
Ушел с форума, https://www.programmersforum.rocks, alex.pantec@gmail.com, https://github.com/AlexP11223
ЛС отключены Аларом. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
программирование блок схема. пожалуйста, нарисуйте блок схему. очень срочно нужно! | Bogdan96 | Помощь студентам | 4 | 22.09.2015 09:33 |
Блок-схема | NeLIN | Общие вопросы C/C++ | 1 | 10.07.2013 21:32 |
Схема алгоримта (блок схема) на задачу по Паскалю | LINCHAK | Помощь студентам | 0 | 22.10.2010 16:56 |
Блок-схема | Svtvpv7 | Общие вопросы C/C++ | 2 | 26.02.2010 12:04 |
Блок схема алгоритма программы и схема взаимодействия модулей. | Lazio | Фриланс | 3 | 02.12.2009 23:10 |