Задачи по Паскалю.

[cone4ka]

Мою тему закрыли, по неизвестной причине, название темы вроде не было ни флудом, ни просьбой, но обойдемся без вступлений. Если они кому нужны, читайте нижнюю тему.

1) Разработать алгоритм и программу нисходящим способом, предполагая заданной матрицу А из 5 строк и 5 столбцов или одномерные массивы указанной длины. Если разность максимального и минимального элемента матрицы А превышает заданную величину Р, заменить в матрице А все отрицательные элементы нулями, а положительные единицами.

2) Составить программу, содержащую процедуру, сходными данными которой является: матрица А из n строк и n столбцов, либо два массива В1, В2,.., Вn; C1, C2,..Cm либо один из них. Массив, полученный перемещением отрицательных элементов массива С1, С2,.., Сm в его начало, а остальных - в его конец.

Ну и последняя:
3) Составить программу с разработкой и использованием указанной в задании процедуры. В матрице А (4 строки, 3 столбца) поменять местами наибольшие элементы в первом и третьем столбцах. Для поиска номера наибольшего элемента в произвольном столбце матрицы использовать процедуру.
К каждой задаче нужно еще нарисовать блок-схему.

[Stilet]

Сонечка, твоя тема была закрыта в связи с :

Название темы не отражает сути вашего вопроса.

1) Разработать алгоритм и программу нисходящим способом, предполагая заданной матрицу А из 5 строк и 5 столбцов или одномерные массивы указанной длины. Если разность максимального и минимального элемента матрицы А превышает заданную величину Р, заменить в матрице А все отрицательные элементы нулями, а положительные единицами.

Так подойдет:

  var a:array[1..5,1..5] of integer;
  q,w,mx,mn,p:integer;
begin
 mx:=-MaxInt; {Вот только я не помню как в паскале максимально возможное число указать}
 mn:=-mx;
 p:=11;
 for q:=1 to 5 do begin
  for w:=1 to 5 do begin
   a[q,w]:=10-random(20);write(a[q,w]:5);
   if mx<a[q,w] then mx:=a[q,w];
   if mn>a[q,w] then mn:=a[q,w];
  end; writeln;
 end;
 writeln(mx-mn);
 if (mx-mn)>p then begin
     for q:=1 to 5 do begin
      for w:=1 to 5 do begin
       a[q,w]:=byte(a[q,w]>0);
       write(a[q,w]:5);
      end; writeln;
     end;
 end;

  { TODO -oUser -cConsole Main : Insert code here }
 readln;
end.

Пояснения нужны?

[cone4ka]

хм, задачи...а я что-то другое разве писала? Вроде все понятно, вот только комментарий { TODO -oUser -cConsole Main : Insert code here } что означает?

[Stilet]

что означает?

Не обращай внимания. У меня паскаль не всегда запускается, я иногда такие вещи в Делфи пишу, но в Паскале оно пойдет.

[mihali4]

Сообщение от cone4ka

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

Да, там были просто приказы - "разработать", "составить"...
Тема была закрыта, поскольку не соответствовала правилам раздела.
Если нужно, чтоб за тебя решали твои учебные задачки - милости просим в разделы "Помощь студентам" или "Фриланс".
Доступно для понимания?

[ОДИНОЧЕСТВО В СЕТИ]

3

type matrix=array[1..4,1..3] of Integer;
var a:matrix;
     i,j,i3,i1,tmp:Integer;

procedure Im(var a:matrix);
begin
  for i:=1 to 4 do
    for j:=1 to 3 do
      a[i,j]:=random(45)-random(40);
end;

procedure om(var a:matrix);
begin
  for i:=1 to 4 do begin
  for j:=1 to 3 do
    write (a[i,j]:8);
  Writeln;
  end;
end;

procedure mmc(var a:matrix;k:integer;var im:Integer);
var
  max:Integer;
  i:Integer;
begin
  max:=a[1,k];
  im:=1;
  for i:= 2 to 4 do
    if a[i,k]>max then
      begin
        max:=a[i,k];
        im:=i;
      end;
end;
begin
  Randomize;
  Im(a);
  om(a);
  mmc(a,1,i1);
  mmc(a,3,i3);
  Writeln('-------------------------');
  tmp:=a[i1,1];
  a[i1,1]:=a[i3,3];
  a[i3,3]:=tmp;
  om(a);
  Readln; 
end.

а 2 я честно говоря не поняла!

[cone4ka]

Благодарю!