И! составьте блок схему по коду 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.

missis23ashikhmina    3   31.08.2019 08:50    0