partners
?>

Какую команду нужно дать исполнителю чертежник, чтобы он при перемещении чертил линию на клетчатом поле. а)ширина пера б)перо опустить с) перо поднять д)вперед

Информатика

Ответы

laleonaretouch
По моему это вперед. но я не уверена
uuks2012
Перо опустить , после этого он начнёт перемещатся выдовая чёткие контуры.
Ainura Pokhomova
Var  i: integer;  begin
for i:=1 to 9 do  write(i);  writeln(10);
for i:=0 to 8 do  write(i);  writeln(9);
for i:=1 to 2 do  write('0');  for i:=1 to 7 do  write(i);  writeln('8');
for i:=1 to 3 do  write('0');  for i:=1 to 6 do  write(i);  writeln('7');
for i:=1 to 4 do  write('0');  for i:=1 to 5 do  write(i);  writeln('6');
for i:=1 to 5 do  write('0');  for i:=1 to 4 do  write(i);  writeln(5);
for i:=1 to 6 do  write('0');  for i:=1 to 3 do   write(i);  writeln('4');
for i:=1 to 7 do  write('0');  for i:=1 to 2 do  write(i);  writeln(3);
for i:=1 to 8 do  write('0');  write('1');writeln('2');
for i:=1 to 9 do  write('0');  writeln(1);  
end.

Как сделать более кратко не знаю. Но эта программа работает.
papushinrv4985
Const
  nn = 20;

var
  i, j, n: integer;
  a: array[1..nn, 1..nn] of integer;

begin
  writeln('Задайте размер матрицы n');
  readln(n);
  if n > nn then
    writeln('Вы превысили допустимый размер матрицы 20')
  else begin
    writeln('Матрица-результат');
    for i := 1 to n do
    begin
      writeln;
      for j := 1 to n do begin
        if i < j then a[i, j] := 1
        else if i = j then a[i, j] := 2
        else a[i, j] := 3;
        write(a[i, j]:2)
      end;
    end;
    writeln
  end
end.

Тестовый пример:

Задайте размер матрицы n
10
Матрица-результат

 2 1 1 1 1 1 1 1 1 1
 3 2 1 1 1 1 1 1 1 1
 3 3 2 1 1 1 1 1 1 1
 3 3 3 2 1 1 1 1 1 1
 3 3 3 3 2 1 1 1 1 1
 3 3 3 3 3 2 1 1 1 1
 3 3 3 3 3 3 2 1 1 1
 3 3 3 3 3 3 3 2 1 1
 3 3 3 3 3 3 3 3 2 1
 3 3 3 3 3 3 3 3 3 2

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

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

Какую команду нужно дать исполнителю чертежник, чтобы он при перемещении чертил линию на клетчатом поле. а)ширина пера б)перо опустить с) перо поднять д)вперед
Ваше имя (никнейм)*
Email*
Комментарий*

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

Кислинская1055
галина
fitzhu
Vrpeshka
NikonA83
araqsyabadalyan1988
ivanovk3599
manager-3
evgeniipetrosov
Evagg3856
vkaloshin
admiralbany
Sacharov84
fastprofit
Chervonnaya-Aleksei