Formato de programación en lenguaje pascal
Simplemente presione el espacio directamente...
Generalmente este es el hábito:
Me gusta si, para, repetir, mientras... algunos contienen pasos, simplemente escriba dos espacios hacia atrás para cada oración de sus subpasos y alinee el contenido en el mismo nivel. Si hay inicio
...fin, escriba una línea más (vea el ejemplo), esta. Hará que el programa sea legible, la relación de inclusión de los pasos sea clara y el inicio y el final se puedan alinear, lo que reducirá los errores.
Encontré un programa aleatorio y les doy un ejemplo:
programa concurso;
var a, b: array[1..100,1.. 100] de booleano; {var debe definirse bajo alineación de contenido}
bo: matriz[1..100]de booleano;
l, r: matriz[1..100 ] de longint;
t, k, m, n, i, j, an: longint;
procedimiento soua(i: longint; t , k: longint;
comenzar
for t:=1 to n hacer
if (a[i, t])and(not(bo [ t])) entonces {el contenido contenido en for se deja dos espacios detrás}
comenzar
bo[t]:=true;
inc( an) ;
soua(t); {begin end El contenido del medio pertenece al mismo nivel y está alineado}
end; p>
fin;
procedimiento soub(i: longint);
var t, k: longint
begin
si (b[i, t])y(no(bo[t])) entonces
comenzar
bo[t] ：=verdadero;
inc(an);
soub(t);
fin;
comenzar
asignar(entrada,'concurso.in');
restablecer(entrada);
asignar(salida, 'contest.out' );
reescribir(salida);
readln(n, m
for t:=1 to m do
p>comenzar
readln(i,j);
a[i,j]:=true;
b[j,i] :=verdadero;
fin
for t：=1 to n do
comenzar
fillchar(bo, sizeof(bo ), falso);
an: =0;
para k: =1 a n hacer
si (a[t, k])y ( not(bo[k ])) entonces
comenzar
bo[k]：=true
inc(an
fin;
l[t]:=an;
an:=0;
para k:=1 a n hacer
i
f (b[t,k])y (not(bo[k])) entonces
comienza
bo[k]:=true;
inc(an);
soub(k);
final;
r[t]:=an
final;
an：=0;
for t：=1 to n do
si l[t] r[t]=n-1 entonces inc( an);
writeln(an);
close(output);
end.
No hay repetición mientras está en este program El método de alineación es en realidad el mismo que para. De esta manera, los espacios son suficientes para la alineación.
No existe un método fijo. Sería fantástico si LZ encontrara un método que le resultara conveniente...