Построить кривые по заданному параметрическому представлению - Pascal ABC (23145)
Формулировка задачи:
помогите пожалуйста решить две задачи по графикежелательно на АВСпаскаль)
1. Построить кривые по заданному параметрическому представлению:
улитка Паскаля: у = а • cos² t + b • cos t ,
y = a • соs t • sin t + b • sin t , при условии, что a>0, b>0,
t ? [0,2п]. Рассмотреть случаи, когда b ≥ 2a, a < b < 2а, a > b.
2. рассортировать методом пузырька кружок или любое геометрическое тело.
или хотя бы исправить ошибки в программме(не работает): улитка паскаля...
Решение задачи: «Построить кривые по заданному параметрическому представлению»
textual
Листинг программы
uses graphABC; type Okr=record r,c:integer;//радиус и цвет окружности end; const n=10; var a:array[1..n] of Okr; //массив окружностей i,j:integer; x:Okr; begin randomize; for i:=1 to n do begin a[i].c:=RGB(random(255),random(255),random(255)); a[i].r:=random(25)+2; setpencolor(a[i].c); circle(i*60,60,a[i].r); end; for i:=1 to n-1 do //сортироака прямым обменом, заменишь на пузырек for j:=i+1 to n do if a[i].r>a[j].r then //по увеличению радиуса begin x:=a[i]; a[i]:=a[j]; a[j]:=x; end; for i:=1 to n do//вывод отсортированных begin setpencolor(a[i].c); circle(i*60,200,a[i].r); end; end.
Объяснение кода листинга программы
- Установка начального цвета и радиуса для окружностей в массиве
a
. - Создание окружностей на экране с помощью функции circle.
- Прямой обмен элементами массива
a
для сортировки по радиусу. - Вывод отсортированных окружностей на экран с помощью функции circle.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д