В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История

составить блок-систему и программу, получить результат использования программы: вычислить сумму синусов чисел, кратных 5 из интервала(1-20)

Показать ответ
Ответ:
HACT91
HACT91
12.10.2021 20:31

Общий вид цикла пока:

 

ПОКА <условие> ДЕЛАТЬ <действие>

 

Суть цикла:

Действие выполняется до тех пор, пока условие не станет ложным.

Пример:

А=1

ПОКА А<3  ДЕЛАТЬ А=А+1

 

Цикл закончится, когда переменная А станет равной 3.

 

Если условие изначально ложно, то цикл не выполнится ни разу.

Пример:

А=4

ПОКА  А<3  ДЕЛАТЬ  А=А+1

 

Цикл не выполнится ни разу и значение переменной А не измениться.

 

При составлении цикла ПОКА нужно обязательно следить, чтобы условие рано или поздно стало ложным, иначе цикл будет бесконечно выполняться.

0,0(0 оценок)
Ответ:
cherrychampagne
cherrychampagne
31.05.2023 08:35
Uses GraphABC; 
procedure Draw(x, y, l, u : Real; t : Integer);

procedure Draw2(Var x, y: Real; l, u : Real; t : Integer);
begin
Draw(x, y, l, u, t);
x := x + l*cos(u);
y := y - l*sin(u);end; 
begin
if t > 0 then
beginl := l/3;Draw2(x, y, l, u, t-1);Draw2(x, y, l, u+pi/3, t-1);
Draw2(x, y, l, u-pi/3, t-1);Draw2(x, y, l, u, t-1);end
else
Line(Round(x), Round(y), Round(x+cos(u)*l), Round(y-sin(u)*l))end;
begin
SetWindowSize(425,500);
SetWindowCaption('Фракталы: Снежинка Коха');
Draw(10, 354, 400, pi/3, 4);Draw(410, 354, 400, pi, 4);
Draw(210, 8, 400, -pi/3, 4);end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота