Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

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

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 20.04.2011, 22:00   #1
fait218
Пользователь
 
Регистрация: 09.03.2011
Сообщений: 10
По умолчанию Трудноватый массив

Не могу решить убил на неё вечер((
Получить квадратную матрицу порядка n.
рисунок:
http://imglink.ru/show-image.php?id=...ece473768f7222
fait218 вне форума Ответить с цитированием
Старый 20.04.2011, 22:06   #2
Hacker19_90
Delphi Warrior
Старожил
 
Аватар для Hacker19_90
 
Регистрация: 15.08.2008
Сообщений: 2,502
По умолчанию

как-то так!
обнуляй, а потом так
Код:
for i := 1 to n do
begin
    j := 1;
    for k := i to n do
    begin
        massiv[i, j] = k;
        Inc(j);
    end;
end;
Mess with the best, die like the rest. (с) Hackers
Лабораторные, курсовые на Delphi\Pascal\C++
ya.flex-freelance@yandex.ru Icq - 636-954-303
Hacker19_90 вне форума Ответить с цитированием
Старый 20.04.2011, 22:09   #3
fait218
Пользователь
 
Регистрация: 09.03.2011
Сообщений: 10
По умолчанию

спасибо ОГРОМНОЕ) ,а можно полную)?
fait218 вне форума Ответить с цитированием
Старый 20.04.2011, 22:11   #4
Hacker19_90
Delphi Warrior
Старожил
 
Аватар для Hacker19_90
 
Регистрация: 15.08.2008
Сообщений: 2,502
По умолчанию

да не вопрос 50р на счёт телефона мне, а я вам прогу!
Mess with the best, die like the rest. (с) Hackers
Лабораторные, курсовые на Delphi\Pascal\C++
ya.flex-freelance@yandex.ru Icq - 636-954-303
Hacker19_90 вне форума Ответить с цитированием
Старый 20.04.2011, 22:13   #5
fait218
Пользователь
 
Регистрация: 09.03.2011
Сообщений: 10
По умолчанию

пиши номер)
fait218 вне форума Ответить с цитированием
Старый 20.04.2011, 22:26   #6
Hacker19_90
Delphi Warrior
Старожил
 
Аватар для Hacker19_90
 
Регистрация: 15.08.2008
Сообщений: 2,502
По умолчанию

+7 927 973 64 62
Когда ложить надумал?
Mess with the best, die like the rest. (с) Hackers
Лабораторные, курсовые на Delphi\Pascal\C++
ya.flex-freelance@yandex.ru Icq - 636-954-303
Hacker19_90 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Задан вектор X[20]. Положительные числа переписать в массив Y, а отрицательные в массив W leha_demi Помощь студентам 2 24.09.2011 18:12
Дан массив А(20). Получить массив В(20), в котором В(1)=А(2), В(2)=А(1), В(3)=А(4), В(4)=А(3) и т.д. Выве nikita1 Помощь студентам 5 01.12.2010 18:16
Как конвертировать массив символов в массив байт davinci C++ Builder 6 30.10.2010 18:09
Одномерный массив. Q basic - Построить новый массив из элементов исходного ,которые больше P. Marishkaa Помощь студентам 2 12.01.2010 16:54
Упорядочить массив в порядке возрастания и напечатать входной и исходный массив. TheVenny Помощь студентам 3 26.11.2008 15:06