Új hozzászólás Aktív témák

• #1079 Lortech addikt Darth_Revan #1078

  Új Válasz 2006-04-03 12:10:07 #1079

  Új hozzászólás

  Ö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

  

  Lortech

  addikt

  válasz Darth_Revan #1078 üzenetére

  Súgóóó, ctrl-f1-et nyomjál, mikor a pieslice- on van a szöveges kurzor.
  Fejből nem tudom, de gondolom hasonló, mint az arc: kp, r, szögek, setfillstyle-ban meg a szín+minta.
  
  [Szerkesztve]

• #1077 Lortech addikt Darth_Revan #1076

  Új Válasz 2006-04-03 11:27:44 #1077

  Új hozzászólás

  Ö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

  

  Lortech

  addikt

  válasz Darth_Revan #1076 üzenetére

  PieSlice-szal rajzolod a 4 körcikket, SetFillStyle-lal változtatva a kitöltés színét, mondjuk egy repeat ciklusban, aminek kilépési feltétele a ''keypressed''. Néhány sor az egész.

• #876 c4-eXp aktív tag Darth_Revan #875

  Új Válasz 2005-12-25 22:20:46 #876

  Új hozzászólás

  Ö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

  

  c4-eXp

  aktív tag

  válasz Darth_Revan #875 üzenetére

  Nincs mit. Természetesen a matrix_feltoltese helyére még be kell írni valami kódot, ami feltölti a mátrixot. Pl.:
  

  randomize;
  for i:=1 to n do
    for j:=1 to m do
      matrix[i,j]:=random(100);

  
  
  Na ez így elvileg jó.

• #848 c4-eXp aktív tag Darth_Revan #847

  Új Válasz 2005-12-12 19:29:34 #848

  Új hozzászólás

  Ö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

  

  c4-eXp

  aktív tag

  válasz Darth_Revan #847 üzenetére

   

  program valami;
  uses crt;
  const n=valamennyi, m=valamennyi, l=valamennyi;
  var matrix  : array[1..n,1..m] of integer;
      i, osszeg : integer;
  begin
    osszeg:=0;
    matrix_feltoltese;
    for i:=1 to n do 
      osszeg:=osszeg+matrix[i,l];
    writeln(osszeg);
    readln;
  end.

  
  
  Jó régen pascaloztam már, de asszem valahogy így lesz.

• #776 Diskcopy tag Darth_Revan #774

  Új Válasz 2005-11-22 07:33:27 #776

  Új hozzászólás

  Ö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

  

  Diskcopy

  tag

  válasz Darth_Revan #774 üzenetére

  hi!
  Uses crt;
  var st : string;
  hossz: string;
  begin
  clrscr;
  Writeln('Kérem a szöveget:');Readln(st);
  Delete(st,round(length(st)/2),1);
  Str(length(st),hossz);
  st:=Concat(st,hossz);
  writeln(st);
  end.
  
  (Nem csak 20 karakterre jó, bármennyire)
  
  
  [Szerkesztve]

• #775 b14 senior tag Darth_Revan #774

  Új Válasz 2005-11-22 07:09:06 #775

  Új hozzászólás

  Ö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

  

  b14

  senior tag

  válasz Darth_Revan #774 üzenetére

  Középső karakter?
  Az hanyadik?

• #602 VladimirR nagyúr Darth_Revan #599

  Új Válasz 2005-02-04 18:28:39 #602

  Új hozzászólás

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

  

  VladimirR

  nagyúr

  válasz Darth_Revan #599 üzenetére

  valami olyasmi kell neked, hogy egy tombbe felveszed a cimleteket (20 000, 10 000, 5 000, 2 000, 1 000, 500, 200, 100, 50, 20, 10, 5, 2, 1), meg van egy masik tomb, amiben azt szamolod, hogy az adott cimletekbol mennyi kell, aztan bekered a szamot
  ezutan van egy hatultesztelo ciklusod, ami azt nezi., hogy a szam mikor lesz nulla (ekkor kilep belole), ezen belul pedig egy eloltesztelo (belepesi feltetel: az input szambol megmaradt resz, nagyobb, mint az aktualis cimlet), ami az adott cimlettel csokkenti az input szamot, es felir egy darabot az aktualis cimlethez
  ehhez az kell, hogy van egy valtozod, ami azt mutatja, hogy epp melyik cimletrol van szo (ennek megfeleloen vonsz le a belso ciklusban az input szambol, s ez alapjan irsz fel 1-1 darabot az eppen aktualis cimlethez), ezt a belso cillusbol valo kilepes (vagy bele sem lepes) utan noveled egyel
  ha vege a kulso ciklusnak (vagyis kileptel belole), akkor a ket tombnek megfeleloen ki tudod iratni, hogy mely cimletekbol mennyi szukseges -- ha gondolod leirom az algoritmust es programot is szivesen, de inkabb ez alajan probald meg magad elkesziteni

• #597 b14 senior tag Darth_Revan #596

  Új Válasz 2005-01-31 21:27:34 #597

  Új hozzászólás

  Ö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

  

  b14

  senior tag

  válasz Darth_Revan #596 üzenetére

  1. osztály, de régen volt: 1234: egy darab eezreees, két daraaab szááázas, háárooom daraaaab tííízes és nééégy daraab eeegyees. Legabááis mi igy tanultuk annak idején.
  
  Ha valaki megírja helyetted, akkor sose tudsz majd progzani, de ha segítséget kérsz, akkor szívesen segít bárki (szerintem), ha megíros, az a legjobb, és ha sok benne továbbra is a hiba, akkor ki fogja valaki neked javítani.
  Mondhatod, hogy egy nagy hülye vagyok, de ez a tapasztalat (már amennyi van), merő jó szándélkból mondtam ezt.
  Na és most megírom.
  
  Szerk: ha meguntad a próbálkozást, akkor ide is berakom a progit.
  
  [Szerkesztve]

• #45 Keitaro addikt Darth_Revan #42

  Új Válasz 2003-11-25 20:57:46 #45

  Új hozzászólás

  Ö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

  

  Keitaro

  addikt

  válasz Darth_Revan #42 üzenetére

  Nézd meg a TextColor és TextBackground parancsokat kezdetnek. Kép beszúrása húzósabb

Új hozzászólás Aktív témák