Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Petro29
8 / 8 / 3
Регистрация: 30.04.2016
Сообщений: 303
#1

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

10.12.2017, 16:53. Просмотров 77. Ответов 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
Как сделать обе главные диагонали в одном массиве – как
в задании.
http://www.cyberforum.ru/turbo-pascal/thread1385525.html
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.12.2017, 16:53
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Заполнить двумерный массив 6 на 6 и вывести его на экран (Turbo Pascal):

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

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

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

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

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

1
Cyborg Drone
Модератор
5249 / 3116 / 2432
Регистрация: 17.08.2012
Сообщений: 10,068
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 и вывести на экран сумму всех его отрицательных элементов
Заполнить линейный массив из N элементов числами от -15 до 15 и вывести на...

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

Заполнить массив случайными числами и вывести на экран отсортированный массив.
Заполнить массив случайными числами и вывести на экран отсортированный массив....

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


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

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

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