Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Ko uradi dobija cd ...

[es] :: Pascal / Delphi / Kylix :: Ko uradi dobija cd ...

[ Pregleda: 3190 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

shketuljko
Vedran Martinovic
Institut za javno zdravlje Srbije „Dr
Milan Jovanović Batut”
Beograd

Član broj: 1370
Poruke: 43
195.66.174.*

Sajt: www.besplatnioglasi.rs


Profil

icon Ko uradi dobija cd ...19.11.2001. u 20:30 - pre 253 meseci
ZADATAK SE MORA URADITI U PASCALU !!!!!!!!

E ovako ide jedan zadacic da vidju ko umij da rijesi
Napisati program koji ucitava prirodne brojeve n i k i stampa sve nizove duzine k od brojeva 1,...,n u leksikografskom poredku.
Primjer: za ucitane k=2 i n=3 stampa sledece:
11
12
13
21
22
23
31
32
33

Ili za ucitane n=3 i k=3 stampa

111
112
113
121
122
123
131
132
133
211
212
213
221
222
223
231
232
233
311
312
313
321
322
323
331
332
333

Ajde programeri da ve vidju ....
Ako ko uradi neka mi poslaje na mail [email protected]
Naravno ko uradi dobija mp3 Cd po izboru iz kataloga ...

------------------
Volio bih da si tu,
ove noci tako trebas mi
pustaju neku dragu muziku
moje misli tebi putuju ...
Vedran Martinovic
www.besplatnioglasi.rs
 
Odgovor na temu

Toni
Dorćol, Beograd

Član broj: 15
Poruke: 654
*.verat.net

Jabber: toni@elitesecurity.org
ICQ: 16451419
Sajt: egoideas.com


Profil

icon Re: Ko uradi dobija cd ...20.11.2001. u 06:19 - pre 253 meseci
nemoj da mu je neko uradio :)
sram te bilo zavrshio si matematichku i to neznash ;)
Jel potpis treba pisanim ili štampanim slovima?
_________________________________________
dizajnzona.com
netizenfaction.com
egoideas.com
levodesno.com
 
Odgovor na temu

Riste Pejov
Team Leader/Senior Software Developer @
Ein-Sof ltd Skopje
Skopje, Macedonia

Član broj: 128
Poruke: 571
212.110.78.*

Jabber: richie@bagra.net.mk
ICQ: 154236769
Sajt: riste.softver.org.mk


Profil

icon pokloni CD svojoj djevojci sa komplimentima iz skoplja :)26.11.2001. u 11:08 - pre 253 meseci
Code:

program Project1;
{$APPTYPE CONSOLE}
uses SysUtils;
var
  n,k:integer;
function checkcif(Ulaz:integer):integer;
var
  count:integer;
begin
  count:=1;
  while (Ulaz div 10)>0 do
    begin
     Ulaz:=Ulaz div 10;
     inc(count);
    end;
  checkcif:=count;
end;
function recur(Produzetak,brojCifra,Duzina:integer):boolean;
var
  Cif,toPrint,i,j,p:integer;
begin
cif:=checkcif(produzetak);
if cif<>BrojCifra then
  begin
    for j:=0 to (Duzina-1) do
    begin
      p:=((Produzetak+j)*10)+1;
      recur(p,BrojCifra,Duzina);
      if (cif+1)=BrojCifra then
        begin
          for i:=1 to Duzina do
          begin
          toPrint:=((Produzetak+j)*10)+i;
          writeln(toPrint);
          end;
        end
    end
  end
end;
begin
  readln(k);
  readln(n);
  recur(1,k,n);
  readln;
end.



normalno ovo je delphi code ... samo skini ova dva reda:

{$APPTYPE CONSOLE}
uses SysUtils;

i program radi i u paskalu

Elapsed time 13 min
btw ... ne isplati ti se da mi shaljes CD .... ko ce ti platiti poshtarinu za Makedonije

People who think they know everything tend to irritate those of us who do.
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Ko uradi dobija cd ...

[ Pregleda: 3190 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.