|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
19.01.2018, 22:11 | #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, 22:12 | #2 |
Форумчанин
Регистрация: 31.05.2009
Сообщений: 786
|
Aлена, обращайтесь e-mail: informatik101@mail.ru vk.com/alexcoder1
|
19.01.2018, 22:13 | #3 |
Пользователь
Регистрация: 27.03.2015
Сообщений: 15
|
Могу помочь. Пиши на illusion_of_exist@mail.ru
|
20.01.2018, 16:22 | #4 |
Пользователь
Регистрация: 21.12.2011
Сообщений: 54
|
Если еще актуально, пишите: stealth(собака)bigmir.net
Сразу указывайте на когда нужна работа и предполагаемый бюджет. |
20.01.2018, 17:22 | #5 |
Цифровой кот
Старожил
Регистрация: 29.08.2014
Сообщений: 7,629
|
Могу бесплатно дать программу для создания красивых блок-схем.
Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...
|
21.01.2018, 11:43 | #6 |
Я самый любопытный
Участник клуба
Регистрация: 24.07.2012
Сообщений: 1,949
|
Про блок-схему не ко мне. Хотя я ранее написал код: http://programmersforum.ru/showthread.php?t=316691
|
22.01.2018, 12:25 | #7 |
Пользователь
Регистрация: 25.11.2011
Сообщений: 52
|
e-mail: igor23dec@yandex.ru , ICQ: 2168364 , Telegram: @IgorVN
Delphi, PHP Примеры http://igorvn.ucoz.ru/ |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Assembler Блок схема по коду.процедура | Dmitriy2 | Помощь студентам | 0 | 18.12.2016 18:05 |
блок схема по коду(Delphi 7) | Tolian92 | Помощь студентам | 0 | 07.05.2014 21:50 |
Блок схема к коду задачи | serge-first | Помощь студентам | 2 | 27.03.2014 16:23 |
БЛОК-СХЕМА К КОДУ | ICE_LADY | Помощь студентам | 3 | 24.10.2010 16:26 |
Блок схема алгоритма программы и схема взаимодействия модулей. | Lazio | Фриланс | 3 | 02.12.2009 23:10 |