Padėkit! 2012 informatikos VBE Studijos ir mokslas Sukurta Birželio 2, 2015 Sveiki, gal galit padėti surašyti kintamuosius arba gal turite padarę 2012m informatikos vbe 1 užduoty? Krepšinis program Krepsinis;var procedure laikas; // Procedūra laikui skaičiuoti. var i, z : integer; begin for i := 1 to n do with info do begin zaide := 0; ilsejosi := 0; for z := 1 to t do if laikas[z] > 0 then zaide := zaide + laikas[z] else ilsejosi := ilsejosi + Abs(laikas[z]); end; end; procedure rikiuoti // Procedūra rikiuoti žaidėjams pagal eilę. var F : text; i : integer; begin assign(F, 'U1Rez.txt'); Rewrite(F); for i := 1 to i do procedure startinispenketas; // startionio penkete radimas. var i, l : integer begin for i := 1 to n do with Info do if laikas > 0 then begin inc(l); Startinis := k; end; Rikiuoti(Startinis); end; procedure Rasyti(); // Rezultatų išrašymo procedūra. var F : text; i : integer; begin
Padėkit! 2012 informatikos VBE
Studijos ir mokslas
Sukurta
Sveiki, gal galit padėti surašyti kintamuosius arba gal turite padarę 2012m informatikos vbe 1 užduoty? Krepšinis
program Krepsinis;
var
procedure laikas; // Procedūra laikui skaičiuoti.
var i, z : integer;
begin
for i := 1 to n do
with info do
begin
zaide := 0; ilsejosi := 0;
for z := 1 to t do
if laikas[z] > 0 then
zaide := zaide + laikas[z]
else
ilsejosi := ilsejosi + Abs(laikas[z]);
end;
end;
procedure rikiuoti // Procedūra rikiuoti žaidėjams pagal eilę.
var F : text;
i : integer;
begin
assign(F, 'U1Rez.txt');
Rewrite(F);
for i := 1 to i do
procedure startinispenketas; // startionio penkete radimas.
var i, l : integer
begin
for i := 1 to n do
with Info do
if laikas > 0 then
begin
inc(l);
Startinis := k;
end;
Rikiuoti(Startinis);
end;
procedure Rasyti(); // Rezultatų išrašymo procedūra.
var F : text;
i : integer;
begin