Neveikia programa su pascal

Sveiki, taigi sukuriau programa, jums nereikia zinoti uzduoties, nes visi skaiciavimai viskas tikrai yra padaryti teisingai, tiesiog meta klaida "ranges overrun"...Kodas:

program Grybautojai;

type masyvas=array[1..6] of integer;

var A:masyvas;
n,j:integer;
dien,skaic,skaic1,b,p:masyvas;
Df,Rf:text;

procedure duomenys;
var i:integer;
begin
   Assign(Df,'duom.txt');
   Reset(Df);
   Readln(Df,n);
   for i:=1 to n do
       Readln(Df,dien[i],skaic[i],skaic1[i]);
   Close(Df);
end;

procedure maksimumas;
var i:integer;
begin
   A[j]:=1;
   j:=1;
   for i:=1 to n do
   begin
       if skaic[i]>skaic1[i] then
       begin
       A[j]:=skaic[i];
       j:=i
       end
       else
       A[j]:=skaic1[i];
       j:=i;
   end;
end;

function dienos:integer;
var i:integer;
begin
   for i:=1 to n do
   begin
       if (skaic[i] = A[j]) or (skaic1[i] = A[j]) then b[i]:=dien[i];
       Write(Rf,b[i],' ');
   end;
   dienos:=b[i]
end;

function grybukai:integer;
var i:integer;
begin
   for i:=1 to n do
   begin
       if (skaic[i]>=100) and (skaic1[i]>=100) then  p[i]:=dien[i];
       Write(Rf,p[i],' ');
   end;
   grybukai:=p[i];
end;

begin
 duomenys;
 maksimumas;
 Assign(Rf,'rez.txt');
 Rewrite(Rf);
 Writeln(Rf,'Maksimalus grybu skaicius', A[j]);
 Writeln(Rf,'Grybautojai rekorda pasieke siomis dienomis', dienos);
 Writeln(Rf,'Abu grybautojai surinko ne maziau nei 100 grybu siomis dienomis', grybukai);
 Close(Rf);
end.

Jeigu pas tave n > 6, tai ir gauni peržengtus rėžius.

Sveiki, taigi sukuriau programa, jums nereikia zinoti uzduoties, nes visi skaiciavimai viskas tikrai yra padaryti teisingai, tiesiog meta klaida "ranges overrun"...Kodas:

type masyvas=array[1..6] of integer;

Daug nežiūrėjau, bet man atrodo, kad masyvui per mažai elemetų pasiėmęs tu :)

imk ne 6 o kokį 100

jo, problema tikrai su masyvo dydziu

Kad ir kaip butu keista, bet neveikia ar butu 1..100, ar 1..5, nors pas mane is viso 5 eilutes yra faile...Nezinau ka ir bedaryti...

Na kolegos praleidote viena labai menkai pastebima, bet akivaizdzia klaida:

n,j:integer;
...
procedure maksimumas;
var i:integer;
begin
   A[j]:=1;
   j:=1;
...

Pas tave j naudojamas dar pries igaudamas bent kazkokia reiksme.

Dabar tau pasiulymas:

- arba pradek VISIEMS kintamiesiems priskyrinet pradines reiksmes (ir globaliems ne kazkur procedurose, o pacioje programoje) arba mirk baisia mirtimi ;)

- Ir dar kaip minejo kolegos, proceduroje duomenys tikrint ar n nera didesnis uz masyvo elementu kieki.

- Pasiskaityk apie tokia dievo dovana programuotojams, kuri vadinasi "Debugger".

Na kolegos praleidote viena labai menkai pastebima, bet akivaizdzia klaida:

 

n,j:integer;
...
procedure maksimumas;
var i:integer;
begin
   A[j]:=1;
   j:=1;
...

 

Pas tave j naudojamas dar pries igaudamas bent kazkokia reiksme.

Dabar tau pasiulymas:

 

- arba pradek VISIEMS kintamiesiems priskyrinet pradines reiksmes (ir globaliems ne kazkur procedurose, o pacioje programoje) arba mirk baisia mirtimi ;)

- Ir dar kaip minejo kolegos, proceduroje duomenys tikrint ar n nera didesnis uz masyvo elementu kieki.

