[ THE_BRAIN @ 01.12.2009. 15:32 ] @
za pocetak neki lak zadatak
unosi se n brojeva treba odrediti aritmeticku sredinu deljivih sa 3.
laganica. sa mod, for,sqrt.
[ anon68680 @ 01.12.2009. 15:42 ] @
Zar stvarno ocekujes da ti neko odradi zadatak bez da se ti namucis sam?
[ bojan21 @ 01.12.2009. 18:51 ] @
Zanimljivo, a sta ce ti sqrt? Za aritmeticku sredinu?
[ THE_BRAIN @ 02.12.2009. 12:45 ] @
Citat:
bojan21: Zanimljivo, a sta ce ti sqrt? Za aritmeticku sredinu?:D :D
tu sam pogresio hteo sam da kazem sa 2. :D
Citat:
krza: Zar stvarno ocekujes da ti neko odradi zadatak bez da se ti namucis sam?
???? ovo je lak zadatak jos sam naveo koje funkcije treba vrsiti.
[ THE_BRAIN @ 02.12.2009. 12:57 ] @
jaoooo!!!! sutra imam kontrolni i ovaj zadatak (priznajem) ne znam:
napisati program koji izracunava zbir: 1-1/2+1/3-1/4+....1/n.
[ anon68680 @ 02.12.2009. 17:07 ] @
Citat:
tu sam pogresio hteo sam da kazem sa 2. :D


Poslednji put kad sam proverio, aritmeticka sredina se izracunava: zbir cifara podeljeno sa brojem cifara. Tvoj broj cifara je n, ne 2.

Citat:
???? ovo je lak zadatak jos sam naveo koje funkcije treba vrsiti.


Koliko ja vidim, ti pokusavas na fazon 'ajde da vidim znate li ovo' da nas nateras da ti uradimo neke skolske zadatake. Jako ruzno i glupo sa tvoje strane. Ljudi ovde mogu da te savetuju, i objasne ti kako da uradis nesto, ali da ti urade ceo zadatak bilo bi samo kontraproduktivno.


[Ovu poruku je menjao krza dana 02.12.2009. u 18:30 GMT+1]
[ captPicard @ 02.12.2009. 21:31 ] @
Evo ti

1-1/2+1/3-1/4+....1/n.

Code:
Dim a, b as realni_broj
var c, d kao INTEGER
n:= nekibroj

Procedura_START
  a = 1
  b := 2; 
  c is 3 
  d is:= 4

  PitajMe('Koliko je n?');
  UnesiN

     Racunaj_ :=
         a-a/b+a/c-a/d+.....1/n

PišiNaEkran: "Rezultat je: " Racunaj_-->REZULTAT


Lukav si ti prijatelju,. Drugi put lijepo reci:

E ljudi, ja sam lijen, ne da mi se ovo rješavati, a znam da ovdje ima luđaka koji će mi ovo rješiti pa šta da se ja mučim kada možete vi. Rješite mi ovo.

[ THE_BRAIN @ 18.01.2010. 20:32 ] @
Citat:
captPicard: Evo ti

1-1/2+1/3-1/4+....1/n.

Code:
Dim a, b as realni_broj
var c, d kao INTEGER
n:= nekibroj

Procedura_START
  a = 1
  b := 2; 
  c is 3 
  d is:= 4

  PitajMe('Koliko je n?');
  UnesiN

     Racunaj_ :=
         a-a/b+a/c-a/d+.....1/n

PišiNaEkran: "Rezultat je: " Racunaj_-->REZULTAT


Lukav si ti prijatelju,. Drugi put lijepo reci:

E ljudi, ja sam lijen, ne da mi se ovo rješavati, a znam da ovdje ima luđaka koji će mi ovo rješiti pa šta da se ja mučim kada možete vi. Rješite mi ovo.
e znate sta? iskulirajte bree sto ste vi mnogo osetljivi! vama i da kazem hvala vi biste imali primedbu! ima mnogo kriticara ovih dana a najgori su oni koji vise po ceo dan po nekim forumima! zar nije dobro preko for cikusa mnogo je bolje: Code:
Program dd;
var i,n,s:real;
begin
readln(n);
s:=0;
for i:=1 to n do
begin
if i mod 2:=0 do
s:=s-1/i else
s:=s+1/i;
end;
readln(s);
end.

ETO LJUDI KAO STO VIDITE ZNAM ZADATAK!!
[ Nikola Janković @ 21.01.2010. 13:58 ] @
Nemojte da zezate čoveka, ne radi se tako programiranje na nivou trećeg razreda srednje škole...
Provaliće profesor.

Citat:
THE_BRAIN: za pocetak neki lak zadatak
unosi se n brojeva treba odrediti aritmeticku sredinu deljivih sa 3.
laganica. sa mod, for,sqrt. :D


Code:

PROGRAM ARS;
   VAR 
      I,S,C,BR:INTEGER;
      ARS:REAL;
   BEGIN
      S:=0;
      ARS:=1;
      BR:=0;
      WRITE('ZA KOLIKO BROJEVA HOCES DA IZRACUNAS PROSEK: ');
      READLN(N);
      FOR I:= 1 TO N DO
         WRITE('UNESI', I,' CLAN NIZA: ');
         READLN(C);
         IF C MOD 3 = 0 THEN 
               BEGIN
                  BR:=BR+1;
                  S:=S+C;
               END;
      ARS:=S/BR;
      WRITE('ARITMETICKA SREDINA UNETIH BROJEVA JE: ',ARS:5:2);
      READLN
   END.




Citat:
THE_BRAIN: jaoooo!!!! sutra imam kontrolni i ovaj zadatak (priznajem) ne znam:
napisati program koji izracunava zbir: 1-1/2+1/3-1/4+....1/n.
:(


Code:
PROGRAM ASDFG;
   VAR
      S,ZNAK,N,I:INTEGER;
   BEGIN
      S:=0,
      ZNAK:=1;
      WRITE('UNESI KRAJNJU CIFRU N: ');
      READLN(N);
      FOR I:= 1 TO N DO
         BEGIN
            S:=S+ZNAK*1/I;
            ZNAK:=-ZNAK;
      WRITE('REZULTAT JE: ',S:5);
      READLN
   END.


Nisam stigao da proverim, ali mislim da će da radi.
[ THE_BRAIN @ 25.01.2010. 17:48 ] @
hvala ti
[ Nikolavlasotince @ 30.01.2010. 00:29 ] @
S ne moze da bude tipa integer jer je realan broj... a i fali ti jedan end; ispod znak:=-znak;
[ Nikola Janković @ 13.02.2010. 20:19 ] @
Citat:
Nikolavlasotince: S ne moze da bude tipa integer jer je realan broj... a i fali ti jedan end; ispod znak:=-znak;


U pravu si.

Kao što rekoh, nisam stigao da proverim.
[ THE_BRAIN @ 24.02.2010. 18:11 ] @
unose se 2 intervala a odredjuje se da li ima prostih brojeva izmedju njih ako ima ispisuje ih.