Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 9, средняя оценка - 4.67
Mr.Hyde
0 / 0 / 0
Регистрация: 11.04.2012
Сообщений: 10
#1

Формирование массивов - Pascal

06.06.2012, 16:44. Просмотров 1447. Ответов 2
Метки нет (Все метки)

Сформировать квадратную матрицу порядка n по заданному образцу
0
Изображения
 
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
06.06.2012, 16:44
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Формирование массивов (Pascal):

Формирование массивов
Здраствуйте, я никогда не учил паскаль а теперь поступил в колледж, и мне...

Формирование массивов
Сформировать квадратную матрицу по заданному образцу: 1 1 1 … 1 ...

Формирование массивов
Дана прямоугольная матрица размера m×n. Составить программу, которая находит...

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

Записать в файл f2 последовательность массивов, получающихся преобразованием исходных массивов
Pascal Дан файл h1, компонентами которого являются массивы целых чисел...

Типизированные файлы. Записать в файл Н2 последовательность массивов, получающихся преобразованием исходных массивов
Дан файл Н1, элементами которого являются массивы целых чисел а0,а1,…,а4....

2
ermolay
3430 / 2369 / 2131
Регистрация: 04.12.2011
Сообщений: 3,965
06.06.2012, 18:01 #2
Лучший ответ Сообщение было отмечено Mr.Hyde как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
const
  nmax=100;
var
  a: array[1..nmax,1..nmax] of integer;
  n,i,j: integer;
begin
  write('Введите размер матрицы n: ');
  readln(n);
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      if i<=(n div 2) then
        if (i<=j)and(i+j<=n+1) then a[i,j]:=1
          else a[i,j]:=0;
      if i>(n div 2) then
        if (i>=j)and(i+j>=n+1) then a[i,j]:=1
          else a[i,j]:=0;
    end;
  end;
  
  writeln('Полученный массив:');
  for i:=1 to n do
  begin
    for j:=1 to n do
      write(a[i,j]:3);
    writeln;
  end;
  readln;
end.
1
КонецСвета
Почетный модератор
7928 / 3899 / 2464
Регистрация: 30.10.2011
Сообщений: 5,379
06.06.2012, 18:36 #3
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
uses crt;
const nmax=20;
var a: array [1..nmax,1..nmax] of byte;
    n,i,j: byte;
begin
write('n='); readln(n);
for i:=1 to n do
    begin
    for j:=1 to n do
        begin
        if ((j>=i) and (i+j<=n+1)) or ((i>=j) and (i+j>=n+1))
           then a[i,j]:=1 else a[i,j]:=0;
        write(a[i,j]:2);
        end;
    writeln;
    end;
readln;
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
06.06.2012, 18:36
Привет! Вот еще темы с решениями:

В каждом из массивов найти наименьшее значение и умножить на него все элементы массивов
Заданы два массива A(N) и B(M). В каждом из массивов найти наименьшее значение...

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

на формирование массива
Даны два целочисленных массива с положительными элементами: X1,X2,...,Xn и...

Формирование массива
Дан массив целых чисел, в котором могут встречаться повторяющиеся элементы....


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

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

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