b0ras

Netoliese yra įsikūrusios įvairaus tipo informacinių technologijų įmonių

Done

Numesk nuorodas į fotkes AŽ

Nu nėra lyg, nebent as tikrai žioplas

program Bevardė0;
type marsrutai = record
               pav   : string[20];
               kiekm : integer;
               mar   : array [1..50] of integer;
               end;
    masyvas = array [1..50] of marsrutai;

var  d, f : text;
    m : masyvas;
    mars : array [1..50] of integer;
    isviso, n, z, i, j : integer;
begin
 assign(d, 'Duomenys.txt');
 assign(f, 'Rezultatai.txt');
 reset(d);
 rewrite(f);
 Readln(d, n);
 if (n >= 1) and (n <= 100) then begin
   for i:=1 to n do
   begin
    Read(d, m[i].pav, m[i].kiekm);
    for j:=1 to m[i].kiekm do
    begin
     Read(d, m[i].mar[j]);
    end;
    Readln;
   end;
   isviso:=0;
   for i:=1 to n do
    isviso:=isviso + m[i].kiekm;
   z:=1;
   for i:=1 to n do
   begin
    for j:=1 to m[i].kiekm do
    begin
     mars[z]:=m[i].mar[j];
     z:=z+1;
    end;
   end;
   for i:=1 to isviso do
   WriteLn(f, mars[i]);
 end;
end.

Reiktu uzdaryti failus

Ne, ne. Ta as suprantu kaip padaryt.

Tarkim masyve: 1 4 1 4 2 4. Ilgiausias marsrutas - 4, t.y. kuris pasikartoja daugiausiai kartu. Kaip man tai padaryt?

Tavo vietoj, daryciau su papildomu masyvu, t.y sukti cikla per visas stoteles, tada ikisti vidini cikla skaityti marsruto numeri kaip masyvo eiles numeri, o masyvo reiksme prideti +1 kas kart, kai numeris sutampa. Tai atrodytu mazdaug taip:

For i:=1 to k(stotys) do

begin

x(bet koks kintamasis):=0;

Read(F, x);

for j:= 1 to x do

begin

Read(F-failas, m(marsruto numeris));

B[m]:=B[m]+1;

end;

Readln(F-failas);

end;

O didziausia reiksme patarciau rikiavimo budu surasti. Tikiuosi kazkiek padejau.

VU PS