Дана площадь круга.найти длину окружности,ограничивающей этот круг. блок-схема

👇

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

Ответ:

FJcjfjvj

12.03.2021

Всё в файлах==========
Дана площадь круга.найти длину окружности,ограничивающей этот круг. блок-схема

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

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

Ответ:

danilgrekov20

12.03.2021

Type
    bignum = array[1..100] of integer;

var
    a, b: bignum;
    i, j, k, n_a, n_b: integer;

procedure get_num(var m: bignum; var n: integer);
var
    i := 0;
    s: string;
begin
    write('Введите число = ');
    readln(s);
    s := trim(s);
    n := 0;
    for i := length(s) downto 1 do
        if s[i] in ['0'..'9'] then begin
            n := n + 1;
            m[n] := strtoint(s[i]);
        end;
end;

function more(a, b: bignum; n_a: integer): boolean;
var
    i: integer;
    f := false;
begin
    for i := n_a downto 1 do
    begin
        if a[i] > b[i] then f := true
        else if a[i] < b[i] then f := false;
        if a[i] <> b[i] then break;
    end;
    more := f;
end;

procedure show(m: bignum; n: integer);
var
    i: integer;
begin
    write('Вывод ');
    for i := n downto 1 do
        write(m[i]);
    writeln();
end;

begin
    get_num(a, n_a);
    get_num(b, n_b);

    while (n_a >= n_b) and more(a, b, n_a) do
    begin
        if (a[n_a] > b[n_b]) then k := n_a - n_b
        else if n_a > n_b then k := n_a - n_b - 1
        else k := 0;

        for i := 1 to n_b do
        begin
            a[i + k] := a[i + k] - b[i];
            if a[i + k] < 0 then begin
                for j := i + k to n_a - 1 do
                begin
                    if a[j] >= 0 then break;
                    a[j] := a[j] + 10;
                    a[j + 1] := a[j + 1] - 1;
                end
            end;
        end;
        if a[n_a] = 0 then n_a := n_a - 1;
    end;

    show(a, n_a);
end.

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

Ответ:

настя7387

12.03.2021

УЧЕБНЫЙ КУРС

ЗАНЯТИЕ 1 ИЗ 1

Пошаговые действияСоединение с реальным миромСоздание моделиСовместное

Базовый набор MINDSTORMS EV3

Поворот при датчика

ПечатьПоделиться

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

45–90 мин

Средний уровень

Классы 5–8

Пошаговые действия

Постройте своего робота.

Создайте свою программу.

Далее установите робота в позицию 2 на поле 2 и запустите программу.

Запишите результаты.

Продолжите изучать использование гироскопического датчика для управления движениями робота.

Прежде чем вы начнете выполнять эту миссию, советуем изучить следующие разделы пособий самоучителя:

• Остановиться под углом

• Цикл

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

Наблюдайте за учащимися, чтобы удостовериться, что они:

•  используют правильную терминологию;

•  понимают функционирование программируемых блоков;

•  находят подходящие проверки угла поворота своего робота;

• понимают, какие факторы могут повлиять на точность остановки при использовании гироскопического датчика (погрешность датчика, мертвый ход мотора и вращающий момент)

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

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

Семейная-жизнь

11.11.2020

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

Хобби-и-рукоделие

17.01.2023

Покраска чугуна: советы от профессионалов...

Образование-и-коммуникации

13.09.2022

Как легко и быстро спрягать испанский глагол hacer...

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