Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.54/13: Рейтинг темы: голосов - 13, средняя оценка - 4.54
OksanaForum
0 / 0 / 0
Регистрация: 05.05.2015
Сообщений: 1
1

Пиксели рисунка закодированы числами в виде матрицы. Выполнить отражение рисунка сверху вниз

05.05.2015, 17:34. Просмотров 2651. Ответов 1
Метки нет (Все метки)

Пиксели рисунка закодированы числами (обозначающими цвет)в виде матрицы,содержащей N строк и M столбцов.Выполните отражение рисунка сверху вниз.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
05.05.2015, 17:34
Ответы с готовыми решениями:

Пиксели рисунка закодированы числами от 0 до 255 (обозначающими яркость пикселей) в виде матрицы, содержащей N строк и M
Помогите справиться с задачей: Пиксели рисунка закодированы числами от 0 до...

Внесение рисунка в ОП
Чуваки, как на Pascal abc можно внести изображение нарисованное в нем же в...

разрисовка рисунка
нарисовал а как разрисовать не знаю, объясните как разрисовать!!! uses graph;...

Вывести 2 рисунка.
помогите пж!!! Вывести 2 рисунка. 2 программы

Перемещение квадрата сверху вниз
помогите, нужна программа в которой квадрат будет перемещаться сверху вниз....

1
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
4240 / 3076 / 3801
Регистрация: 05.06.2014
Сообщений: 15,475
07.05.2015, 16:45 2
Лучший ответ Сообщение было отмечено OksanaForum как решение

Решение

Изначально: (С) Puporev

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
uses
  graphABC;
const
  n=100;
  m=115;
var
  a:array[1..n,1..m] of integer;
  x,i,j:integer;
begin
  randomize;
  setbrushcolor(clAqua);
  rectangle(0,0,windowwidth,windowheight);
  for i:=1 to n do
    for j:=1 to m do
      begin
          a[i,j]:=(i*j)*n;
      end;
  for i:=1 to n do
    for j:=1 to m do
      setpixel(j+150,i+150,a[i,j]);
  for i:=1 to n div 2 do
    for j:=1 to m do
      begin
        x:=a[i,j];
        a[i,j]:=a[n-i+1,m-j+1];
        a[n-i+1,m-j+1]:=x;
      end;
  {если матрица нечетная, переставим элементы  средней строки}
  if odd(n) then
    for i:=1 to n div 2 do
      begin
        x:=a[n div 2+1,i];
        a[n div 2+1,i]:=a[n div 2+1,n-i+1];
        a[n div 2+1,n-i+1]:=x;
      end;
  for i:=1 to n do
    for j:=1 to m do
      setpixel(j+350,i+150,a[i,j]);
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
07.05.2015, 16:45

Сделать из рисунка движущийся
program avto; uses graphABC; begin SetWindowSize (800,600); ...

Создание рисунка из цифр
Нужно создать прогу, которая будет строить цифры по типу как изображено на...

Перемещение рисунка кольца
Создайте программу вывода на экран компьютера рисунка кольца желтого цвета,...


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

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

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