[ Outline ] · Standard · Linear+ Pomoc Oko Nula U Nizu [Pascal], pomagaj

[Magdalina_kg]

pomagajte na bloku sam
kako da smanjim niz ako imam vise nula da skratim na jednu

[maxydelanoche]

Da li je vec prosao blok? Nisi rekla u kom jeziku? Valjda sam dobro skontala zadatak. a je niz, n broj clanova, i brojac. Evo u ce tarabi:

CODE

for (int i=0; i<n-1; i++)
if (a[i]==0 && a[i+1]==0)
obrisi(a, i, ref n);

a tamo negde napises metodicu

CODE

void obrisi(int[] a, int index, ref int n)
{
    for (int i=index; i<n-1; i++)
         a[i]=a[i+1];
    n--;
}

Nisam testirala ovo, ali to je to... Doduse, verovatnije mi deluje da radis u Pascalu ili Delphiju ...

CODE

var
a: array of Integer;
i, j, n: integer;

begin
{uneses a i n}
for i:=0 to n-2
begin
    if a[i]=0 and a[i+1]=0 then
    begin
         for j:=0 to n-2
             a[i]=a[i+1];
         n:=n-1;
    end
end
end

A ne da sam davno radila u ovome neeego...
Ako hoces mogu ovo isto da napisem i u VB-u, Java#-u, c++-u...

This post has been edited by maxydelanoche: Feb 26 2008, 03:44 PM