Rysowanie układu sieci,pomóżcie =(

[Marchewcia91]

Witam. Mam za zadanie narysowac za pomocą TP schemat komputerów podłączonych w sieci. Znaczy należy narysować koło - symbolisuje serwer i kwadraty - symbolizują komputery podłączone do serwera. Koło i kwadrat muszą być połączone odcinkiem. Mnie na razie udało się napisać program, który rysuje koło i połączony z nim kwadrat. Ale nie mogę zrobić tak, żeby podać z klawiatury liczbę komputerów i żeby program narysował odpowiadnią liczbę kwadratów i odcinków. Oto moje dzieło:

 

uses graph;


var
karta,tryb:integer;
sciezka:string;
a,b:integer;


BEGIN

sciezka:='c:\bgi';
detectgraph(karta,tryb);
initgraph(karta,tryb,sciezka);
a:=50;
b:=80;
circle(100,60,10);
line(100,70,a,b);
rectangle(a,b,a+40,90);
readln;
closegraph;
end.

[Dexarz]

Następny temat ,kóry wyladuje w koszu ...

 

 

Jeśli chodzi o ten program ,to jest to proste ,poszukaj w google ,przez 2 o !!!!

[Cubixmeister]

Dexarz, przestań kozaczyć, bo sam nie jesteś jakimś guru...

[5corpio]

Na unit1 masz art w którym jest podany wzorek na dowolny wielokąt foremny o N-bokach. Za n podstawiasz ilośc komputerów i wyliczasz X,Y punktu w którym powinien być narysowany prostokąt. Potem od każdego wierzchołka do środka rysujesz odcinek i problem z głowy.