mmakkarova
24.09.2020 07:37

По ж а л у й с т исполнитель чертёжник перемещается на координатной плоскости, оставляя след в виде линии. чертёжник может выполнять команду сместиться на (a, b) (где a, b — целые числа), перемещающую чертёжника из точки с координатами (x, у) в точку с координатами (x + а, у + b). если числа a,
b положительные, значение соответствующей координаты увеличивается; если отрицательные, уменьшается. например, если чертёжник находится в точке с координатами (4, 2), то команда сместиться на (2, −3) переместит чертёжника в точку (6, −1). запись повтори k раз команда1 команда2 командаз конец
означает, что последовательность команд команда1 команда2 командаз повторится k раз. чертёжнику был дан для исполнения следующий алгоритм: повтори 2 paз команда1 сместиться на (3, 3) сместиться на (1, −2) конец сместиться на (4, −6) после выполнения этого алгоритма чертёжник вернулся в исходную
точку. какую команду надо поставить вместо команды команда1? 1) сместиться на (6, −2) 2) сместиться на (−8, 5) 3) сместиться на (−12, 4) 4) сместиться на (−6, 2) ответ

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
nourdana
17.03.2021 23:59
Преимущества командного интерфейса

Очень низкие требования к аппаратным средствам — минимально для работы требуется клавиатура и символьное устройство вывода или терминал, соединённый с машиной.

Высокая степень унификации — всё взаимодействие обеспечивается через две функции: ввод и вывод символов, часто реализуемые через файловый ввод-вывод.

Широкая возможность интеграции программ — посредством использования командного интерпретатора и перенаправления ввода-вывода.

Недостатки командного интерфейса

Плохая наглядность интерфейса — необходимо помнить команды или пользоваться справочником.

Ограниченные возможности вывода информации — отсутствие графики
0,0(0 оценок)
Ответ:
Давидычь
26.03.2020 23:48
1. Вот так сейчас решают подобные задачи:

// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
  Writeln(Range(1,100).Select(i->sin(i)*cos(i)).Where(x->x<>0).Average)
end.

Тестовое решение:
-0.00136006072493969

2. А вот так учат писать это же школьные учителя:

// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
var
  m:array[1..100] of real;
  i,k:integer;
  s:real;

begin
  s:=0;
  k:=0;
  for i:=1 to 100 do begin
    m[i]:=sin(i)*cos(i);
    if m[i]<>0 then begin
      s:=s+m[i];
      k:=k+1
      end
    end;
  Writeln(s/k)
end.

Тестовое решение:
-0.00136006072493969
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота