sashaleb88
?>

Какое преимущество имеет представления алгоритма в виде рисунков?

Информатика

Ответы

avdeevau807
Преимуществом изображения в виде рисунков является наглядность, также понятность. Когда смотришь на рисунок больше понимаешь как нужно выполнить алгоритм
marinakovyakhova
Const dlin = 100;
var b:array[1..dlin,1..2] of integer;
      i,j,x:integer;
begin
writeln('Исходный массив:');
for i:=1 to dlin do
 begin
  b[i,1]:=random(800)+100;
  write(b[i,1],' ');
  b[i,2]:=b[i,1] mod 10 + b[i,1] div 100 + b[i,1] div 10 mod 10;
 end;
writeln;

for i:=1 to dlin-1 do
  for j:=dlin-1 downto i do
     if b[j,2]>b[j+1,2] then
     begin
      x:=b[j,2]; b[j,2]:=b[j+1,2]; b[j+1,2]:=x;
      x:=b[j,1]; b[j,1]:=b[j+1,1]; b[j+1,1]:=x;
     end;

writeln('Отсортированный массив:');
for i:=1 to dlin do
   write(b[i,1],' ');

end.
superbalsa
var
  i, k, N: word;               
  A, B: array[1..10000] of integer;

begin 
  write(' N = ');
  readln(N);
  writeln(' Введите массив из ', N, ' чисел: ');
  for i := 1 to N do
  begin
    read(a[i]); //Вводим i-й элемент массива.
    if a[i] mod 2 = 0 then //Если он четный,  
    begin
      inc(K); //то увеличиваем K на 1.
      b[K] := a[i] //Очередной элемент нового массива.  
    end
  end;
  writeln('Четные числа обратном порядке: ');
 { Выводим четные элементы массива в обратном порядке: }
  for i := K downto 1 do
    write(' ', b[i]);
  write(' K = ', K)
end.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Какое преимущество имеет представления алгоритма в виде рисунков?
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Avolohova
malgoblin2663
Shlapakov1911aa
Aleksandr362
zazaza74
АркадьевичБундин789
homeo85
ustinov434
lilit-yan
savva-vika
Николаевич1033
alex091177443
rinata542
Itina321t
Ekaterina1654