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

Moze li mi neko objasniti ovaj zadatak

[es] :: Pascal / Delphi / Kylix :: Moze li mi neko objasniti ovaj zadatak

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

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

nermin delic
nermin delic
ucenik

Član broj: 200745
Poruke: 1
91.191.62.*



Profil

icon Moze li mi neko objasniti ovaj zadatak29.11.2008. u 17:00 - pre 156 meseci
program permp (input,output);
type niz = array [1..20] of char;
var a, ta : niz;
p: array [1..20] of Boolean;
j,n,b: integer;
odg: Boolean;
odgt: char;

procedure stampa;
var i:integer;
begin
b:=b+1;
if odg then
begin
for i:=1 to n do
write(ta);
writeln;
end;
end;

procedure perm(i,m: integer);
var j,k: integer;
begin
if i<=n then
begin
k:=1;
if i>1 then if a=a[i-1] then k:=m;
for j:=k to n do
begin
if p[j] then begin
ta[j]:=a;
p[j]:=false;
perm(i+1,j+1);
p[j]:=true;
end
end
end
else
stampa
end;

begin
write ('Koliko elemenata: ');
readln (n);
write ('Unesite elemente tako da oni');
writeln ('koji se ponavljaju budu sukcesivni');
b:=0;
for j:=1 to n do
begin
readln(a[j]);
p[j]:=true
end;
write ('Zelite li ispis? ');
readln (odgt);
odg:= not ((odgt='N') or (odgt='n'));
perm(1,1);
writeln ('Ukupno: ', b);
end.

 
Odgovor na temu

reiser

Član broj: 7895
Poruke: 2314



+102 Profil

icon Re: Moze li mi neko objasniti ovaj zadatak29.11.2008. u 17:32 - pre 156 meseci
Ne mozemo.
 
Odgovor na temu

sasaz2008

Član broj: 200415
Poruke: 204
*.vdial.verat.net.



+4 Profil

icon Re: Moze li mi neko objasniti ovaj zadatak29.11.2008. u 18:05 - pre 156 meseci
Pravilnik foruma :
"
6. Ne tražite da Vam neko radi domaći zadatak
Ne očekujte da bilo ko obavezno odradi sav posao umesto Vas!
,,,"

Ukoliko je poznata mat. osnova, napraviti program je zaista trivijalno. Ukoliko se sam ne potrudiš, uvek ćeš zavisiti od pomoći drugih, a tako se zaista nikada ništa ni ne može naučiti. Za učenika je najbitnije poznavanje osnove, a zatim i upornost pri samostalnom rešavanju problema/zadatka.
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Moze li mi neko objasniti ovaj zadatak

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

Postavi temu Odgovori

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