1. запустите программу несколько раз. объясните, почему при некото-рых запусках треугольники рисуются поверх текста в верхнем левомуглу экрана. измените программу так, чтобы треугольники рисовалисьниже текста (правее текста).2. добавьте в программу возможность ввода длины второго катета. 3. измените
программу так, чтобы длины катетов задавались случай-ным образомuses graphabc; var n, x, y, a : integer; procedure pr_treug (x, y, a,b : integer); var x_c, y_c: integer; begin line(x, y, x + a,y); line(x, y, x, y + b); line(x + a, y, x, y + b); x_c : = x + 2; y_c : = y + 2;
floodfill(x_c,y_c,clrandom); end; begin writeln('ввeдите количество'); read(n); writeln (n); writeln('ввeдите длину катета'); read(a); writeln (a); for var i: = 1 to n do begin x: = random(500); y: = random(400); pr_treug(x, y, a, a); end; end.​

tanyaparakhina    1   08.10.2019 03:40    23