Aktív témák

• #47 KovacsUr addikt Bally #46

  2004-04-14 21:30:08 #47

  Ö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

  

  KovacsUr

  addikt

  válasz Bally #46 üzenetére

  Ott van a főprogramban :U

• #44 KovacsUr addikt pardoc #43

  2004-04-14 21:21:33 #44

  Ö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

  

  KovacsUr

  addikt

  válasz pardoc #43 üzenetére

  Végigolvastad? :) Szöveges módban kellett megcsinálni.

• #41 KovacsUr addikt KovacsUr #40

  2004-04-14 19:24:22 #41

  Ö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

  

  KovacsUr

  addikt

  válasz KovacsUr #40 üzenetére

  Nem volt világos, hogy tényleg random karakter is kell-e, vagy az csak elírás volt :) Használjátok egészséggel

• #40 KovacsUr addikt

  2004-04-14 19:23:20 #40

  Ö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

  

  KovacsUr

  addikt

  Ez kb. azt csinálja, amit kell:
  
  
  program Kinti;
  
  uses Crt;
  
  var
    alap, magassag, x, y: Integer;
  
  procedure Koordinatak;
  { Itt kerjuk be vagy generaljuk a koordinatakat izles szerint }
  begin
    alap := Random(70)+1;
    magassag := random(20)+1;
    x := Random(79-alap) + 1;
    y := Random(24-magassag) + 1;
  end;
  
  procedure Kitoltes;
  { Itt toltjuk ki a haromszoget random karakterekkel }
  var i, j: Integer;
  begin
    for j := 0 to magassag-1 do begin
      for i := 0 to Round(alap*(j/magassag)) do begin
        GotoXY(x+i,y+j);
  {      Write('*');}
        Write(Char(Random(223)+33));
      end
    end
  end;
  
  begin
    TextMode(3);
    Randomize;
    ClrScr;
    Koordinatak;
    Kitoltes;
  end.

• #39 KovacsUr addikt

  2004-04-14 18:54:26 #39

  Ö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

  

  KovacsUr

  addikt

  No, megvan már? Mert akkor neki sem kezdek :)

• #34 KovacsUr addikt

  2004-04-14 14:34:58 #34

  Ö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

  

  KovacsUr

  addikt

  Tényleg szöveges módban kell rajzolni háromszöget? :F Bizotsan nem értettetek félre valamit? Ez így mindenképp nagyon csúnya lesz, a tanár fantáziája viszont dicsérendő :DDD Most mennem kell matek gyakra, de ha estig nem hozzátok össze, segítek összedobni valamit :)

Aktív témák