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.
108
167
Ответы на вопрос:
Популярно: Информатика
-
polsmilе26.09.2020 05:32
-
Нура19116.09.2022 16:39
-
MEGRAD22.02.2021 03:31
-
taylakova63p06vpw03.03.2020 19:27
-
лолкекчибурек108.07.2022 10:11
-
Niiiiklou27.12.2020 02:56
-
luciatarasova14.05.2020 20:58
-
ilya00000004.07.2022 05:28
-
nelindos1831.01.2020 09:19
-
mooziviycom12.12.2020 23:24