И! составьте блок схему по коду begin for k : = 1 to 100 do begin x : = random(700); y : = random(700); r : = 10; circle(x, y, r); floodfill(x, y, clblue); {закрашивает фигуру в рандомный цвет} end; clearwindow; {делает окно пустым} writeln('! данная программа может расчитать площадь паралелограмма с двух разных формул. сначала выбери данные то, что тебе известно'); repeat writeln('1. сторона параллелограмма и высота, проведенная к ней 2. две стороны и синус угла между ними'); read(d); {присваивает переменной значение, которое ввел пользователь} case d of 1: begin perv(u, o, p); writeln('взять другую формулу? '); readln(l); end; 2: begin vtor(u, i, p, o); writeln('взять другую формулу? '); readln(l); end; else begin writeln('введи число еще раз'); read(d); end; end; until l = 'нет'; writeln('возвращайся еще! '); end.
293
440
Ответы на вопрос:
Популярно: Информатика
-
наталия14711.12.2022 00:41
-
ЭллинаРодионова1105.04.2023 10:04
-
bar56921.01.2022 15:29
-
kblaginin6gmailm09.10.2020 10:20
-
Шаров200513.12.2020 07:55
-
левецинкking22.12.2020 11:37
-
Nastya16100330.09.2022 03:29
-
SeaN01409.07.2022 03:32
-
fynju10.05.2022 16:07
-
ksenia37620.11.2020 07:19