pascal užduotis

Sveiki, gal kas padėtu išspręsti šią užduotį? Labai reikia iki šiandienos.

Kiek tavo išspręsta? ar krauni kitiems darbą? :)

Kiek tavo išspręsta? ar krauni kitiems darbą? :)

Jei mokėčiau pats išspręsčiau ir neprašyčiau tikrai, tad negalvok, kad esu kažkoks idiotas ir tik kitiem duodu užduotys. Labai reikia išspręsti šią užduoti, todėl ir prašau, kad kas pagelbėtu.

program bulviakasis;
type maisai = array [1..100] of integer;
var A : maisai;
   n, nr, m, maxkr : integer; //n - ukininku skaicius, m - kiek telpa maisu
{---------------procedura failo nuskaitmui-------------------------------------}
procedure skaitymas;
var i : integer;
   fd : text;
begin
   assign(fd, 'Duom1.txt');
   reset(fd);
   readln(fd, n, m);
   for i := 1 to n do
       readln(fd, A[i]);
   close(fd);
end;
{------------Skaičiavimas, kiek kartų Petras važiavo į laukus------------------}
function kartai (mais : integer) : integer;
var i : integer;
begin
    kartai:=mais div m;
    if mais mod m <> 0 then kartai:=kartai+1;
end;
{----kiek kartų važiavo Petras į daugiausia bulvių prikasusio ūkininko lauką---}
procedure Daugiausia (var nr : integer; var maxkr : integer);
var i, max : integer;
begin
max:=A[1]; {Nustatoma pradine max reiksme}
for i:=2 to n do
   begin
       If A[i] > max
            then begin
                    max:=A[i];
                    nr:=i; {Ukininko numeris}
                 end;
   end;
maxkr:=max div m;
If max mod m <> 0 then maxkr:=maxkr+1;
end;
{---------rezultatu spausdinimas-----------------------------------------------}
procedure spausdinimas;
var fr : text;
   i, kiek : integer;
begin
   assign(fr, 'Rez1.txt');
   rewrite(fr);
   for i := 1 to n do
       kiek += kartai(A[i]);
   writeln(fr, kiek);
   writeln(fr, A[nr], ' ', maxkr);
   close(fr);
end;
begin
   skaitymas;
   Daugiausia(nr, maxkr);
   spausdinimas;
end.

patikrink ar veikia nežėjau dabar, šiaip gal dar yra klaidų, nes kodas prieš dagiau nei metus rašytas. Išsitaisyk jei yra. Na bet esmę turėtum suprast.

Viskas gerai veikia, tik neaišku ar sąlygoje klaida, nes primoje eilutėje rašo, kad turi gautis 28, o programoje gaunasi 27 :)

Ps. dar pastebėjau, kad naudoji C++ kalbą, kiek žinau pascalije "kiek += kartai(A);" taip nesirašo ar aš klistu?

Viskas gerai veikia, tik neaišku ar sąlygoje klaida, nes primoje eilutėje rašo, kad turi gautis 28, o programoje gaunasi 27 :)

 

Ps. dar pastebėjau, kad naudoji C++ kalbą, kiek žinau pascalije "kiek += kartai(A);" taip nesirašo ar aš klistu?

FPC turi opciją, kad tai suprasti, tik nežinau ar ji standartiškai būna įjungta.

taip tas += čia jau įkišta iš C++, bet kadangi tai nieko nekeičia skaičiavime, tai ir naudoju :rolleyes: dėl 28 tai pas mane klaida, pasitaisyk jei gali, jei ne pataisysiu, bet pamėgink tai padaryti pats ;)