Skocz do zawartości

  • Zaloguj korzystając z Facebooka Zaloguj korzystając z Twittera Zaloguj przez Steam Zaloguj poprzez Google      Logowanie »   
  • Rejestracja

Witamy w Nieoficjalnym polskim support'cie AMX Mod X

Witamy w Nieoficjalnym polskim support'cie AMX Mod X, jak w większości społeczności internetowych musisz się zarejestrować aby móc odpowiadać lub zakładać nowe tematy, ale nie bój się to jest prosty proces w którym wymagamy minimalnych informacji.

  • Rozpoczynaj nowe tematy i odpowiedaj na inne
  • Zapisz się do tematów i for, aby otrzymywać automatyczne uaktualnienia
  • Dodawaj wydarzenia do kalendarza społecznościowego
  • Stwórz swój własny profil i zdobywaj nowych znajomych
  • Zdobywaj nowe doświadczenia

Dołączona grafika Dołączona grafika

Guest Message by DevFuse
 

Zdjęcie
Pascal

[ROZWIĄZANE] Program - rysujący 10 kółek

Pascal pascal

  • Zamknięty Temat jest zamknięty
6 odpowiedzi w tym temacie

#1 Scripting

    Pomocny

  • Użytkownik

Reputacja: 11
Początkujący

  • Postów:67
  • Lokalizacja:Warszawa
Offline

Napisano 28.02.2012 16:15

Kiedys juz tutaj uzyskalem pomoc z "Pracą domową", dlatego pisze do was ponownie :D licząc na jakąkolwiek pomoc. mam takie zadanie "Napisz program rysujący 10 kółek o wspólnym środku, róznych promieniach i kolorach". Otrzymalem takie zadanie do zrobienia, lecz niemam pojecia jak to zrobic, pomoglby mi ktos? Chociaz zrobic kilka kółek reszte sam bym zrobił :P

Ma to wyglądac mniej więcej tak:
Dołączona grafika

Z góry dziękuje za pomoc!
  • +
  • -
  • 0

#2 G[o]Q

    I'm G[o]Q

  • Przyjaciel

Reputacja: 1339
Godlike

  • Postów:3556
  • Steam:steam
  • Imię:Krzysiek
  • Lokalizacja:C: / program Files / Valve / Cstrike / G[o]Q.dem
Offline

Napisano 28.02.2012 17:06

Otrzymalem takie zadanie do zrobienia, lecz niemam pojecia jak to zrobic,


moze zacznij od tego co potrafisz?? i powiedz czy chcesz abysmy napisali za ciebie program czy zebysmy ci pomogli ?
  • +
  • -
  • 1
Manual ponad wszystko, konsola ponad manual :D :&

Chcesz wysłać do mnie PW ? użyj nazwy GoQ zamiast G[o]Q
Chcesz Kupić moduł płatności via Pukawka,Tserwery, Gamesol, Zabijaka do mojego sklepu? napisz PW cena to tylko 10 zł/sztuka

GG:6022845 (nie pomagam za free osobom ponizej rangi MoD) :D

#3 Zapalka

    Wszechwidzący

  • Użytkownik

Reputacja: 192
Profesjonalista

  • Postów:283
  • GG:
  • Steam:steam
  • Imię:Dawid
  • Lokalizacja:Janów Lubelski
Offline

Napisano 29.02.2012 07:33

Składnia: Circle ( X,Y:integer; R:word ); biblioteka: GRAPH

Procedura rysuje koło o środku umieszczonym o współrzędnych X,Y, promieniu R i kolorze określonym przez procedurę SetColor.



Teraz już powinieneś sobie poradzić.
  • +
  • -
  • 1
Zapraszam na http://zapalka.net.pl

#4 Scripting

    Pomocny

  • Autor tematu
  • Użytkownik

Reputacja: 11
Początkujący

  • Postów:67
  • Lokalizacja:Warszawa
Offline

Napisano 29.02.2012 14:43

Chodzi mi o to zeby ktos zrobił mi ze dwa kółka tylko ;P a reszte to juz bym samemu zrobił.
  • +
  • -
  • 0

#5 Ogen Dogen

    Guru

  • Power User

Reputacja: 222
Profesjonalista

  • Postów:713
  • GG:
  • Steam:steam
  • Imię:Marcin
  • Lokalizacja:Dąbrowa Górnicza
Offline

Napisano 01.03.2012 21:44

Nudziło mi się to zrobiłem :P
Myślę że pomogłem.

Uses crt,graph;

Var
ster,karta,x,y,r,a,kolor:integer;
ktory:boolean;

begin
clrscr;
randomize;
ktory:=FALSE;
ster:=detect;
initgraph(ster,karta,'');
r:=220;
for a:=1 to 11 do
begin
repeat
kolor:=random(16);
until (kolor<>0) and (kolor<>1);
setfillstyle(1,kolor);
setcolor(kolor);
circle(500,350,r);
if ktory=FALSE then floodfill(500,350,kolor) else floodfill(500+r,350,kolor);
ktory:=TRUE;
r:=r-20;
end;
readln;
closegraph;
end.

  • +
  • -
  • 2

b_350_20_360204_C20008_FFFFFF_000000.png 193.33.176.115:27015

 

94e23d811c.png

 


#6 Scripting

    Pomocny

  • Autor tematu
  • Użytkownik

Reputacja: 11
Początkujący

  • Postów:67
  • Lokalizacja:Warszawa
Offline

Napisano 02.03.2012 14:32

dziekowac dziekowac dziekowac panu! Myslalem, ze pewnie bedzie rysowalo jedno kolko a tu tak pieknie :D SZOK! dzięki jeszcze raz ziom :D Praca domowa z głowy bedzie :D MEGA +

Użytkownik Scripting edytował ten post 02.03.2012 14:33

  • +
  • -
  • 0

#7 Ojciec Dyrektor

    papa smerf.

  • Przyjaciel

Reputacja: 476
Wszechobecny

  • Postów:3035
  • Imię:Paweł
  • Lokalizacja:Rabka-Zdrój
Offline

Napisano 02.03.2012 14:35

Wiadomość wygenerowana automatycznie


Ten temat został zamknięty przez moderatora.

Powód: Pomoc udzielona

Jeśli się z tym nie zgadzasz, Dołączona grafika raportuj ten post, a moderator lub administrator rozpatrzy go ponownie.


Z pozdrowieniami,
Zespół AMXX.PL
  • +
  • -
  • 1





Również z jednym lub większą ilością słów kluczowych: Pascal, pascal

Użytkownicy przeglądający ten temat: 0

0 użytkowników, 0 gości, 0 anonimowych