Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.88/8: Рейтинг темы: голосов - 8, средняя оценка - 4.88
nona
0 / 0 / 0
Регистрация: 26.04.2009
Сообщений: 17
1

Сгенерировать и вывести на экран массив 10x10 из нулей и единиц

26.04.2009, 15:22. Просмотров 1510. Ответов 1
Метки нет (Все метки)

Сгенерировать и вывести на экран массив 10x10 из нулей и единиц так, чтобы нулей было в несколько раз больше. Определить и вывести массив B как каждое из геометрических преобразований массива A:
а) разворот на 90 градусов по часовой стрелке;
б) разворот на 90 градусов против часовой стрелки;
в) разворот на 180 градусов;
г) зеркальное отражение по горизонтали;
д) зеркальное отражение по вертикали;
е) зеркальное отражение по главной диагонали;
ж) зеркальное отражение по побочной диагонали.
0
Лучшие ответы (1)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.04.2009, 15:22
Ответы с готовыми решениями:

Подсчитать и вывести на экран количество N и номера таких столбцов, в которых нулей больше чем единиц
Матрицу М(12, 10) заполнить нулями и единицами случайным образом. Подсчитать и вывести на экран...

Сгенерировать и вывести на экран массив
Сгенерировать и вывести на экран массив 9Х10 случайных целых чисел в диапазоне от 1 до 9....

Сгенерировать и вывести на экран одномерный массив
Помогите ,если можно ,с объяснениями ) Сгенерировать и вывести на экран одномерный массив Y {yi}...

Сгенерировать и вывести на экран массив с 10 случайных чисел в диапазоне от -100 до 100. Цикличный сдвиг массива влево на 1 и вывод на экран
Помогите написать программку в Паскале, что сгенерирует и выведет на экран массив с 10 случайных...

Задано последовательность групп нулей и единиц. Вывести на экран наименьшую группу
Задано последовательность групп нулей и единиц. Вывести на экран наименьшую группу.

1
Puporev
Модератор
58915 / 44598 / 30782
Регистрация: 18.05.2008
Сообщений: 106,864
26.04.2009, 19:07 2
Лучший ответ Сообщение было отмечено nona как решение

Решение

Вот полный комплект. На матрице 10х10 из нолей и единиц очень плохо видно правильно ли работает программа, поэтому для себя измените размер матрицы и значения элементов как помечено в комментариях в соответствующих строках.
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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
uses crt;
const n=10;{6}
var a,b:array[1..n,1..n] of integer;
    i,j:integer;
begin
clrscr;
randomize;
writeln('Исходная матрица:');
for i:=1 to n do
  begin
    for j:=1 to n do
      begin
       a[i,j]:=round(random-0.4);{a[i,j]:=10*i+j}
       write(a[i,j]:3);
      end;
    writeln;
  end;
readln;
writeln('Разворот на 90 по часовой стрелке:');
for i:=1 to n do
for j:=1 to n do
b[i,j]:=a[n-j+1,i];
for i:=1 to n do
  begin
    for j:=1 to n do
      begin
        write(b[i,j]:3);
      end;
  writeln;
  end;
readln;
writeln('Разворот на 90 против часовой стрелки:');
for i:=1 to n do
for j:=1 to n do
b[i,j]:=a[j,n-i+1];
for i:=1 to n do
  begin
    for j:=1 to n do
      begin
        write(b[i,j]:3);
      end;
  writeln;
  end;
readln;
writeln('Зеркальное отражение по горизонтали:');
for i:=n downto 1 do
  begin
    for j:=1 to n do
      begin
        b[i,j]:=a[i,j];
        write(b[i,j]:3);
     end;
    writeln;
  end;
readln;
writeln('Зеркальное отражение по вертикали:');
for i:=1 to n do
  begin
    for j:=n downto 1 do
      begin
        b[i,j]:=a[i,j];
        write(b[i,j]:3);
      end;
    writeln;
  end;
readln;
writeln('Зеркальное отражение по главной диагонали:');
for i:=1 to n do
  begin
    for j:=1 to n do
      begin
        b[i,j]:=a[j,i];
        write(b[i,j]:3);
      end;
    writeln;
  end;
writeln('Зеркальное отражение по побочной диагонали:');
for i:=1 to n do
  begin
    for j:=1 to n do
      begin
        b[i,j]:=a[n-j+1,n-i+1];
        write(b[i,j]:3);
      end;
    writeln;
  end;
readln
end.
1
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.04.2009, 19:07

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Вывести полученный массив на экран в общепринятом виде и найти количество единиц и двоек в этом массиве
Заполнить двумерный массив А(N,N) так: с экрана вводятся разные числа, в массив заносятся остатки...

Данная строка, состоящая из групп нулей и единиц. Найти и вывести на экран группы, состоящие только из нулей
Данная строка, состоящая из групп нулей и единиц. Каждая группа отделяется друг от друга одним или...

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


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

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

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