domceky, domceky v pascale

Kal-El · Napísal **Kal-El**: 19.05.2007 14:36

help me pls Napíšte procedúru dom s parametrom veľkosť, ktorá nakreslí domček zložený so štvorca a rovnostranného trojuholníka.
Pomocou procedúry dom nakreslite ulicu, v ktorej bude n náhodne veľkých domov vedľa seba

juho · Napísal **juho**: 19.05.2007 15:02

Kal-El píše:

help me pls Napíšte procedúru dom s parametrom veľkosť, ktorá nakreslí domček zložený so štvorca a rovnostranného trojuholníka.
Pomocou procedúry dom nakreslite ulicu, v ktorej bude n náhodne veľkých domov vedľa seba

Ja tych ludi(MGR. hadam) nechapem, preco davaju Pascal na domceky ked je nato najlepsie COMLOGO.
Ma sa to nakreslit v textovom alebo grafickom mode?

Kal-El · Napísal autor témy **Kal-El**: 19.05.2007 15:06

v grafickom inicializovanim grafiky initgraph

juho · Napísal **juho**: 19.05.2007 15:43

Kal-El píše:

v grafickom inicializovanim grafiky initgraph

ja by som najprv vypocital vysku trojuholnika a potom pouzil lineto alebo este lepsie cez linerel:

Kód:

uses graph;
procedure dom(dlzka:word);
var vyska:word;
begin 
v:=trunc(sqrt(d*d-d*d/4)
moveto(getmaxx/2,getmaxy/2);
linerel(d/2,-v);linerel(d/2,v);linerel(0,d);linerel(-d,0);linerel(0,-d);inerel(d,0);
end;
BEGIN initgraph(blablabla);
dom(100); {pozor je to v pixeloch}
readln;closegraph;END.

johny128 · Napísal **johny128**: 19.05.2007 16:11

Kód:

program domceky;
uses crt,graph;
var gd,gm,i,ulica: integer;

procedure dom(n: integer);
     var vyska,x: integer;
begin
     rectangle(20+ulica,400,20+n+ulica,400-n);
     vyska:=trunc(1.732050808*n/2);
     x:=trunc(n/2);
     line(20+ulica,400-n,20+x+ulica,400-n-vyska);
     line(20+x+ulica,400-n-vyska,20+n+ulica,400-n);
     ulica:=ulica+n;
end;

begin
     clrscr;
     detectgraph(gd,gm);
     initgraph(gd,gm,'..\BGI');
     randomize;
     repeat
           dom(random(150)+50);
     until ulica > getmaxx-100;

     readkey;
     closegraph;



end.

juho · Napísal **juho**: 19.05.2007 16:14

no pekne sme to dali naraz Janko

johny128 · Napísal **johny128**: 19.05.2007 16:17

Hehe

No este pridam screenshot, ked uz som si kvoli tomu aj dosbox dal

domceky, domceky v pascale

Ale tvoje riesenie vyzera jednoduchsie :o

juho · Napísal **juho**: 19.05.2007 16:20

ani nie... ja tam nemam initgraph a ulicu takze preto je to kratsie
a ty si to robil cez sinus? ja cez pytagorov 3Uholnik

johny128 · Napísal **johny128**: 19.05.2007 16:22

juho píše:

ani nie... ja tam nemam initgraph a ulicu takze preto je to kratsie
a ty si to robil cez sinus? ja cez pytagorov 3Uholnik

tangens

Ja vsetko riesim tak sedliacky, ale sak funguje :lol:

juho · Napísal **juho**: 19.05.2007 16:25

jaj ano d/2. uz sa mi nejak straca zmysel pre matiku. cochvila nebudem vediet ci 2+2=4 alebo 2+2=5(aj ked to je jeden album)

Kal-El · Napísal autor témy **Kal-El**: 19.05.2007 16:45

dik chlapy mna za ten svet nemohlo napadnut ako tam spravim ten trojuholniky lebo vzdy sme kreslili iba cinzaky s oknami:D

Kal-El · Napísal autor témy **Kal-El**: 19.05.2007 16:46

pisem ako madar (bez urazky ) ,, tei trojuholniky"

juho · Napísal **juho**: 19.05.2007 17:17

Kal-El píše:

pisem ako madar (bez urazky ) ,, tei trojuholniky"

tebe treba aj opravu opravovanej opravy TIE inak ked chces mozes clicknut na [uprav]lavy horny roh.
ale to by ma zaujimalo ako ste tam nakreslili te okna v tych cinziakoch mozes dat script

audiotrack · Napísal **audiotrack**: 19.05.2007 17:32

juho píše:

tebe treba aj opravu opravovanej opravy TIE inak ked chces mozes clicknut na [uprav]lavy horny roh.
ale to by ma zaujimalo ako ste tam nakreslili te okna v tych cinziakoch mozes dat script

keď už tak každý každého opravuje: chcel si napísť PRAVÝ horný roh :-D