La Red de Conocimientos Pedagógicos - Currículum vitae - C++ traducido a pascal

C++ traducido a pascal

var? x, y:matriz[0..100004]? deseo;

n, I, j, tmp: longint;

ans: int 64; ' taxi . out ');

Asignación (salida, ' taxi . out '); /p>

readln(n, x[0]);

¿Para qué? Yo:=1? ¿A dónde ir? ¿norte? hacer

Inicio

readln(x[i],y[I]);

inc(ans,ABS(y[I]-x[I ] ]));

Fin;

¿Para qué? Yo:=0? ¿A dónde ir? ¿norte? Hacer

¿Para qué? j:=i+1? ¿A dónde ir? n+1? Hacer

¿Y si? (x[I]>x[j])? Luego

Iniciar

tmp:= x[I];

x[i]:=x[j].

x[j]:= tmp;

Fin;

¿Para qué? Yo:=0? ¿A dónde ir? ¿norte? Hacer

¿Para qué? j:=i+1? ¿A dónde ir? n+1? Hacer

¿Y si? (y[I]>y[j])? Luego

Iniciar

tmp:= y[I];

y[I]:= y[j];

y [j]:= tmp;

End;

¿Para qué? Yo:=0? ¿A dónde ir? ¿norte? ¿Hacer lo? inc(ans,ABS(x[I]-y[I]));

writeln(ans);

Fin.