Информатика 9 класс .) начальное состояние: исполнитель находится в нижнем правом углу и смотрит вверх. где будет исполнитель после выполнения следующих программ? а) пока впереди не край повторять нц прыжок кц поворот поворот пока впереди не край повторять нц прыжок кц б) пока впереди не край повторять нц прыжок поворот прыжок поворот поворот поворот кц )составьте алгоритм, переводящий графического исполнителя (грис) в угол поля из любого исходного положения. )дан следующий алгоритм: пока впереди не край повторять нц поворот кц при каком исходном положении графического исполнителя данный алгоритм зациклится?

👇

Увидеть ответ

Ответ:

nastya01102016

03.12.2020

Нету изображения среды исполнения, поэтому решить задачу не получится.

4,4(35 оценок)

Открыть все ответы

Ответ:

aprel123

03.12.2020

// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
var m:=ReadInteger('Количество строк в массиве:');
var n:=ReadInteger('Количество столбцов в массиве:');
Writeln('*** Исходный массив [',m,',',n,'] ***');
var a:=MatrRandom(m,n,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
Writeln('*** Результат ***');
a.Transform(x->x>=0?0:1); a.Println(4);
var s:=a.ElementsByRow;
Writeln('Нулей- ',s.Where(x->x=0).Count,', единиц- ',
      s.Where(x->x=1).Count)
end.

Пример
Количество строк в массиве: 4
Количество столбцов в массиве: 5
*** Исходный массив [4,5] ***
-19 61 -47 -38 -26
-95 -35 -56 43 40
   0 -52 -87 -85 93
-68 48 -55   5 -93

*** Результат ***
   1   0   1   1   1
   1   1   1   0   0
   0   1   1   1   0
   1   0   1   0   1
Нулей- 7, единиц- 13

4,6(49 оценок)

Ответ:

sunriseliva

03.12.2020

//
begin
var L:=new List<fraction>; // вынужденное: метод иногда дает дубликаты
(var a0, var an):=(abs(Self.First),abs(Self.Last));
for var p:=1 to a0 do begin
    if a0 mod p<>0 then continue;
    for var q:=1 to an do begin
      if an mod q<>0 then continue;
      var g:=Self.First; (var f, var t):=(g,p);
      foreach var k in Self.Skip(1) do begin
        var r:=k*t; (f,g,t):=(f*q+r,-g*q+r,t*p);
        end;
      if f=0 then L.Add((p,q));
      if g=0 then L.Add((-p,q))
      end
    end;
    Result:=L
end;

function RedFrac(Self:fraction):fraction; extensionmethod;
begin
(var p,var q):=Self;
var s:=sign(p*q);
(p,q):=(abs(p),abs(q));
(var a,var b):=(p,q);
while b<>0 do begin a:=a mod b; Swap(a,b) end;
Result:=(s*p div a,q div a)
end;

function Beautify(Self:sequence of fraction):sequence of string;
    extensionmethod;
begin
Result:=Self.Select(e->e.RedFrac).Distinct.OrderBy(x->x[0]/x[1]).
    Select(e->e[0]+(e[1]<>1?'/'+e[1]:''))
end;

begin
ReadArrInteger(4).RatFact.Beautify.Println
end.

Примеры
1) -36x³+3x²+14x+3 = 0

3 14 3 -36
-1/3 3/4

2) (x-1)(x+2)(x+3/5) = 0; 5x³+8x²-7x-6 = 0

-6 -7 8 5
-2 -3/5 1

4,5(83 оценок)

Это интересно:

Стиль-и-уход-за-собой

29.07.2020

Как замаскировать прыщик с помощью зеленого консилера: советы и рекомендации...

Компьютеры-и-электроника

30.03.2020

Секреты изменения списка близких друзей Facebook на iPhone и iPad...

Компьютеры-и-электроника

04.03.2021

Как добавить фон на веб-страницу: простые шаги, которые помогут улучшить визуальное восприятие...

Стиль-и-уход-за-собой