Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.71/7: Рейтинг темы: голосов - 7, средняя оценка - 4.71
0 / 0 / 0
Регистрация: 18.01.2015
Сообщений: 6

Сформировать матрицу по образцу

26.04.2015, 11:08. Показов 1490. Ответов 5
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
0 0 1 0 0
0 0 1 0 0
1 1 1 1 1
0 0 1 0 0
0 0 1 1 1
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
26.04.2015, 11:08
Ответы с готовыми решениями:

Сформировать матрицу по образцу
Сформировать матрицу используя циклы: 0 0 0 1 0 0 1 0 0 1 0 0 1 0 0 0

Сформировать матрицу по образцу
помогите с матрицей

Сформировать матрицу по образцу
Нужен такой рисунок и еще рисунок такой же, только вместо всех квадратов число(например 0,тоже раскрашенное).

5
Почетный модератор
 Аватар для Puporev
64314 / 47610 / 32743
Регистрация: 18.05.2008
Сообщений: 115,168
26.04.2015, 12:02
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
uses crt;
const max=21;
var a:array[1..max,1..max] of byte;
    n,i,j:byte;
begin
repeat
write('Введите размер матрицы нечетное число от 3 до ',max,' n=');
readln(n);
until n in [3..max];
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    if(i=n div 2+1)or(j=n div 2+1) then a[i,j]:=1
    else a[i,j]:=0;
    write(a[i,j]:2);
   end;
  writeln;
 end;
end.
1
0 / 0 / 0
Регистрация: 18.01.2015
Сообщений: 6
26.04.2015, 12:41  [ТС]
спасибо, а не могли бы вы помочь составить еще одну матрицу:
1 1 1 1 1
1 1 0 1 1
1 0 1 0 1
1 1 0 1 1
1 1 1 1 1
0
0 / 0 / 0
Регистрация: 18.01.2015
Сообщений: 6
26.04.2015, 14:03  [ТС]
в вашем решении к первой задаче получается, матрица:
0 0 1 0 0
0 0 1 0 0
1 1 1 1 1
0 0 1 0 0
0 0 1 0 0, а надо


0 0 1 0 0
0 0 1 0 0
1 1 1 1 1
0 0 1 0 0
0 0 1 1 1
0
Почетный модератор
 Аватар для Puporev
64314 / 47610 / 32743
Регистрация: 18.05.2008
Сообщений: 115,168
26.04.2015, 14:28
Лучший ответ Сообщение было отмечено pascalabc27 как решение

Решение

Ну совсем у Вас руки не оттуда растут, поправили бы
Pascal
1
if(i=n div 2+1)or(j=n div 2+1)or((i=n)and(j>n div 2)) then a[i,j]:=1
1
Модератор
10411 / 5698 / 3401
Регистрация: 17.08.2012
Сообщений: 17,351
27.04.2015, 02:31
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
const m = 23;
var a: array [1..m, 1..m] of byte;
    i, j, n, k: byte;
begin
  repeat
    write('Введите нечётное число 3 <= n <= ', m, ': ');
    readln(n)
  until (n mod 2 = 1) and (n in [3..m]);
  k := n div 2 + 1;
  for i := 1 to n do
    begin
      for j := 1 to n do
        begin
          if (i = k) or (j = k) or (i = n) and (j > k)
            then a[i, j] := 1
            else a[i, j] := 0;
          write(a[i, j]:2)
        end;
      writeln
    end;
  readln
end.
Добавлено через 9 минут

Не по теме:

И ещё. Рекомендую ознакомиться с правилами форума. Фотографии текста запрещены. Не вынуждайте меня поступать с Вами нехорошо.



Добавлено через 37 минут

Не по теме:

И ещё. Дублирование и кросспостинг тем запрещены. Одна тема - один вопрос, исключение для платных разделов. Для каждого вопроса создавайте отдельную тему. Если Вы желаете попросить кого-либо ответить на Ваш впрос в другой теме, делайте это в оффтопе с указанием ссылки на другую тему.

Пожалуйста, в будущем не вынуждайте меня упорядочивать Ваши темы.

И это почитайте: Как запостить тему, чтобы не получить ответ.



Добавлено через 45 минут

Не по теме:

И ещё. pascalabc27, Вы, наплодив кучу дублей, фактически обманным путём вынудили меня затратить время для решения Вашей пустячной задачки. Я, значит, решил Вам задачу, полагая, что она ещё не решена, сижу такой довольный, человеку типа помог, а оказывается, Вам её уже решили, мало того, JokeR.BY, заметив это Ваше некорректное поведение, ещё раз Вам эту задачу решил, нарочито кэповским способом, полагаю, Вам в назидание. И, после того, как Вы мне минут на пять слегка подпортили настроение, я ещё занимался упорядочаванием Ваших тем и написанием Вам указаний на то, с чем Вы должны были уже ознакомиться при регистрации на форуме.

Так, совет на будущее. Если очень хочется продублировать тему, не делайте этого. Если на тему нет ответа длительное время, можно поднять актуальность темы, написав в тему новое сообщение. То есть, к примеру, написал сообщение в тему из одного слова "Актуально", и тема тут же оказывается "наверху". К тому же, если Вам уже дали ответ, то, при дублировании темы теряется контекст обсуждения, и те, кто желают Вам помочь, делают лишнюю работу.

Замечание. pascalabc27, я и Puporev по-разному трактовали Ваше задание, по всей видимости, Вам нужно будет уточнить задание: определиться с видом матрицы при n > 5.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
27.04.2015, 02:31
Помогаю со студенческими работами здесь

Сформировать матрицу по образцу
Составьте программу ввода матрицы B, не используя клавиатуру:

Сформировать матрицу по образцу
написать программу, которая формирует матрицу NxN в следующем виде: 1 2 ... n-1 n 0 1 ... n-2 n-1 . . . . . ....

Сформировать матрицу по образцу
Написать модуль, который формирует матрицу типа 1000 0100 0010 0001 Как я понял тут надо сделать диагональ со значением 1,...

Сформировать и вывести матрицу по образцу
1.Сформировать и вывести следующие матрицы: 1 1 1 1 1 2 2 1 1 1 А= 2 2 2 1 1 2 2 2 2 1 2. Выполните...

Сформировать матрицу по заданному образцу
написать программу для нахождения такого квадрата 1111111 1002001 1222221 1002001 1111111 Добавлено через 1 минуту чтобы...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Новые блоги и статьи
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android
8Observer8 26.01.2026
Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .
Установка Android SDK, NDK, JDK, CMake и т.д.
8Observer8 25.01.2026
Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .
Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf
8Observer8 25.01.2026
Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .
Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly
8Observer8 24.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
моя боль
iceja 24.01.2026
Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .
Модель сукцессии микоризы
anaschu 24.01.2026
Решили писать научную статью с неким РОманом
http://iceja.net/ математические сервисы
iceja 20.01.2026
Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .
http://iceja.net/ сервер решения полиномов
iceja 18.01.2026
Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru