Var x1,y1,x2,y2,v1,v2:real; begin writeln("введите количество метров пробегания жирафа"); read(y1); writeln("введите, за сколько секунд он должен пробежать"); read(x1); writeln("введите количество метров пробегания зайца"); read(y2); writeln("введите, за сколько секунд он должен пробежать"); read(x2); v1:=y1/x1; v2:=y2/x2; if v1>v2 then begin writeln("жираф чемпион"); end else if v1<v2 then begin writeln("заяц чемпион"); end else begin writeln("победила дружба); end; end;
//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016) const m = 10;
var t: array[1..m] of integer; i, n, nm, sm: integer;
begin //Заполняем массив сл.числами и подсчитываем //количество элементов и среднее арифметическое //согласно условию задачи for i := 1 to m do begin t[i] := random(-20, 20);write(t[i]:4); if (i > 1) and (i <= m) then if t[i] > t[i - 1] then n := n + 1 else if t[i] < t[i - 1] then begin sm := sm + t[i];nm := nm + 1; end; end; writeln; writeln('число элементов больших предыдущего = ', n); writeln('ср. арифметическое элементов меньших предыдущего = ', sm / nm);
Смотри картинки
Объяснение:
3.
Пусть Чертёжник в точке с начальными координатами (x, y).
Чтобы узнать где после всех команд сместиться на вектор оказался Чертёжник надо сложить все указанные команды, отдельно по каждой оси.
x = 3 + 1 + (-1) + 0 = 3 + 1 - 1 + 0 = 3
y = 3 + 0 + (-1) + 1 = 3 + 0 - 1 + 1 = 3
Чертежник оказался в точке с координатами (x +3, y +3).
Чтобы вернуться в исходную точку надо заменить узнанные векторы противоположными:
сместиться на вектор (-3, -3)
4.
После выполнения команды сместиться на вектор (a, b), Чертёжник оказывается в точке (x + a, y + b), относительно начальных координат (x, y).
начальные координаты (1, 1)
Т.к. цикл должен повториться 3 раза, то выполним указанные в нём команды 3 раза.
начальные координаты (1, 1)
сместиться на вектор (2, 0) - Чертёжник оказывается в точке (3, 1)
начальные координаты (3, 1)
сместиться на вектор (0, 1) - Чертёжник оказывается в точке (3, 2)
начальные координаты (3, 2)
сместиться на вектор (2, 0) - Чертёжник оказывается в точке (5, 2)
начальные координаты (5, 2)
сместиться на вектор (0, 1) - Чертёжник оказывается в точке (5, 3)
начальные координаты (5, 3)
сместиться на вектор (2, 0) - Чертёжник оказывается в точке (7, 3)
начальные координаты (7, 3)
сместиться на вектор (0, 1) - Чертёжник оказывается в точке (7, 4)
Смещения по оси x вправо и по оси y вверх - положительные.
Смещения по оси x влево и по оси y вниз - отрицательные.