Qocharian
07.07.2022 04:45

Моделирование ситуаций
Однажды зимой один молодой электрик, с целью поменять лампочку на фонарном столбе, воспользовался лестницей, приставив её к этому столбу. Поднявшись по ней вверх, остановился на одной из ступеней. В это время, (а надо сказать, гравитацию тогда уже изучили, утвердили на самом высоком уровне, опубликовали в СМИ, но отменить ещё не успели) концы лестницы начали скользить вдоль бетонного столба и ледяной корки на земле. К величайшему сожалению, о силе трения электрику было мало что известно, поэтому он ничего не предпринял, дабы этого избежать. Очень скоро лестница оказалась на земле, но наш стойкий электрик не покинул занятой ступени, более того, он так и остался стоять перпендикулярно поверхности земли (умолчим о ее шарообразности).
Отвлечемся и от законов физики, которые, конечно Вам известны, направления и скорости ветра, влажности воздуха и атмосферного давления, и будем считать, что изначально непрозорливый электрик лестницу прислонил вертикально к столбу. Начал подниматься.
И, о чудо, она начала скользить…
Как же интересно увидеть траекторию, по которой перемещался каблук его левого ботинка в процессе этого позорного «падения», которое, кстати сказать, длилось всего-навсего 10 секунд.
Благодаря летописцам, нам известно, что длина той лестницы была немалой - 8 метров, а количество ступенек – целых 14.

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

Вот Вам и предстоит предоставить на суд траекторию его «падения», а возможно и «взлёта», которая, безусловно, зависит от того, на какую же высоту поднялся наш герой.
Решить любым возможным

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Lizamog1
08.01.2021 16:46

1)а

var a:real;

begin

readln(a);

a1 := a*a;  /получили а^2
a := a1*a1;  /получили a^4

a := a1*a*a;  /получили a^(4+4+2)

writeln(a);

end.

 

1б)

var x:real;

i:integer;

begin

readln(a);

a1 := a*a*a;  /получили а^3
a := a1*a1*a1;  /получили a^9

a := a*a1*a1; /получили а^(9+3+3)

writeln(a);

end.

 

2)

var a:real;
begin
readln(a);
writeln('высоты равны', a*a*sqrt(3)/4*a);
writeln('Радиус вписанной окружности', a*a*a/4*a*a*sqrt(3)/4);
writeln('Радиус описанной окружности', a*a*sqrt(3)/4*2/3*a);
end.

 

3)var a:real;
begin
readln(a);

writeln('В килобайтах' a/1024);

writeln('В мегабайтах' a/(1024*1024));

end.

0,0(0 оценок)
Ответ:
yuliayatseniuk1
08.01.2021 16:46
Код#include <iostream>constexpr double bites_to_megabytes(double a) {    return a / 8388608;}constexpr double megabytes_to_gigabytes(double a) {    return a / 1024;}int main() {    long long a;    short type;    bool is_correct = false;    double answer;    do {        std::cin >> a;        std::cout << "[1] Megabytes \n"                  << "[2] Gigabytes \n"                  << "Convert to [1] or [2]: ";        std::cin >> type;        if (type == 1 or type == 2) {            is_correct = true;        } else {            std::cout << "Meh. Try to type again. \n" << std:: endl;        }    } while (!is_correct);    switch (type) {        case 1:            answer = bites_to_megabytes(a);            break;        case 2:            answer = megabytes_to_gigabytes(bites_to_megabytes(a));            break;    }    std::cout << "An answer of conversion is " << answer << std::endl;    return 0;}
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота