fork download
copy 
  1. program mehmooni;
  2. const
  3.     MAXN = 200000;
  4. type elenco=array [0..MAXN] of longint;
  5. var
  6.     N, i, j, h, pp  : longint;  (*pp=persone presenti*)
  7.     A, D  : elenco;
  8.     strettemano: int64;
  9.     uscita:boolean;
  10. Procedure scambia (var x,y: longint);
  11. var t:longint;
  12. begin
  13.    t:=x;
  14.    x:=y;
  15.    y:=t;
  16. end;  
  17. Procedure ordinamento (estremoi,estremos: longint; var v : elenco; ordinato:boolean);
  18. var inf, sup, medio:longint;
  19.     pivot :longint;
  20. begin
  21.     inf:=estremoi;
  22.     sup:=estremos;
  23.     medio:= (estremoi+estremos) div 2;
  24.     pivot:=v[medio];
  25.     repeat
  26.       if (ordinato) then
  27.          begin
  28.             while (v[inf]<pivot) do  inf:=inf+1;
  29.             while (v[sup]>pivot) do  sup:=sup-1;
  30.          end;
  31.       if inf<=sup then
  32.        begin
  33.          scambia(v[inf],v[sup]);
  34.          inf:=inf+1;
  35.          sup:=sup-1;
  36.        end;
  37.     until inf>sup;
  38.     if (estremoi<sup) then ordinamento(estremoi,sup,v,ordinato);
  39.     if (inf<estremos) then ordinamento(inf,estremos,v,ordinato);
  40. end;   
  41.  
  42. begin
  43. {
  44.     uncomment the following lines if you want to read/write from files
  45.     assign(input,  'input.txt');  reset(input);
  46.     assign(output, 'output.txt'); rewrite(output);
  47. }
  48.  
  49.     readln(N);
  50.     for i:=0 to N-1 do
  51.         readln(A[i], D[i]);
  52.     ordinamento (0,N-1,A, true);
  53.     ordinamento (0,N-1,D, true);
  54.     for i:=0 to N-1 do write(A[i],' '); writeln;
  55.     for i:=0 to N-1 do write(D[i],' '); writeln;
  56.     strettemano:=0;    if a[0]<d[0] then pp:=1
  57.                                     else pp:=0;
  58.     j:=0; i:=1; uscita:=false;
  59.  
  60.     while  i<N  do
  61.                begin
  62.                      write(a[i],' ',d[j],' ');
  63.                     if (a[i]<d[j]) then begin strettemano:=strettemano + pp; pp:=pp+1;  i:=i+1; end
  64.                                    else begin pp:=pp-1; strettemano:=strettemano + pp;  j:=j+1;end;
  65.                writeln(pp,' ',strettemano);
  66.                end;
  67.     if i=N then if j<N then for h:=j to N-1 do begin   pp:=pp-1; strettemano:=strettemano + pp;  end;         
  68.     strettemano:=strettemano+2*N; (*tutti salutano il padrone di casa quando arrivanoe quando escono*)
  69.     writeln(strettemano); 
  70. end.
  71.  
Success #stdin #stdout 0s 5292KB
comments (?)
stdin
copy 
4
7 8
3 4
5 6
1 2
stdout
copy 
1 3 5 7 
2 4 6 8 
3 2 0 0
3 4 1 0
5 4 0 0
5 6 1 0
7 6 0 0
7 8 1 0
8
https://ideone.com/4zNoze
language:
Pascal (fpc 3.0.4)
created:
12 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!