[es] - Zadatak, Pascal pomoć!!!!

Marko Lukanec

Član broj: 43176
Poruke: 57
*.cmu.carnet.hr.

Profil

^{03.03.2005. u 06:45 - pre 233 meseci}

Bi mi tko htio rješiti ovaj zadatak, please hitno treba mi u roku od 1 i pol sat, please
ovako: Stvorena je datoteka pozitivnih realnih brojeva (podaci:file of REAL;) pod imenom 'podatak.dat'.
a) Ispisati aritmetičku sredinu brojeva
b) Ispisati geometrijsku sredinu brojeva
c) Ispisati harmonijsku sredinu brojeva
d) Ispisati najveći i najmanji broj u datoteci
e) Ispisati zbroj decimalnih dijelova brojeva

Please, molim pomoć!!!

Odgovor na temu

Marko Lukanec

Član broj: 43176
Poruke: 57
*.cmu.carnet.hr.

Profil

Re: Zadatak, Pascal pomoć!!!!

^{03.03.2005. u 07:13 - pre 233 meseci}

No haajde probudite se,
zar nitko nezna riješiti ovaj zadatak!!!

Odgovor na temu

IgLo
Igor Lovric
Sremski Karlovci

Član broj: 19524
Poruke: 129
*.neobee.net.

Sajt: www.unicornsoft.net

Profil

Re: Zadatak, Pascal pomoć!!!!

^{03.03.2005. u 10:20 - pre 233 meseci}

Verovatno sam zakasnio, ali sta da radim, pre pola sata sam se probudio :) Evo resenja:

Code:

Var
  F : File Of Real;
  R,
  Min,
  Max,
  Ari,
  Geo,
  Sum,
  Har : Real;

  Count : Integer;

begin
  Assign (F, 'podatak.dat');
  {$I-} Reset (F); {$I+}
  If IOResult <> 0 Then
      WriteLn ('Ne mogu da otvorim fajl podatak.dat!')
  Else
    Begin
      Read (F, R);
      Min := R;
      Max := R;
      Ari := R;
      Geo := R;
      Har := 1/R;
      Count := 1;
      Sum := R - Trunc (R);
      While Not Eof (F) Do
        Begin
          Read (F, R);
          If R < Min Then Min := R;
          If R > Max Then Max := R;
          Ari := Ari + R;
          Inc (Count);
          Sum := Sum + (R - Trunc (R));
          Geo := Geo * r;
          Har := Har + 1/R;
        End;
      Close (F);
      Ari := Ari / Count;
      Geo := exp (1/Count * ln(Geo));
      Har := Count /Har;
      WriteLn ('Minimalni element: ', Min);
      WriteLn ('Maksimalni element: ', Max);
      WriteLn ('Aritmeticka sredina: ', Ari);
      WriteLn ('Geometrijska sredina: ', Geo);
      WriteLn ('Harmonijska sredina: ', Har);
      WriteLn ('Suma decimala: ', Sum);
    End;
end.

Odgovor na temu

sasas
Saša Slavnić
radim za neke švabe

Član broj: 35478
Poruke: 617
*.zaslon-telecom.si.

Profil

Re: Zadatak, Pascal pomoć!!!!

^{03.03.2005. u 10:59 - pre 233 meseci}

Ma zakasnio si, kontrolni je već prošao

ss.

When something is hard to do, then it's not worth doing.

Odgovor na temu

Marko Lukanec

Član broj: 43176
Poruke: 57
*.cmu.carnet.hr.

Profil

Re: Zadatak, Pascal pomoć!!!!

^{03.03.2005. u 21:39 - pre 233 meseci}

Ok. Puno hvala, nisi zakasnio!!!

Odgovor na temu

Marko Lukanec

Član broj: 43176
Poruke: 57
*.cmu.carnet.hr.

Profil

Re: Zadatak, Pascal pomoć!!!!

^{03.03.2005. u 21:51 - pre 233 meseci}

E samo, zašto mi javlja u ovom djelu 'read error'???

Else
Begin
Read (F, R);
Min := R;

Odgovor na temu