3. 6 исполнитель черепашка перемещается на экране компьютера, оставляя след в виде линии. в каждый конкретный момент известно положение исполнителя и направление его движения. у исполнителя существует две команды: вперёд n (где n — целое число), вызывающая передвижение черепашки на n шагов в
направлении движения; направо m (где m — целое число), вызывающая изменение направления движения на m градусов по часовой стрелке. запись повтори k [команда1 команда2 командаз] означает, что последовательность команд в скобках повторится k раз. черепашке был дан для исполнения следующий алгоритм:
повтори 7 [вперёд 70 направо 120]. какая фигура появится на экране? 1) правильный шестиугольник 2) незамкнутая ломаная линия 3) правильный семиугольник 4) правильный треугольник ответ 4. 6 исполнитель черепашка перемещается на экране компьютера, оставляя след в виде линии. в каждый конкретный
момент известно положение исполнителя и направление его движения. у исполнителя существуют две команды: вперёд n, где n целое число, вызывающая передвижение черепашки на n шагов в направлении движения. направо m, где m − целое число, вызывающая изменение направления движения на m градусов по
часовой стрелке. запись повтори 5 [команда1 команда2]означает, что последовательность команд в скобках повторится 5 раз. черепашке был дан для исполнения следующий алгоритм: повтори 6 [вперёд 10 направо 72] какая фигура появится на экране? 1) незамкнутая ломаная линия 2) квадрат 3) правильный
пятиугольник 4) правильный шестиугольник ответ

Нажмите на рекламу ниже и сразу увидите ответ

↓

Популярные вопросы:

Emptу

15.06.2021 02:09

Ақпарат ұсынатын нысан қалай аталады...

zhanara3109

04.07.2022 10:54

Преобразуйте дробь. Входные данные: Дана запись двоичной дроби (двоичная СС включает числа 0 и 1), но в целых числах точки может не быть. Необходимо представить ее в...

Milediteul

11.01.2020 07:15

объём файла, который содержит 3 рисунка размером 4000*2000 пикселей равен 96000000 бит. Сколько цветов в палитре?...

Долгинцев

06.09.2022 19:02

1. Основное устройство вывода информации, предназначенное для отображения текста или графической информации3. Средство для перевода графической и текстовой информации...

katekotloveka

03.06.2022 04:24

Даны слова : картофель, кабачок, морковь, карандаш, капуста. Укажите, какое из этих слов лишнее, если руководствоваться a) семантическим подходом; б) синтаксическим подходом...

DikONd

10.04.2023 21:24

Для хранения произвольного растрового изображения размером 2048×1024 пикселей отведено 2 Мбайт памяти, при этом для каждого пикселя хранится двоичное число – код цвета...

QeenNahimi05062

04.01.2022 17:07

C++.В массиве размером N есть хотя – бы один нуль. Вычислить произведение элементов до первого нуля и сумму элементов после первого нуля....

системаобразования

25.09.2022 23:07

Почему видео карту называют компьютером в компьютере?...

спортжизнь

04.06.2023 22:29

4. Установи соответствие Типа информации и расширения файла TiffWavWmyRtfJpegMovDocmp3звуквидео)ТЕКСТкартинка...

лунный3

12.09.2022 14:35

решить схемы по информатике. Сам файл с презентацией и скриншотами схем я закрепил...

Ответ:

elizabeth0vasillenko

13.03.2020 03:36

1)var n,k: integer; begin write('число: '); readln(n); k: =0; repeat k: =k*10+n mod 10; n: =n div 10; until n=0; writeln('новое число: ',k); end. 2) var n,k,m: integer; begin write('двоичное число: '); readln(n); k: =1; m: =0; repeat m: =m+k*(n mod 10); n: =n div 10; k: =k*2; until n=0; writeln('десятичное число: ',m); end.

0,0(0 оценок)

Ответ:

sir228qwerty

02.12.2022 16:52

Function Otr(Ax, Ay, Bx, By: real): real;
begin
Otr := sqrt(sqr(Ax - Bx) + sqr(Ay - By))
end;

function Perim(Ax, Ay, Bx, By, Cx, Cy: real): real;
begin
Perim := Otr(Ax, Ay, Bx, By) + Otr(Bx, By, Cx, Cy) + Otr(aX, aY, Cx, Cy);
end;

function Area(Ax, Ay, Bx, By, Cx, Cy: real): real;
var
pp: real;
begin
pp := Perim(Ax, Ay, Bx, By, Cx, Cy) / 2;
Area := sqrt(pp * (pp - Otr(Ax, Ay, Bx, By)) * (pp - Otr(Bx, By, Cx, Cy)) *
(pp - Otr(Ax, Ay, Cx, Cy)))
end;

procedure Dist(Px, Py, Ax, Ay, Bx, By: real; var D: real);
begin
D := 2 * Area(Px, Py, Ax, Ay, Bx, By) / Otr(Ax, Ay, Bx, By)
end;

var
Px, Py, Ax, Ay, Bx, By, Cx, Cy: real;
d: real;

begin
writeln('Вводите координаты точкек парами чисел: ');
write('P-> ');
readln(Px, Py);
write('A-> ');
readln(Ax, Ay);
write('B-> ');
readln(Bx, By);
write('C-> ');
readln(Cx, Cy);
writeln;
Dist(Px, Py, Ax, Ay, Bx, By, d);
writeln('Расстояние от Р до АВ равно ', d);
Dist(Px, Py, Cx, Cy, Bx, By, d);
writeln('Расстояние от Р до ВC равно ', d);
Dist(Px, Py, Ax, Ay, Cx, Cy, d);
writeln('Расстояние от Р до АC равно ', d)
end.

Тестовое решение:
Вводите координаты точкек парами чисел:
P-> -3 6
A-> 5 8
B-> 9 -4
C-> 8 -2.5

Расстояние от Р до АВ равно 8.22192191643778
Расстояние от Р до ВC равно 4.43760156980184
Расстояние от Р до АC равно 8.24163383692135

0,0(0 оценок)

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку