Экономика
Исполнитель Муравей перемещается по полю, разделённому на клетки. Размер поля 8x8, строки нумеруются числами, столбцы обозначаются буквами. Муравей может выполнять команды движения:
Вверх N,
Вниз N,
Вправо N,
Влево N
(где N — целое число от 1 до 7), перемещающие исполнителя на N клеток вверх, вниз, вправо или влево соответственно.
Запись
Повтори k раз
Команда1 Команда2 КомандаЗ
Конец
означает, что последовательность команд Команда1 Команда2 КомандаЗ повторится k раз. Если на пути Муравья встречается кубик с буквой, то он перемещает его по ходу движения. Пусть, например, кубик с буквой О находится в клетке Е6. Если Муравей выполнит команды вправо 2 вверх 2, то сам окажется в клетке Е7, а кубик с буквой О в клетке Е8.
Пусть Муравей и кубики расположены так, как указано на рисунке. Муравью был дан для исполнения следующий алгоритм:
Вниз 3
Повтори 2 раз
Вправо 1 вверх 1 влево 1
Какое слово будет написано в 6 строке после выполнения этого алгоритма?
1) КОМ
2) ЛОМ
3) ДОМ
4) ТОМ
Срочно!!!!
НАПИШИТЕ БЛОК-СХЕМУ !!! ПОЖАЛУЙСТА
Найти среднее арифметическое четных элементов в массивах А(15) и С(9) из интервала [10;30]
PROGRAM lr1;
CONST N=9 ; M=15;
TYPE MASSIV=ARRAY [1..m] OF INTEGER;
VAR A,C:MASSIV; I:INTEGER;S1, S2:real;
{*ПРОЦЕДУРА ВВОДА ЭЛЕНТОВ МАССИВА*}
PROCEDURE INPUT (VAR X: MASSIV; K: INTEGER);
VAR I: INTEGER;
BEGIN
FOR I:=1 TO K DO
BEGIN
WRITE (' ВВЕДИ МАССИВ ');
READLN (X[I]);
END;
END;
{*ПРОЦЕДУРА ВЫВОДА ЭЛЕНТОВ МАССИВА НА ЭКРАН*}
PROCEDURE OUTPUT (VAR X: MASSIV; K: INTEGER);
VAR I: INTEGER;
BEGIN
WRITE (' ИСХОДНЫЙ МАССИВ');
FOR I:=1 TO k DO
WRITE (X[I]); WRITELN;-
END;
{*ПОДПРОГРАММА - ФУНКЦИЯ ОБРАБОТКИ МАССИВА *}
FUNCTION SARF (X: MASSIV; K: INTEGER): real;
VAR S,kol,i: INTEGER ; SA:real;
BEGIN
S:=0;kol:=0;
FOR I:=1 TO K DO
IF (X[I] MOD 2=0) and (X[I]>=10) and (X[I]<=30) THEN BEGIN S:=S+X[I]; kol:=kol+1;end;
SA:=S/kol;
SARF:=SA;
END;
{*ОСНОВНАЯ ПРОГРАММА *}
BEGIN
WRITELN ('INPUT MASSIV A');
INPUT (A, m);
OUTPUT (A, m);
S1:=SARF (A, m);
WRITELN ('среднее арифметическое массива A=', S1);
WRITELN ('INPUT MASSIV C');
INPUT (C, n);
OUTPUT (C, n);
S2:=SARF (C, n);
WRITELN ('среднее арифметическое массива C=', S2);
END.
