fork download
copy 
  1. program sushi;
  2. Uses Math;
  3. const MAXN=100000;
  4. type piatto = record
  5.                    inizio:longint;
  6.                    durata:longint;
  7.                    peso:longint;
  8.                    fine:int64;
  9.                 end;
  10.      elenco = array[0.. MAXN-1] of int64;           
  11.      table = array[0..MAXN-1] of piatto;          
  12. var N,i:Longint;
  13.     ricordafine, quantomangio:int64;
  14.     T : table; 
  15.     S,W,D,E, ricordaindice:elenco;  (*array riferiti ai piatti Start, Weigth, Durata, End*)
  16.  
  17. Procedure scambia (var a,b: int64);
  18. var x:int64;
  19. begin
  20.    x:=a;
  21.    a:=b;
  22.    b:=x;
  23. end;  
  24.  
  25. Procedure ordinamento (estremoi,estremos: int64; var v : elenco; var u:elenco; ordinato:boolean);
  26. var inf, sup, medio:int64;
  27.     pivot :int64;
  28. begin
  29.     inf:=estremoi;
  30.     sup:=estremos;
  31.     medio:= (estremoi+estremos) div 2;
  32.     pivot:=v[medio];
  33.     repeat
  34.       if (ordinato) then
  35.          begin
  36.             while (v[inf]<pivot) do  inf:=inf+1;
  37.             while (v[sup]>pivot) do  sup:=sup-1;
  38.          end;
  39.       if inf<=sup then
  40.        begin
  41.          scambia(v[inf],v[sup]);
  42.          scambia(u[inf],u[sup]);
  43.          inf:=inf+1;
  44.          sup:=sup-1;
  45.        end;
  46.     until inf>sup;
  47.     if (estremoi<sup) then ordinamento(estremoi,sup,v,u,ordinato);
  48.     if (inf<estremos) then ordinamento(inf,estremos,v,u,ordinato);
  49. end;
  50.  
  51. begin
  52.    (*assign(input,  'input.txt');  reset(input);
  53.    assign(output, 'output.txt'); rewrite(output);*)
  54.    readln(N);
  55.    for i:=0 to N-1 do ricordaindice[i]:=i;
  56.    for i:=0 to N-1 do
  57.       begin
  58.         { dish on table }
  59.          readln(S[i],W[i],D[i]);
  60.          E[i]:=S[i]+D[i];
  61.          T[i].inizio:=S[i];
  62.          T[i].durata:=D[i];
  63.          T[i].peso:=W[i];
  64.          T[i].fine:=E[i];
  65.       end;
  66.     ordinamento(0,N-1,E, ricordaindice,true);
  67.     quantomangio:=T[ricordaindice[0]].peso;
  68.     ricordafine:=T[ricordaindice[0]].fine;
  69.     for i:=1 to N-1 do
  70.                 begin
  71.                   if (E[i]=ricordafine)   then quantomangio:=max(quantomangio,T[ricordaindice[i]].peso) 
  72.  
  73.                                        else
  74.                                           begin
  75.                                              if T[ricordaindice[i]].inizio>=ricordafine then begin quantomangio:=quantomangio+T[ricordaindice[i]].peso; ricordafine:=T[ricordaindice[i]].fine; end
  76.                                                                                         else continue;                                     
  77.                                           end;
  78.                end;                             
  79.    writeln(quantomangio);   
  80. end.
Success #stdin #stdout 0.01s 5320KB
comments (?)
stdin
copy 
4
8 2 5
7 6 2
2 7 5
4 4 3
stdout
copy 
13
https://ideone.com/y6acac
language:
Pascal (fpc 3.0.4)
created:
9 days ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!