Cześć, przepraszam, jeżeli obraziłem was tego typu postem, ale próbowałem cały dzień i nie mam pomysłu jak zrobić coś takiego jak na załączonej grafice.
Próbowałem w jakikolwiek sposób użyć komend typu line, ale w line podajemy współrzędne końca i początku linii, a tutaj potrzebujemy żeby były to średnice okręgu. Głowię się, a nie jestem w tym fachowcem, mam to na studiach jako poboczny przedmiot od trzech miesięcy a w internecie naprawdę bardzo ciężko jest znaleźć przykłady prostych grafik tego typu (wbrew pozorom). Proszę o jakąś pomoc, do tej pory kombinowałem coś w ten deseń:
Program grafika;
Uses graph;
var sterownik, tryb, k:integer;
Procedure liniepionowe(n:integer);
var i,z:integer;
begin
begin
i:=9;
setcolor(i);
for z:=0 to n do
begin
line(i+100*z,i-100*z,i-100*z,i+100*z);
end;
end;
end;
begin
writeln('k='); readln(k);
detectgraph(sterownik,tryb);
initgraph(sterownik,tryb,'');
setlinestyle(15,13,0);
liniepionowe(k);
readln;
closegraph;
end.
Ale to raczej kompletnie nie w tym kierunku powinno iść.