Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Zadatak, Pascal pomoć!!!!

[es] :: Pascal / Delphi / Kylix :: Zadatak, Pascal pomoć!!!!

[ Pregleda: 5591 | Odgovora: 6 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

Marko Lukanec

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



Profil

icon Zadatak, Pascal pomoć!!!!03.03.2005. u 06:45 - pre 202 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

icon Re: Zadatak, Pascal pomoć!!!!03.03.2005. u 07:13 - pre 202 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

icon Re: Zadatak, Pascal pomoć!!!!03.03.2005. u 10:20 - pre 202 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

icon Re: Zadatak, Pascal pomoć!!!!03.03.2005. u 10:59 - pre 202 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

icon Re: Zadatak, Pascal pomoć!!!!03.03.2005. u 21:39 - pre 202 meseci
Ok. Puno hvala, nisi zakasnio!!!
 
Odgovor na temu

Marko Lukanec

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



Profil

icon Re: Zadatak, Pascal pomoć!!!!03.03.2005. u 21:51 - pre 202 meseci
E samo, zašto mi javlja u ovom djelu 'read error'???

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

alen55
Alen Nikolic

Član broj: 50441
Poruke: 1
*.etf.bg.ac.yu.



Profil

icon Re: Zadatak, Pascal pomoć!!!!03.03.2005. u 21:58 - pre 202 meseci
probaj da stavis "." na kraju programa
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Zadatak, Pascal pomoć!!!!

[ Pregleda: 5591 | Odgovora: 6 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.