2007 metų informatikos egzamino pirma užduotis.Grybai.

Turiu koda pascal kalba,bet man reikia parasyti c++, gal galetų kas nors man paaiskinti?nesuprantu pirmos uzdavinio dalies,kaip sudedi tuos grybus pagal dienas.


[tex][/tex]program u1;
const duom_failas = 'U1.txt';
const rez_failas = 'U1rez.txt';
type t_grybai = array[1..31] of Integer;
//------------------Skaitymo Procedūra
procedure Skaitymas(var b,r,l : t_grybai);
var f : text;
    i,n,d,temp : integer;
begin
  assign(f,duom_failas);
  reset(f);
  readln(f,n);
  for i:=1 to n do
  begin
    read(f,d);
    read(f,temp); //Baravykai
    b[d]:=b[d]+temp;
    read(f,temp); //Raudonikiai
    r[d]:=r[d]+temp;
    read(f,temp); //Lepšiai
    l[d]:=l[d]+temp;
  end;
  close(f);
end;
//------------------Inicializacijos Procedūra
procedure Inicializacija(var b,r,l : t_grybai);
var i : integer;
begin
  for i:=1 to 31 do
  begin
    b[i]:=0;
    r[i]:=0;
    l[i]:=0;
  end;
end;
//-----------------Daugiausiai grybų turinčios dienos Funkcija
function Daugiausiai(b,r,l : t_grybai) : integer;
var i,n : integer;
begin
  n:=1;
  for i:=1 to 31 do
    if((b[i]+r[i]+l[i]) > (b[n]+r[n]+l[n])) then n:=i;
  Daugiausiai:=n;
end;
//------------------Spausdinimo Procedūra
procedure Spausdinimas(b,r,l : t_grybai);
var f : text;
  i,n: integer;
begin
  assign(f,rez_failas);
  rewrite(f);
  //Spausdinam dienas eilės tvarka
  for i:=1 to 31 do
  begin
    if(b[i]+r[i]+l[i] > 0) then
    begin
      writeln(f,i,' ',b[i],' ',r[i],' ',l[i]);
    end;
  end;
  n:=Daugiausiai(b,r,l);//Randam dieną su daugiausiai grybų
  writeln(f,n,' ',b[n]+r[n]+l[n]);
  close(f);
end;

var baravykai, raudonikiai, lepsiai : t_grybai;
begin
  Inicializacija(baravykai,raudonikiai,lepsiai);
  Skaitymas(baravykai,raudonikiai,lepsiai);
  Spausdinimas(baravykai,raudonikiai,lepsiai);
end.


brilliant

Turiu koda pascal kalba,bet man reikia parasyti c++, gal galetų kas nors man paaiskinti?nesuprantu pirmos uzdavinio dalies,kaip sudedi tuos grybus pagal dienas.


[tex][/tex]program u1;
const duom_failas = 'U1.txt';
const rez_failas = 'U1rez.txt';
type t_grybai = array[1..31] of Integer;
//------------------Skaitymo Procedūra
procedure Skaitymas(var b,r,l : t_grybai);
var f : text;
    i,n,d,temp : integer;
begin
  assign(f,duom_failas);
  reset(f);
  readln(f,n);
  for i:=1 to n do
  begin
    read(f,d);
    read(f,temp); //Baravykai
    b[d]:=b[d]+temp;
    read(f,temp); //Raudonikiai
    r[d]:=r[d]+temp;
    read(f,temp); //Lepšiai
    l[d]:=l[d]+temp;
  end;
  close(f);
end;
//------------------Inicializacijos Procedūra
procedure Inicializacija(var b,r,l : t_grybai);
var i : integer;
begin
  for i:=1 to 31 do
  begin
    b[i]:=0;
    r[i]:=0;
    l[i]:=0;
  end;
end;
//-----------------Daugiausiai grybų turinčios dienos Funkcija
function Daugiausiai(b,r,l : t_grybai) : integer;
var i,n : integer;
begin
  n:=1;
  for i:=1 to 31 do
    if((b[i]+r[i]+l[i]) > (b[n]+r[n]+l[n])) then n:=i;
  Daugiausiai:=n;
end;
//------------------Spausdinimo Procedūra
procedure Spausdinimas(b,r,l : t_grybai);
var f : text;
  i,n: integer;
begin
  assign(f,rez_failas);
  rewrite(f);
  //Spausdinam dienas eilės tvarka
  for i:=1 to 31 do
  begin
    if(b[i]+r[i]+l[i] > 0) then
    begin
      writeln(f,i,' ',b[i],' ',r[i],' ',l[i]);
    end;
  end;
  n:=Daugiausiai(b,r,l);//Randam dieną su daugiausiai grybų
  writeln(f,n,' ',b[n]+r[n]+l[n]);
  close(f);
end;

var baravykai, raudonikiai, lepsiai : t_grybai;
begin
  Inicializacija(baravykai,raudonikiai,lepsiai);
  Skaitymas(baravykai,raudonikiai,lepsiai);
  Spausdinimas(baravykai,raudonikiai,lepsiai);
end.


brilliant

brilliant

Turiu koda pascal kalba,bet man reikia parasyti c++, gal galetų kas nors man paaiskinti?nesuprantu pirmos uzdavinio dalies,kaip sudedi tuos grybus pagal dienas.


[tex][/tex]program u1;
const duom_failas = 'U1.txt';
const rez_failas = 'U1rez.txt';
type t_grybai = array[1..31] of Integer;
//------------------Skaitymo Procedūra
procedure Skaitymas(var b,r,l : t_grybai);
var f : text;
    i,n,d,temp : integer;
begin
  assign(f,duom_failas);
  reset(f);
  readln(f,n);
  for i:=1 to n do
  begin
    read(f,d);
    read(f,temp); //Baravykai
    b[d]:=b[d]+temp;
    read(f,temp); //Raudonikiai
    r[d]:=r[d]+temp;
    read(f,temp); //Lepšiai
    l[d]:=l[d]+temp;
  end;
  close(f);
end;
//------------------Inicializacijos Procedūra
procedure Inicializacija(var b,r,l : t_grybai);
var i : integer;
begin
  for i:=1 to 31 do
  begin
    b[i]:=0;
    r[i]:=0;
    l[i]:=0;
  end;
end;
//-----------------Daugiausiai grybų turinčios dienos Funkcija
function Daugiausiai(b,r,l : t_grybai) : integer;
var i,n : integer;
begin
  n:=1;
  for i:=1 to 31 do
    if((b[i]+r[i]+l[i]) > (b[n]+r[n]+l[n])) then n:=i;
  Daugiausiai:=n;
end;
//------------------Spausdinimo Procedūra
procedure Spausdinimas(b,r,l : t_grybai);
var f : text;
  i,n: integer;
begin
  assign(f,rez_failas);
  rewrite(f);
  //Spausdinam dienas eilės tvarka
  for i:=1 to 31 do
  begin
    if(b[i]+r[i]+l[i] > 0) then
    begin
      writeln(f,i,' ',b[i],' ',r[i],' ',l[i]);
    end;
  end;
  n:=Daugiausiai(b,r,l);//Randam dieną su daugiausiai grybų
  writeln(f,n,' ',b[n]+r[n]+l[n]);
  close(f);
end;

var baravykai, raudonikiai, lepsiai : t_grybai;
begin
  Inicializacija(baravykai,raudonikiai,lepsiai);
  Skaitymas(baravykai,raudonikiai,lepsiai);
  Spausdinimas(baravykai,raudonikiai,lepsiai);
end.


Gal kas??