zadaci iz paskala

zadaci iz paskala 01.12.2009. u 16:32 · pre 205 meseci #1

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

Re: zadaci iz paskala 01.12.2009. u 16:42 · pre 205 meseci #2

Zar stvarno ocekujes da ti neko odradi zadatak bez da se ti namucis sam?

Re: zadaci iz paskala 01.12.2009. u 19:51 · pre 205 meseci #3

Zanimljivo, a sta ce ti sqrt? Za aritmeticku sredinu?

Re: zadaci iz paskala 02.12.2009. u 13:45 · pre 205 meseci #4

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.

Re: zadaci iz paskala 02.12.2009. u 13:57 · pre 205 meseci #5

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

Re: zadaci iz paskala 02.12.2009. u 18:07 · pre 205 meseci #6

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.

Re: zadaci iz paskala 02.12.2009. u 22:31 · pre 205 meseci #7

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.

Potpis

F

Re: zadaci iz paskala 18.01.2010. u 21:32 · pre 204 meseca #8

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!!

Re: zadaci iz paskala 21.01.2010. u 14:58 · pre 204 meseca #9

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.

Potpis

Budi pošten, uporan i vredan
i sto posto završićeš bedan.

Re: zadaci iz paskala 25.01.2010. u 18:48 · pre 204 meseca #10

hvala ti

Re: zadaci iz paskala 30.01.2010. u 01:29 · pre 203 meseca #11

S ne moze da bude tipa integer jer je realan broj... a i fali ti jedan end; ispod znak:=-znak;

Re: zadaci iz paskala 13.02.2010. u 21:19 · pre 203 meseca #12

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.

Potpis

Budi pošten, uporan i vredan
i sto posto završićeš bedan.

Sledeci zadatak aaaaaaaa 24.02.2010. u 19:11 · pre 203 meseca #13

unose se 2 intervala a odredjuje se da li ima prostih brojeva izmedju njih ako ima ispisuje ih.

Forum kao aplikacija na telefonu

Srodne teme