- Pasiskaityk apie tokia dievo dovana programuotojams, kuri vadinasi "Debugger".

Dekoju, tu man padejai!!!Beje nesupratau, o kodel negalima j priskirti veliau, juk as iki to priskyrimo nenaudoju sio masyvo?Dekoju dar karta tau! :) Taip pat klausimas, ar proceduru as negaliu writeln ar write viduje naudoti, tarp skliaustuku?Nes man butinai reikia tokio dalyko, kuri galima naudoti viduje write, del to, kad pas mane yra ciklas for, ir as kitaip negaliu isspausdinti reiksmiu, kuriu man reikia, todel, kad kai priskiria, kazkoki skaiciuka masyvo elementui, as nezinau koks to masyvo elemento numeris, taigi kitaip nei naudoti viduje writeln tuos visus skaiciavimus as negaliu...O kodel as nenoriu function naudoti, jus paklausite?Nes kai naudoju function, turiu gale jos priskirti function pavadinimui, kazkokia reiksme, o to man visai nereikia, nes ir taip as jau su function viska padarau, del to, kai naudoju function, man gaunasi taip, kad atsiranda papildomas skaiciukas rezultato faile.Dekoju kas pades, galbut per daug kompleksiskai cia parasiau, bet tiesiog noriu viska suzinoti, ka imanoma! :)

Galbut as per sudetingai parasiau paskutiniame komentare, tiesiog, paprastas klausimas, turiu as toki koda:

function dienos:integer;
var i:integer;
begin
   for i:=1 to n do
   begin
       if (skaic[i] = A[j]) or (skaic1[i] = A[j]) then
       begin
           b[i]:=dien[i];
           Write(Rf,b[i],' ');
       end;
   end;
[b]dienos:=b[i];[/b] //si vieta man prideda darviena papildoma skaiciuka rez.txt faile
end;

function grybukai:integer;
var i:integer;
begin
   for i:=1 to n do
   begin
       if (skaic[i]>=100) and (skaic1[i]>=100) then
       begin
           p[i]:=dien[i];
           Write(Rf,p[i],' ');
       end;
   end;
[b]grybukai:=p[i];[/b] //si vieta man prideda darviena papildoma skaiciuka rez.txt faile
end;

begin
 duomenys;
 maksimumas;
 Assign(Rf,'rez.txt');
 Rewrite(Rf);
 Writeln(Rf,'Maksimalus grybu skaicius ', A[j]);
 Writeln(Rf,'Grybautojai rekorda pasieke siomis dienomis ',[b]dienos[/b]); //naudoju writeln() viduje, nes procedure neveikia, kai ja idedu, bet funkcija paraso ta papildoma reiksme rez.txt faile, kurios man nereik...
 Writeln(Rf,'Abu grybautojai surinko ne maziau nei 100 grybu siomis dienomis ',[b]grybukai[/b]); //Cia tas pats kas ir pries tai buvusiam komentare.
 Close(Rf);
end.

Ten kur paryskinta ir parasytas komentaras salia, tos vietos man neaiskios...Gal dabar atsiras kas pades man galutinai pribaigti sia uzduoti, viskas jau veikia kaip reikia, tik del tos nelabosios funkcijos, man paraso papildoma skaiciuka rez.txt faile ir as nenoriu, kad taip butu.Dekoju is anksto!

Kodėl būtinai į writeln vidų kišt.

Pakeisk funkcijas į procedūras.

Write(Rf,'Grybautojai rekorda pasieke siomis dienomis: ');

TarkimProcedūraDienos(); //tavo procedūra išspausdins dienas aukščiau esančioj eilutėj;

Writeln;

Kodėl būtinai į writeln vidų kišt.

Pakeisk funkcijas į procedūras.

 

Write(Rf,'Grybautojai rekorda pasieke siomis dienomis: ');

TarkimProcedūraDienos(); //tavo procedūra išspausdins dienas aukščiau esančioj eilutėj;

Writeln;

Svarbiausia sita zinojau, kad galima taip daryti, bet neprisiminiau, dekui, kad priminei :D