10 skaitļu masīva vidējā aritmētiskā aprēķināšana.

[Dundurs]

Labs rīts forumieši, tā nu ir sanācis, ka ir vajadzīga neliela jūsu palīdzība. Ar pascal un programmēšanu vispār esmu uz Jūs, tomēr ir nepieciešams izveidod programmu pascalā, kura no 10 skaitļu masīva izrēķina vidējo aritmētisko vērtību. Ir kādas idejas, es te kaut ko mēģināju darīt, bet bez lieliem panākumiem.

 

uses CTR
var i , N: integer;
var summa, videjais: real;
A:array [1..10] of integer;

begin
     N:10;
     for i:=1 to N do
     begin
          A[i]:=random(100);
     end;
     ClrScr;
     for i:=1 to N do
     begin
          write('a[i]=',A[i]);
     end;
         summa:=0
         for i:=1 to N do

     begin
          summa:=summa+A[i];
     end;
     videjais:=summa/N;
     Writenl('Videjais aritmetiskais:',videjais);
     Readln;
end.

Labots Novembris 27, 2009 - paulis
kodu liekam code tagos

[badrap]

Kas tev tieši te neiet? Kods izskatās pareizs.

[Sherlock]

Ja nemaldos ClrScr; bez CRT bibliotēkas nestrādās. (Ptfu, toč CTR o.O)

 

Nezin gan kāpēc tik īsai programmai vajadzīgs tāds klīrskrīns.

Labots Novembris 27, 2009 - Sherlock

[gathis]

ja neskaita gramatiskās kļūdas komandām un trūkstošos semikolus, tad tikai jāizmaina N := 10 nevis N=10 un viss strādā.

 

pie real var pieskaitīt integer, tas strādā, otrādi gan nevar.

[Dundurs]

It kā jau programma darbojas, bet ne tā kā vajag. Varbūt kāds zina, kur iegādāties grāmatu latv.val par pascal? Cik esmu dzirdējis tāda esot.

[joptv]

http://www.liis.lv/nps/nps-0.html

 

google arī ir viskaut kas latviski pieejams.

[Dundurs]

Pašreiz iskatās šādi:

[Azazel]

uses CRT;
var i , N: integer;
var summa, videjais: real;
A:array [1..10] of integer;

begin
     ClrScr;
     N:=10;
     summa:=0;
     for i:=1 to N do
     begin
          A[i]:=random(100);
          write('a[',i,']=',A[i]);
          summa:=summa+A[i];
     end;
     writeln;
     videjais:=summa/N;
     Writenl('Videjais aritmetiskais:',videjais:8:3);
     Readln;
end.

 

Kaut kā tā apmēram.

Kompilatora nav, pārbaudīt pats nevaru.

Ja ir kļūdas, mēģini izlabot, jebšu iepostē rezultātu.

Labots Novembris 30, 2009 - Azazel

[bubu]

Bezmaksas paskāla kompilatoru var dabūt šeit: http://freepascal.org/

[Ant_LV]

It kā jau programma darbojas, bet ne tā kā vajag. Varbūt kāds zina, kur iegādāties grāmatu latv.val par pascal? Cik esmu dzirdējis tāda esot.

 

Jebkurā Zvaigznes ABC grāmatnīcā var iegādāties Antras Balodes grāmatu par Paskālu. Šķiet, ka Kuzminu grāmatu gan vairs grāmatnīcās nevar dabūt.