Посмотрите!

[Alex_12Proxy]

Дана матрица А(4х4). Определить количество элементов матрицы лежащих вне интервала [-2,4]. Отсортировать элементы каждого столбца матрицы по убыванию.
Нужно переделать прогу на процедуры и функции....
Это через функцию
Это через процедуры

Вот сама программа:

Program B22;
 const
  n=4;
  m=4;
 var
 r,i,j:integer;
  t,kol:real;
  a:array[1..n,1..m] of real;
 begin
  kol:=0;
  Writeln ('Введите матрицу А(4х4)');
  
   for i:=1 to n do
    for j:=1 to m do
     read (a[i,j]);
   readln; 
   
    for i:=1 to n do
      for j:=1 to m do
       if (a[i,j]<-2) or (a[i,j]>4)then 
                                    kol:=kol+1;
                           
    Writeln('Колличество элементов=',kol);
       
    For j := 1 to m do 
     For r := 1 To n Do 
       For i := 1 to n - 1 do 
         If a[i, j] < a[i+1, j] Then
                                  Begin
                                   t := a[i, j];
                                   a[i, j] := a[i+1, j];
                                   a[i+1, j] := t;
                                  End;
   For i := 1 to n do 
    Begin
     For j := 1 to m do     
      write(a[i, j]:3);
     Writeln;
    End;
  
End.

[Stilet]

Определить количество элементов матрицы лежащих вне интервала [-2,4].

Пишешь функцию:

function opa(x:real):boolean;begin opa:=(x>=-2)and(x<=4);

И вызываешь ее:

   for i:=1 to n do
    for j:=1 to m do begin
     read (a[i,j]);
     if opa(a[i,j]) then cnt:=cnt+1;
    end;
   readln;

Где cnt:integer; Потом ее на экран выводи.

Отсортировать элементы каждого столбца матрицы по убыванию.

procedure sortirium;
var j,r,i:integer;
begin
    For j := 1 to m do 
       For i := 1 to n - 1 do 
         If a[i, j] < a[i+1, j] Then
                                  Begin
                                   t := a[i, j];
                                   a[i, j] := a[i+1, j];
                                   a[i+1, j] := t;
                                  End;
end;

И вызывай

Writeln('Колличество элементов=',kol);sortirium;

Усе понятно?

[Alex_12Proxy]

а раздел описаний оставить тот же?
и можно ли использовать тут константу?

Че-то не могу разобраться, как она все-таки будет работать=( Напишите как она будет выглядеть в общем виде....

[Stilet]

Напишите как она будет выглядеть в общем виде....

У-у-у так ты бы сразу и сказал мол "Разбираются пусть ботаны, а я шпилить пойду".

[Serge_Bliznykov]

я посмотрел.
название темы не соответствует правилам форума.

ТЕМА ЗАКРЫТА

Модератор