Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
Flora
0 / 0 / 0
Регистрация: 13.12.2014
Сообщений: 42
1

Составьте программу , генерирующую массив по заданному образцу

26.04.2015, 17:06. Просмотров 965. Ответов 1
Метки нет (Все метки)

Составьте программу , генерирующую массив по заданному образцу (n-четное)
1 1 … 1 1
0 1 … 1 0
… … … … …
0 1 … 1 0
1 1 … 1 1
0
Лучшие ответы (1)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.04.2015, 17:06
Ответы с готовыми решениями:

Составить программу, генерирующую массив A(N,M) по заданному образцу:
нужна помощь по написанию лабораторных работ в паскале.В программировании я не силен,а в...

Составьте программу генерирующую одномерный массив
Составьте программу генерирующую одномерный массив из элементов двумерного массива A(N,N),...

Составьте программу, генерирующую одномерный массив из элементов двумерного массива
составьте программу, генерирующую одномерный массив из элементов двумерного массива A(N,N),...

Написать программу которая формирует квадратную матрицу порядка n по заданному образцу
Пожалуйста, помогите решить и понять это чудо \begin{matrix}1 & 1 & 1 & \cdots & \ 1\ & \ 1\ &...

Составьте программу, которая по заданному номеру дня недели сообщает рабочий это день или выходной
Помогите составить программы. заранее спасибо:) 2)Составьте программу, которая по заданному...

1
Cyborg Drone
Модератор
5941 / 3512 / 2571
Регистрация: 17.08.2012
Сообщений: 11,263
27.04.2015, 12:26 2
Лучший ответ Сообщение было отмечено Flora как решение

Решение

Чётное или нечётное n - по моему мнению, в данном случае, без разницы. Достаточно, вообще говоря, чтобы было n > 3. Однако, задание есть задание, какое бы дебильное оно не было. Строго по заданию:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
const m = 24;
var n, i, j: integer;
    a: array [1..m, 1..m] of byte;
begin
  repeat
    write('Enter even natural number in the range [4..', m, ']: ');
    readln(n);
  until (n in [4..m]) and not odd(n);
  for i := 1 to n do
    begin
      for j := 1 to n do
        begin
          if (i > 1) and (i < n) and ((j = 1) or (j = n))
            then a[i, j] := 0
            else a[i, j] := 1;
          write(a[i, j]:2)
        end;
      writeln
    end;
  readln
end.
Варианты:
Pascal
8
  until (n >= 4) and (n <= m) and (n div 2 = 0);
Pascal
13
          if (i in [2..n-1]) and (j in [1, n])
Вариант программы без if:
Pascal
13
14
15
16
17
18
19
          a[i, j] := ord((i in [1, n]) or (j in [2..n-1]));
          write(a[i, j]:2)
        end;
      writeln
    end;
  readln
end.
Вариант вычисления a[i, j]:
Pascal
13
          a[i, j] := ord((i = 1) or (i = n) or (j > 1) and (j < n));
0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.04.2015, 12:26

Составить программу, генерирующую массив A(N,M) по заданному образцу
Здравствуйте! Помогите, пожалуйста, составить программу, генерирующую массив A(N,M) по заданному...

Составьте программу, генерирующую одномерный массив
Составьте программу, генерирующую одномерный массив X(N) , каждый элемент X которого равен...

Составьте программу, генерирующую слово У, состоящее из тех букв русского алфавита, которые не встречаются при написании слова Х
Решите пожалуйста, срочно


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.