Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Работа для программиста > Фриланс
Регистрация

Восстановить пароль
Повторная активизация e-mail

Ответ
 
Опции темы
Старый 19.01.2018, 23:11   #1
Aлена
 
Регистрация: 25.12.2017
Сообщений: 9
Репутация: 10
По умолчанию Блок-схема , по коду

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.
Aлена вне форума   Ответить с цитированием
Старый 19.01.2018, 23:12   #2
alexcoder
Участник клуба
 
Регистрация: 31.05.2009
Сообщений: 739
Репутация: 410

skype: alexcoder1
По умолчанию

Aлена, обращайтесь e-mail: informatik101@mail.ru vk.com/alexcoder1
__________________
Помощь с программами:
vk.com/alexcoder1
e-mail: informatik101@mail.ru
alexcoder вне форума   Ответить с цитированием
Старый 19.01.2018, 23:13   #3
hidforce
Пользователь
 
Регистрация: 27.03.2015
Сообщений: 15
Репутация: -24
По умолчанию

Могу помочь. Пиши на illusion_of_exist@mail.ru
hidforce вне форума   Ответить с цитированием
Старый 20.01.2018, 17:22   #4
JIeIIIa
Форумчанин
 
Регистрация: 21.12.2011
Сообщений: 54
Репутация: 22
По умолчанию

Если еще актуально, пишите: stealth(собака)bigmir.net
Сразу указывайте на когда нужна работа и предполагаемый бюджет.
JIeIIIa вне форума   Ответить с цитированием
Старый 20.01.2018, 18:22   #5
min@y™
Цифровой кот
Профессионал
 
Аватар для min@y™
 
Регистрация: 29.08.2014
Адрес: 1600, пенсильвания-авеню, п.г.т. верхний Вашингтонск, 8126 км от МКАД, от поста ГАИ - налево.
Сообщений: 7,636
Репутация: 2371

icq: 100500
skype: kick-ass
По умолчанию

Могу бесплатно дать программу для создания красивых блок-схем.
__________________
Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...
min@y™ вне форума   Ответить с цитированием
Старый 21.01.2018, 12:43   #6
newerow1989
Я самый любопытный
Профессионал
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Адрес: RU, Алтайский край, Красногорский р-н, с. Балыкса, ул. Центральная Сообщений: 7,541 Репутация: 37104
Сообщений: 1,704
Репутация: 1522

skype: newerow1989
По умолчанию

Про блок-схему не ко мне. Хотя я ранее написал код: http://programmersforum.ru/showthread.php?t=316691
__________________
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.narod.ru
[Паскаль] [Delphi]
newerow1989 вне форума   Ответить с цитированием
Старый 22.01.2018, 13:25   #7
Igor[Игорь]
Форумчанин
 
Аватар для Igor[Игорь]
 
Регистрация: 25.11.2011
Сообщений: 52
Репутация: 8

icq: 2168364
По умолчанию

igor23dec@yandex.ru
https://telegram.me/IgorVN
__________________
e-mail: igor23dec@yandex.ru , ICQ: 2168364 , Telegram: @IgorVN
Delphi, PHP
Примеры http://igorvn.ucoz.ru/
Igor[Игорь] вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Assembler Блок схема по коду.процедура Dmitriy2 Помощь студентам 0 18.12.2016 19: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 03.12.2009 00:10


09:39.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru