На прошлом занятии многие из вас справились с построением стандартных графиков функций.
Сегодня попробуем нестандартные.
Ниже находятся рисунки нескольких графиков. На каждом рисунке указана изменяемая в пределах диапазона переменная. Зависимость координат точки от параметра цикла тоже описана. Осталось собрать всё в программу и готово. Графика выстроены по возрастанию сложности. Выберите, какой график вам понравился и вперед!
[spoiler]
Var Gd,Gm:SmaLLInt;
t:integer;
Begin
Gd:=Detect;
InitGraph(Gd,Gm,'');
for t:= -100 to 10000 do begin
Putpixel(round(100*(cos(t)-cos(6.5*t)/6.5))+GetMaxX div 2,round(100*(sin(t)-sin(6.5*t)/6.5))+GetMaxY div 2 ,14);
end;
Readln;
CloseGraph;
End.
Здравствуйте! Дико извиняюсь, а почему не стоит оценка за 8 число, где мы строили стандартные графики?