Aktív témák

• #53 9CS senior tag KovacsUr #40

  2004-04-15 19:01:54 #53

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  9CS

  senior tag

  válasz KovacsUr #40 üzenetére

  Természetesen, nagyon jó :C Csak ha Kinti megnézi, azért arra figyeljen, hogy nem egyforma random karakterekkel irja ki a háromszöget (amit írt az elején, hogy kéne), hanem változókkal. De csak kötözködöm, mert múltkor nekem is segítettél, és az túl jó volt, abba nem lehetett belekötni. :D

• #38 9CS senior tag 9CS #36

  2004-04-14 16:36:11 #38

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  9CS

  senior tag

  válasz 9CS #36 üzenetére

  Továbbgondolva, ha kell köré ''keret'' akkor meg kellene nézni az épp elkészített háromszöget és körbevenni karakterekkel: | / - ilyenekkel :)

• #36 9CS senior tag

  2004-04-14 14:45:17 #36

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  9CS

  senior tag

  Mivel nem írtatok, hogy most pontosan, hogy is van ez kicsit próbálkoztam. De mivel béna vagyok és kezdő így fura dolgok lettek, mindenesetre érdemes lehet átnézni. Ötlet az van benne, csak csiszolni kell. No meg ugyis az a lényeg, hogy elkezdd valahogy aztán már menni fog :)
  
  
  Program Haromszograjzolasa;
  
  Uses Crt;
  var y,x : byte;
  o : char;
  
  procedure eztir;
  var i : byte;
  k : char;
  begin
  randomize;
  i:=random(222)+33;
  k:=chr(i);
  o:=k;
  end;
  
  procedure hovategyem;
  begin
  randomize;
  x:=random(80); {kepernyo meret karakteresen}
  y:=random(25); {ahova mehet a 3 szog}
  gotoxy(x,y);
  end;
  
  procedure mit;
  var h,i : byte;
  begin
  randomize;
  h:=random(9)+2; {max hossza a 3 szog alapjanak}
  repeat
  begin
  for i:=1 to h do
  write(o);
  end;
  h:=h-1;
  y:=y-1;
  gotoxy(x,y);
  until h=0;
  end;
  
  BEGIN;
  clrscr;
  eztir;
  hovategyem;
  mit;
  ReadKey;
  END.
  
  A gond ezzel, hogy ki-ki fut a képernyőböl, amit persze tuti meg lehet akadályozni (de ugye kezdő vagyok és béna is :D) ha ez meg lenne kész is :) Na jó még egy kis forgatást lehetne beletenni, de az (Nekem) igen nehéznek tünik. No meg ugye az is gond lehet, hogy ez Tildy ''feladatleírásához'' áll közelebb, ha kell vonal is köré az gáz...
  
  
  
  szerk: csunya gonosz RIOS3 motor :t hipp hopp eltünt a formázás...
  
  [Szerkesztve]

• #32 9CS senior tag tildy #29

  2004-04-14 13:10:52 #32

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  9CS

  senior tag

  válasz tildy #29 üzenetére

  Azt írja a Hugod, hogy: ''de a vonalak a széleken megtörtek'' , no ha pl. csak *-al ''rajzolod'' a háromszöget akkor nincsennek vonalak, nincs mi megtörjön.

Aktív témák