Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Elevador Versão Pascal StringList
//fpc 3.0.0 program HelloWorld; uses sysutils, Classes; function solution(A: array of Longint; B: array of Longint; N: Longint; M: Longint; X: Longint; Y: Longint): Longint; var counter : Integer; PesoTotalRodada : Longint; MaxPessoas : Longint; TotalParadas : Longint; isTerreo : Boolean; NumeroPessoas : Longint; PesoTotal : Longint; listAndares : TStringList; i : Integer; isAddAndar : Boolean; begin counter := 0; TotalParadas := 0; PesoTotalRodada := 0; MaxPessoas := 0; isTerreo := False; NumeroPessoas := X; PesoTotal := Y; listAndares := TStringList.Create; repeat begin if ((MaxPessoas + 1 <= NumeroPessoas) and (PesoTotalRodada + A[counter] <= PesoTotal)) then begin PesoTotalRodada := PesoTotalRodada + A[counter]; inc(MaxPessoas); isAddAndar := True; for i:=0 to listAndares.Count - 1 do if listAndares[i] = IntToStr(B[counter]) then isAddAndar := False; if isAddAndar then listAndares.Add(IntToStr(B[counter])); if (counter = Length(A)-1) then isTerreo := True; inc(counter); end else isTerreo := True; if (isTerreo) then begin TotalParadas := TotalParadas + listAndares.Count +1; MaxPessoas := 0; PesoTotalRodada := 0; isTerreo := False; listAndares.Clear; end; end; until counter > length(A); Exit(TotalParadas); end; begin writeln(solution([80,80,50,90],[3,4,5,6],0,0,2,200)); end.
run
|
edit
|
history
|
help
0
array
RENAN AZEREDO DA FONSECA 600618046
basketball_player_training
Количество пар кр и не кр 11 оптимизированное с логикой
LETICIA VIEIRA TEIXEIRA 600618795
aaaaa
1º Questão - VS - 1º Semestre 2017
abundante
Lab1SumWithRepeat
Pokemon1