2013 IT VBE programavimo uzduotis

Sedejau 2 val. prie uzduoties ir atsakyma vietoje 28 gaunu 30.

I progrmavimo uzduotis "Siuntu tarnybos"

program siuntiniukai;
type siuntos = record
   pav : string[10];
   x : integer;
   y : integer;
   viso : integer;
   end;
type Mas = array [1..50] of siuntos;

////////////////////////////////////////////////////////////////////////////////

var A:mas;
   n, m, visi, z, i:integer;
   R:text;

////////////////////////////////////////////////////////////////////////////////

procedure Skaitymas;
var i:integer; // Skaitiklis
   F:text;    // Duomenu failas

   begin
   Assign(F, 'U1.txt');
   Reset(F);
   ReadLn(F, n, m);

       for i:= 1 to n do
       ReadLn(F, A[i].pav, A[i].x, A[i].y);

   Close(F);
end;

////////////////////////////////////////////////////////////////////////////////

function Kilometrai(K:siuntos) : integer;
var Kil:integer;

       begin

       Kil:= 2*(abs(K.x) + abs(K.y));
       Kilometrai:= Kil;
end;

////////////////////////////////////////////////////////////////////////////////

begin

   Assign(R, 'U1rez.txt');
   Rewrite(R);

   Skaitymas;  // Nuskaito duomenys is U1.txt
   Visi:= 0;   // Visi nuvaziuoti kilometrai
   z:= 0;     // Vaziuoti kartai


   for i:= 1 to n do begin
   A[i].viso:= Kilometrai(A[i]); // Suranda kelia iki ir atgal
   while Visi < m do begin
   Visi:= Visi + A[i].viso;
   z:= z + 1;
   end;
   end;

   WriteLn(R, z, ' ', Visi, ' ', A[z].pav);

   Close(R);
end.

Atsakymas:

3 30 Kostisa   

Turiu 2013 pakartotines sesijos panašią programą su picerijom, jeigu nori - galiu atsiųsti, susižėsi

yra toks dalykas kaip debageris ;)

  for i := 1 to n do
 begin
   A[i].viso := Kilometrai(A[i]); // Suranda kelia iki ir atgal
   if (visi + A[i].viso) < m then
   begin
     visi := visi + A[i].viso;
     z := z + 1;
   end
   else
     break;
 end;

yra toks dalykas kaip debageris ;)

 

  for i := 1 to n do
 begin
   A[i].viso := Kilometrai(A[i]); // Suranda kelia iki ir atgal
   if (visi + A[i].viso) < m then
   begin
     visi := visi + A[i].viso;
     z := z + 1;
   end
   else
     break;
 end;

Deja, nemoke tokio dalyko mokykloje.

Mokykloje išvis mažai ko naudingo mokė. Savarankiškai tai reikia daryti ;)