Pomoć oko zadatka iz paskala...nece,pa nece...

Pomoć oko zadatka iz paskala...nece,pa nece... 25.03.2010. u 21:02 · pre 201 meseci #1

Naći prvi član niza od najviše sto elemenata,za koga je ispunjen uslov
$Ia[i] - a[i-1]I < gr$ , (ovo I predstavlja apsolutnu vrednost,nisam znao kako ide kod u TeX-u xD)
ako se niz formira po pravilu:
$a[i]= \frac{n} {\sqrt{ i^2 - 1 } + \sqrt{ i^2 + 1 }}$ ....

Nešto mi ne valja xD!Poludeću,pomagajte xD!Posle unosa granice i broja elemenata zatvori mi konzolu i izbaci error ''Exited with exitcode = 201'' ....ne mogu izvalim šta ne valja....

Code:
program p1;

  var a:array[1..100] of real;
      br,i,n,pbr:integer;
      im1,im2,im11,im22,im,abs,gr:real;

begin
    write ('Unesi granicu '); readln (gr);
    repeat
        write ('Unesi broj elemenata niza ');
        readln (n);
        if (n<=0) or (n>100) then writeln ('Pogrsan unos!');
        until (n>0) and (n<=100);
    br:=0;
    pbr:=0;

        for i:=1 to n do
          begin
            im1:=sqr(i)-1;
            im11:=sqrt(im1);
            im2:=sqr(i)+1;
            im22:=sqrt(im2);
            im:=im11+im22;
            a[i]:=i/im;
          end;

       for i:=1 to n do
          begin
            br:=i-1;
            abs:=a[i]-a[br];
            if (abs<0) then abs:=abs*(-1);
            if (abs<gr) then
               begin
                 pbr:=pbr+1;
                 writeln ('Prvi clan za koji je ispunjen KRETENSKI uslov je ',a[i]);
               end;
          end;
    if (pbr=0) then writeln ('Nema takvog clana koji ispunjava KRETENSKI uslov!');

readln
end.

Re: Pomoć oko zadatka iz paskala...nece,pa nece... 25.03.2010. u 21:04 · pre 201 meseci #2

Ups,greška...ne mogu edit na prvom postu,obrisaće se tema....

Niz se formira po pravilu $a[i]= \frac{i} {\sqrt{ i^2 - 1 } + \sqrt{ i^2 + 1 }}$

Re: Pomoć oko zadatka iz paskala...nece,pa nece... 25.03.2010. u 21:56 · pre 201 meseci #3

Code:

for i:=1 to n do
          begin
            br:=i-1;
            abs:=a[i]-a[br];
       .
       .
       .

Mislim da je ovde greska.
Ti stavis da je i na pocetku 1, i onda dodeljujes promenljivoj br vrednost i-1, tako da ce prvi put da br ima vrednost 0 kad ga upotrebis za indeksiranje, a niz moze imati indekse od 1 pa na gore...

probaj ovako:

Code:

for i:=2 to n do
          begin
            br:=i-1;
            abs:=a[i]-a[br];
       .
       .
       .

Pozdrav

Re: Pomoć oko zadatka iz paskala...nece,pa nece... 25.03.2010. u 22:16 · pre 201 meseci #4

Da i ja sam razmišljao o tome,ali zar ne bi trebalo samo da ga ne uračunava u tom slučaju?A i ako stavim da i bude 2 onda mi se menja indeks elementa a,pa bi tu propustio čitav jedan element,a moram da uradim što opštije....za'ebano xD...
E sad,ja koristim free pascal,može biti i da je do toga.Dešavalo mi se da neka naprednija verzija bez problema pokrene neke programe koje on neće :S....može li neko da oproba u Delphi-ju u Console app ili nekom naprednijem paskalu?

Re: Pomoć oko zadatka iz paskala...nece,pa nece... 26.03.2010. u 08:06 · pre 201 meseci #5

Nije do verzije paskala, u paskalu kad izadjes iz opsega indeksa program pukne.
Ti trebas da proveravas ovaj uslov:
$|a[i]-a[i-1]|<gr$

S tim da su ti i a[ i ] i a[ i-1 ] elementi niza.

A posto u zadatku pravis niz od 1 do n, nema smisla da onda proveravas prvi element minus neki nepostojeci element kojeg nisi ni racunao.
Kako da oduzmes od prvog elementa niza prethodni kad je on prvi, samim tim znaci da nema nijedan pre njega. :)
U ovakvim slucajevima mora da se krene od drugog elementa da bi taj element imao prethodnika od kojeg mozes da oduzimas, tako da nemoj da brines sto se toga tice. :)

Re: Pomoć oko zadatka iz paskala...nece,pa nece... 26.03.2010. u 09:12 · pre 201 meseci #6

