b0ras
-
Pranešimai
8 -
Užsiregistravo
-
Lankėsi
-
Atsiliepimai
0%
Turinio tipas
Forumas
Kalendorius
Parduotuvė
Akademija
Skelbimai
b0ras Pranešimai
-
-
-
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.
-
Dažniausiai užduodami klausimai susiję su skrydžiais
Kelionės
Atrašyta
Netoliese yra įsikūrusios įvairaus tipo informacinių technologijų įmonių