Графикалық интерфейстегі бағыттауыш сызық

Исполнитель алгоритма — это некоторая абстрактная или реальная (техническая, биологическая или биотехническая) система выполнить действия, предписываемые алгоритмом.

Исполнителя хаpактеpизуют:

сpеда;

элементаpные действия;

cистема команд;

отказы. 

 Исполнитель алгоритма — это устройство управления, соединенное с набором инструментов. Устройство управления понимает алгоритмы и организует их выполнение, командуя соответствующими инструментами. А инструменты производят действия, выполняя команды управляющего устройства. Прежде чем составлять алгоритм решения задачи, надо узнать, какие действия предполагаемый исполнитель может выполнить.

 

В информатике компьютер как формальный исполнитель алгоритмов

 

1.                                                            

program raf105;

const

 n = 3; //Размер матрицы

var

 ar: array[1..n,1..n] of integer;

 n_sum,a,b,ab_c,min_sum,sum,min_pos,i,j: integer;

begin

write('Введите 2 числа (A, B): ');

readln(a,b);

for i:=1 to n do

begin

 writeln('Заполните столбец ',i);

 for j:=1 to n do

 begin

   readln(ar[i,j]);

   if (ar[i,j] mod a = 0) or (ar[i,j] mod b = 0)

     then ab_c+= 1;

 end;

end;

writeln;

write('А) Суммы нечётных элементов по столбцам: ');

for i:=1 to n do

begin

 n_sum:= 0;

 for j:=1 to n do

 begin

   if ar[i,j] mod 2 <> 0

     then n_sum+= ar[i,j];

 end;

 write(n_sum,' ')

end;

writeln;

writeln('В) Количество элементов кратных ',a,' или ',b,': ',ab_c);

min_sum:= 10000;

sum:= 10000;

for i:=1 to n do

begin

 if sum<min_sum

   then begin

     min_sum:= sum;

     min_pos:= i-1;

   end;

 sum:= 0;

 for j:=1 to n do

   sum+= ar[i,j];

end;

writeln('С) Минимальная сумма элементов у столбца с номером: ',min_pos);

end.

2.                                                            

program raf105;

const

 n = 3; //Размер матрицы

var

 a: array[1..n,1..n] of integer;

 b: array[1..n*n] of integer;

 counter,i,j: integer;

begin

for i:=1 to n do

begin

 writeln('Заполните столбец ',i);

 for j:=1 to n do

 begin

   readln(a[i,j]);

   if a[i,j] mod 3 = 0

     then begin

       counter+= 1;

       b[counter]:= a[i,j];

     end;

 end;

end;

writeln;

write('Массив элементов кратных трём: ');

for i:=1 to counter do

 write(b[i],' ');

end.

                                                             PascalABC 3.4.2