Imaš pravo,ali ja svakako moram da pokrijem slučaj kada je $|a[i-1]| = 0$ , tj $|a[i]|<gr$ ...mogu da napišem novu naredbu pre ciklusa koja ce elementu a[1] dodeliti određenu vrednost,proveriti da li ispunjava uslov i tek onda da otvorim ciklus koji počinje indeksom 2.Čini mi se da bi to bilo ok,ali ja bih voleo da to mogu da pokrijem jednim izrazom xD...

Jedno pitanje...ima li funckija u Paskalu za apsolutnu vrednost?Pretpostavljam da je nešto ''abs'' ,ali me mrzelo da proveravam,pa sam pokrio to sa if-om xD....

Re: Pomoć oko zadatka iz paskala...nece,pa nece... 26.03.2010. u 12:09 · pre 201 meseci #7

Ima, f-ja je bas abs.
Pa sve zavisi kako je zadan zadatak.
Posto se u zadatku trazi da se elementi niza formiraju kao

$a[i]= \frac{i} {\sqrt{ i^2 - 1 } + \sqrt{ i^2 + 1 }}$

E sad, sve zavisi u kom intervalu je zadato to i, da li je i u intervalu [0,n] ili u intervalu [1,n].

Ako je i u intervalu [1,n] onda radis kako si vec uradio i samo u drugoj petlji krenes od 2 do n.

A ako je i u intervalu [0,n] onda radi ovako:

Code:

a[1]:=0;

for i:=2 to n do
          begin
            im1:=sqr(i-1)-1;
            im11:=sqrt(im1);
            im2:=sqr(i-1)+1;
            im22:=sqrt(im2);
            im:=im11+im22;
            a[i]:=(i-1)/im;
          end;

Znaci u prvi element upises 0, a od drugog radis po starom algoritmu tako sto ono sto ti se nalazilo u prvom elementu kod starog algoritma sad se nalazi u drugom i tako redom, svaki element je pomeren za po jedno mesto unapred.

Mislm da ne moze drugacije. :)
Sve zavisi koji je interval promenljive i u izrazu.
Pozdrav

Re: Pomoć oko zadatka iz paskala...nece,pa nece... 26.03.2010. u 21:13 · pre 201 meseci #8

Mislim da sam došao do rešenja :D!Piskarao sam nešto na izrazito dosadnim časovima logike,mislim da bi trebalo da radi....Bazira se na potpuno drugačijem mišljenju xD.Kad ga iskucam okačiću...ako ne bude radio uradiću kako ti kažeš...

Re: Pomoć oko zadatka iz paskala...nece,pa nece... 27.03.2010. u 21:59 · pre 201 meseci #9

Evo napisao sam...radi :D.Obrnuo sam sve iz početka,pokušao da nađem drugi način za rešavanje problema i evo :D....je l' vam se čini uredu?

Code:
program p1;

   var a:array[1..100] of real;
   n,i1,i2:integer;
   gr,us:real;

begin

   write ('Unesi granicu --> ');
   readln (gr);
   repeat
      write ('Unesi broj elemenata --> ');
      readln (n);
         if (n<=0) or (n>100) then writeln ('Pogresan unos!')
   until (n>0) and (n<=100);

   for i1:=1 to n do
      a[i1]:=i1/(sqrt(sqr(i1)-1) + sqrt(sqr(i1)+1));

   us:=abs(a[1]);
   if (us<gr) then writeln ('Pri clan koji ispunjava KRETENSKI uslov je ',a[1]:7:2)
      else begin
          i1:=2;
          repeat
             i2:=i1-1;
             us:=abs(a[i1]-a[i2]);
             i1:=i1+1
          until (us<gr) or (i1>100);

          if (i1>100) then writeln ('Nijedan ne ispunjava KRETENSKI uslov!')
             else writeln ('Pri clan koji ispunjava KRETENSKI uslov je ',a[i1]:7:2);
      end;
readln
end.

Re: Pomoć oko zadatka iz paskala...nece,pa nece... 28.03.2010. u 00:42 · pre 201 meseci #10

U sustini i nisi mnogo menjao pristup, u drugoj petlji si na kraju ipak krenuo od drugog elementa, samo si ubacio pre toga proveru prvog elementa. Bitno je da zadovoljava uslov zadatka. :) A i deluje ok.

Re: Pomoć oko zadatka iz paskala...nece,pa nece... 28.03.2010. u 17:13 · pre 201 meseci #11

Pa svakako da nisam nešto bitno menjao,msm ne mogu bog zna kako da ga drugačije rešim,ali snašao sam se :D....Hvala svima na pomoći :)!

Srodne teme