Дано число если оно меньше или равно 0 вывести слово неполож. впротивном неполож.

program n1;

var q:real;

begin

println('введите число');

readln(q);

if q>0 then

 write('больше нуля ')

 else

   write('меньше или равно нулю');

 

 

end.

Объяснение:

//PascalABC.NET (версия 3.1, сборка 1196 от 09.03.2016)
function
Transpose(a: array[,] of integer): array[,] of integer;
//Поворот на 90гр по часовой стрелке
begin
  var m := Length(a, 0);
  var n := Length(a, 1);
  Result := new integer[n, m];
  for var i := 0 to n-1 do begin
    for var j := 0 to m-1 do
      Result[i, j] := a[m-1-j, i];
  end;
end;

begin
  var n := ReadInteger('Введите n:');
//Заполнение матрицы NxN сл. числами и вывод на экран
  var a :=MatrixRandom(n, n);
  for  var i:=0 to n-1 do begin
    for var j:=0 to n-1 do
      Print(a[i,j]);
    println;
    end;
     println;

  Println('поворот влево на 90 гр');
  var b := Transpose(a);
  b:=Transpose(b);
  b:=Transpose(b);
  for  var i:=0 to n-1 do begin
    for var j:=0 to n-1 do
      Print(b[i,j]);
    println;
    end;
  println;

  Println('поворот вправо на 90гр');
  b := Transpose(a);
  for  var i:=0 to n-1 do begin
    for var j:=0 to n-1 do
      Print(b[i,j]);
    println;
    end;
 println;

 Println('поворот на 180 гр');
  b := Transpose(a);
  b := Transpose(b);
  for  var i:=0 to n-1 do begin
    for var j:=0 to n-1 do
      Print(b[i,j]);
    println;
    end;
end.

Векторное изображение - это тип изображения, которое состоит из объектов, описанных математически. Свойства этой фигуры не будут изменяться при увеличении, поскольку фигура состоит из кривых. Каждая точка этой фигуры имеет свои координаты, на этом фигура и основана, то есть заданы координаты точек, а между ними могут быть расположены различные кривые. Их "искривленность" зависит от свойств точек. Кривые могут иметь только цвет и толщину. Плюсы векторных изображений: - гибкая масштабируемость, можно изменять размеры изображений без потери его визуальных качеств; - максимальная точность построенного изображения (координаты точек, между которыми могут быть проведены кривые, могут иметь точность до сотых доль микрона) ; - файл с векторным изображением имеет гораздо меньший размер по сравнению с растровым изображением; - рисунок имеет высокое качество при печати, особенно это хорошо заметно на хороших принтерах при качественной печати; - возможность редактирования всех частей векторного изображения; - простой экспорт векторного рисунка в растровый. Минусы векторных изображений: - отсутствие реалистичности у векторных рисунков. Реалистичность достигается путем применения различных сложных цветовых схем; - невозможность использования эффектов, которые можно применять в растровой графике; - практически полная невозможность экспорта растрового рисунка в векторный; Растровое изображение - это изображение, в основе которого стоит таблица. Ячейки таблицы - это пикселы. Пиксел - это еденица измерения размеров растрового изображения. Один пиксел - это одна клеточка в растровом изображении. Соответственно растровые изображения состоят из пикселов, только они настолько малы, что в нормальном виде их трудно разлечить. Каждый пиксел растрового изображения имеет следующие свойства: цвет и координаты расположения пиксела. Плюсы растрового изображения: - высокая реалистичность изображения; - на растровом изображении может быть изображено все, что угодно: как снимок с фотокамеры, так и нарисованное на компьютере изображение; - к растровым изображениям можно применять самые разнообразные эффекты; - растровые форматы рисунков используются при создании вэб-страниц в Интернете; Недостатки растровых изображений: - растровые изображения плохо масштабируются, можно уменьшить изображение, однако увеличить его без потери качества невозможно (к потери качества относиться заметное увеличение размытия изображения после увеличения рисунка) ; - нельзя разбить растровое изображение на части и редактировать их; - файл с растровым изображением имеет больший размер по сравнению с векторным