domingo, 10 de abril de 2011

Arreglando el último programa de Pascal



Hay que perfeccionarse todos los días un poco. Así que aquí está el programa del último día un poco retocadito. ¡Hasta funciona! Lo de arriba es una prueba para ver si se pueden poner así los programas. Y lo de abajo también. Evidentemente, en un editor adecuado se ven las cosas mucho mejor.

program pruf12 (input, output);
var
i:integer;
cantidad:array[1..100] of real;
fecha:packed array[1..100] of string[2];
cpto: array[1..100] of string[30];
c,suma,reman:real;
mes:string[10];

begin
i:=0;
write('Mes actual: ');
readln(mes);
write('Remanente del mes anterior: ');
readln(reman);
repeat
i:=i+1;
writeln('Apunte nº',i);
write('Fecha: '); readln(fecha[i]);
write('Concepto (no metas acentos): '); readln(cpto[i]);
write('Cantidad ingres. o gast. (+/-): ');readln(c);
cantidad[i]:=c;
writeln('-----------');
until c=0;
i:=1;
suma:=reman;
writeln(mes);
writeln('Remanente del mes anterior: ',suma:10:2);
writeln('Fecha Concepto...........Entrada ..Salida ...Saldo.....');
while cantidad[i]<>0 do
begin
suma:= suma + cantidad[i];
write(fecha[i],': ');
write(cpto[i]:15,'...');
if (cantidad[i]>0) then
begin
write(cantidad[i]:10:2);
writeln(suma:20:2);
end
else
begin
write(cantidad[i]:20:2);
writeln(suma:10:2);
end;
i:=i+1;
end;
writeln;
writeln('..........Saldo final: ',suma:29:2);
end.

Y así es como queda la salida:


2 comentarios:

  1. Sabes mucho de informática ¿verdad?.
    ¡Qué envidia! (sana, por supuesto).
    Un super saludo.

    ResponderEliminar
  2. Hola Towanda, gracias por tu comentario. Solo soy un aficionado a lo de la programación. Yo soy de aquellos veteranos del BASIC, que luego se pasan el resto de su vida queriendo aprender otros lenguajes más "serios". ;)

    ResponderEliminar