![]() |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
![]() |
tricker |
![]()
Сообщение
#1
|
Гость ![]() |
Люди помогите !!!
Мне срочно до завтра необходимо написать программу «Латинский квадрат». Суть в том что если Вы вводите число 5 то строится матрица вида 1 2 3 4 5 2 3 4 5 1 3 4 5 1 2 4 5 1 2 3 5 1 2 3 4 И так далее, я написал половину программы и у меня строится матрица вида, 1 2 3 4 5 2 3 4 5 1 3 4 5 0 2 4 5 0 0 3 5 0 0 0 4 а дальше не могу написать . Я могу выслать текст программы что бы кто – нибудь дописал мне ее, т.к. я не могу ее доделать. |
![]() ![]() |
-=BR@BUS=- |
![]()
Сообщение
#2
|
![]() Новичок ![]() Группа: Пользователи Сообщений: 17 Пол: Мужской Реальное имя: Maxim Репутация: ![]() ![]() ![]() |
Вот чё в итоге у меня получилось, но программа всегда отвечает НЕТ
Program Lat_kv;
Uses crt;
type
vector = array[1 .. 100] of integer;
var
elems: vector;
n,value, i, j, k, s, sum, check: integer;
ok, is_col: boolean;
A:Array[1..100,1..100] of integer;
begin
clrscr;
Writeln ('Введите ранг матрицы');
readln (n);
Writeln ('Введите элементы матрицы через <ENTER>');
For i:=1 to n do
For j:=1 to n do
readln (a[i,j]);
s := 0;
for i := 1 to n do s := s + i;
ok := true;
for is_col := false to true do begin
i := 1;
while (i <= n) and ok do begin
sum := 0;
for k := 1 to n do elems[k] := 0;
for j := 1 to n do begin
if is_col then value := a[j, i]
else value := a[i, j];
sum := sum + value;
if (value > 0) and (value <= n) and (elems[value] = 0) then
inc(elems[value])
else ok := false;
end;
ok := (ok and (sum = s));
inc(i);
end;
end;
if ok then writeln('Yes')
else writeln('No');
readln;
end;
end.
ПОЧЕМУ??? Сообщение отредактировано: -=BR@BUS=- - 21.12.2006 19:45 |
![]() ![]() |
![]() |
Текстовая версия | 8.08.2025 9:42 |