Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
Petro29
8 / 8 / 0
Регистрация: 30.04.2016
Сообщений: 230
#1

Заполнить двумерный массив 6 на 6 и вывести его на экран - Turbo Pascal

10.12.2017, 16:53. Просмотров 55. Ответов 1
Метки нет (Все метки)

Заполнить двумерный массив 6 на 6 таким образом
Код
1   0   0   0   0   1
0   2   0   0   2   0
0   0   3   3   0   0
0   0   4   4   0   0
0   5   0   0   5   0
6   0   0   0   0   6
и вывести его на экран.
Вот такая программа:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
{Программа Vae153}
uses Crt;
cinst N = 6;  W = 3;
Var A: array [1..N, 1..M] of integer;
            i, j: integer;
begin
ClrScr;
    writeln;
  for i:= 1 to N do begin
    for j:= N downto  1 do begin
     if j <> i then A[i, j]:= 0
       else A[i, j]:= j;
      write(A[i, j]:3);
     end;
         wriote('    '  :  W + 1);
    for j:= 1 to N do begin
       if j <> i then A[i, j]:= 0;
         writye([i, j]:3);
     end;
         writeln;  writeln;
      end;
    readln
end.
На выходе имеем:
Код
0   0   0   0   0   1        1   0   0   0   0   0
0   0   0   0   2   0        0   2   0   0   0   0
0   0   0   3   0   0        0   0   3   0   0   0
0   0   4   0   0   0        0   0   0   4   0   0
0   5   0   0   0   0        0   0   0   0   5   0
6   0   0   0   0   0        0   0   0   0   0   6
Как сделать обе главные диагонали в одном массиве – как
в задании.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.12.2017, 16:53
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Заполнить двумерный массив 6 на 6 и вывести его на экран (Turbo Pascal):

Заполнить двумерный массив размерностью 4 на 4 случайными числами вывести на экран - Turbo Pascal
Заполнить двумерный массив размерностью 4 на 4 случайными числами вывести на экран количество четных элементов их сумму и их произведением

Ввести двумерный массив с клавиатуры и вывести его на экран - Turbo Pascal
как ввести двумерный массив с клавиатуры и вывести его на экран

Заполнить двумерный массив произвольными числами и вывести на экран сумму двух наибольших из этих чисел. - Turbo Pascal
Здравствуйте, господа. Подскажите, пожалуйста, как заполнить двумерный массив произвольными числами и вывести на экран суму двух наибольших...

Заполнить одномерный массив случайными числами и вывести его на экран - Turbo Pascal
1)заполнить одномерный массив случайными числами и вывести его на экран.Выбрать минимальный элемент в массиве 2)В массиве заданы фамилии...

Одномерный массив 15 элементов заполнить случайными значениями, вывести его на экран - Pascal
Одномерный массив 15 элементов заполнить случайными значениями, вывести его на экран. Определить количество элементов, значения которых...

Дан двумерный массив A[5,6]. Заполнить его случайными числами в промежутке от 30 до 100, сравнить суммы элементов столбцов, вывести сумму наибольшего - Pascal
Дан двумерный массив A. Заполнить его случайными числами в промежутке от 30 до 100, сравнить суммы элементов столбцов, вывести сумму...

1
Cyborg Drone
Модератор
4835 / 3004 / 1208
Регистрация: 17.08.2012
Сообщений: 9,628
10.12.2017, 20:28 #2
Так как глобальные целочисленные переменные инициализируются нулями, можно так:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
const
  n = 6;
 
var
  i, j: integer;
  a: array[1..n, 1..n] of integer;
 
begin
  for i := 1 to n do
    begin
      a[i, i] := i;
      a[i, n - i + 1] := i
    end;
  for i := 1 to n do
    begin
      for j := 1 to n do write(a[i, j] :3);
      writeln
    end;
  readln
end.
Если очень сильно if-ов захотелось, то можно так:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
const
  n = 6;
 
var
  i, j: integer;
  a: array[1..n, 1..n] of integer;
 
begin
  for i := 1 to n do
    begin
      for j := 1 to n do
        begin
          if (i = j) or (i = n - j + 1)
            then a[i, j] := i
            else a[i, j] := 0;
          write(a[i, j] :3)
        end;
      writeln
    end;
  readln
end.
То же самое, но с логическим выражением, включенным в вычисления (кроме Pascal ABC):
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
const
  n = 6;
 
var
  i, j: integer;
  a: array[1..n, 1..n] of integer;
 
begin
  for i := 1 to n do
    begin
      for j := 1 to n do
        begin
          a[i, j] := i * ord((i = j) or (i = n - j + 1));
          write(a[i, j] :3)
        end;
      writeln
    end;
  readln
end.

Не по теме:

Цитата Сообщение от Petro29 Посмотреть сообщение
wriote
Цитата Сообщение от Petro29 Посмотреть сообщение
writye

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.12.2017, 20:28
Привет! Вот еще темы с ответами:

Заполнить линейный массив из N элементов числами от -15 до 15 и вывести на экран сумму всех его отрицательных элементов - Turbo Pascal
Заполнить линейный массив из N элементов числами от -15 до 15 и вывести на экран сумму всех его отрицательных элементов. Помогите)

Создать список, заполнить словами его и вывести их на экран - Pascal
Создать список, заполнить его словами (если можно так: вводить слова до тех пор пока не введен пустой символ ''), после ввода слов вывести...

Заполнить массив случайными числами и вывести отсортированный массив на экран - Turbo Pascal
:wall::help:доработать код, сортировка метод - слиянием. Заполнить массив случайными числами и вывести отсортированный массив на экран....

Заполнить массив случайными числами и вывести на экран отсортированный массив. - Pascal
Заполнить массив случайными числами и вывести на экран отсортированный массив. Добавлено через 3 минуты 43 секунды очень срочно!!! ...


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

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

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