Heyyy everyone =). Im a freshman in Highschool taking a computer programming class.
I was just wondering if you guys could look over my code and see if there is anything
that I could have done more efficiently (i.e. using less ram, less code).
The objective of this program is to read data from a .DAT file and display it in a table.
Here is my output as shown in Console.
[IMG]http://i1024.photobucket.com/albums/y303/XM-SeriesX/output.png?t=1298593419[/IMG]
Thanks!
program check2;
{$APPTYPE CONSOLE}
uses
SysUtils;
const
tab = #9;
(****************************************)
procedure flowrTable;
begin
writeln (' IDD');
writeln (' IDD');
writeln (' IDD');
writeln (' IDD');
writeln (' IDD');
writeln (' I8DDZZI.');
writeln (' 8DDDDDDDDDDDDDDDDD.');
writeln (' DDDDDDDDDDDDDDDDDDDD~');
writeln (' DDDDDZ IDD =DDD~');
writeln (' DDDDD IDD ~');
writeln (' DDDD~ IDD');
writeln (' DDDDI IDD');
writeln (' DDDDD IDD');
writeln (' ~DDDDDD+ IDD');
writeln (' DDDDDDDDDDDDZ');
writeln (' .DDDDDDDDDDDDDDDD');
writeln (' ZDDDDDDDDDDD');
writeln (' IDD DDDDDD');
writeln (' IDD ~DDDDD');
writeln (' IDD DDDDD');
writeln (' IDD DDDDD');
writeln (' ~D+ IDD IDDDD');
writeln (' ~DDDD8 IDD DDDDD');
writeln (' ~DDDDDDDDDDDDDDDDDDDDD');
writeln (' ODDDDDDDDDDDDDDDDI');
writeln (' ~~7DD');
writeln (' IDD');
writeln (' IDD');
writeln (' IDD');
writeln (' IDD');
writeln (' IDD');
writeln;
writeln;
writeln (' <<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ');
writeln (' Jordans Bank of Awesomeness ');
writeln (' >>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ');
writeln;
writeln;
writeln(' Date Transaction Amount Balance');
writeln(' ----------------------------------------------------------');
writeln;
end;
(****************************************)
procedure readLines (var dataFile : text);
var
date : string[5];
beginBalance : real;
amount : real;
transType : integer;
transWords : string;
balance : real;
begin
readln( dataFile, beginBalance );
writeln(tab, ' Beginning Balance $', beginBalance:0:2);
balance := 2035.47;
while not eof (dataFile) do
begin
readln (datafile, date, transType, amount);
Case transType Of
-1: transWords := 'Deposit';
-2: transWords := 'Withdrawal';
-3: transWords := 'Bank Charge';
Else
transWords := 'Check # ';
transWords := transWords + formatfloat('####', transType);
End;
Case transtype of
-1: balance := balance + amount;
-2: balance := balance - amount;
-3: balance := balance - amount;
else
balance := balance - amount;
end;
if transWords = 'Deposit' then
begin
writeln ( ' ', date,' ', tab, transWords, ' ', ' ', '$', amount:0:2, tab, ' $', balance:0:2);
end
else
writeln ( ' ', date,' ', tab, transWords, ' ', tab, '$', amount:0:2, tab, ' $', balance:0:2);
end;
end;
(****************************************)
var
dataFile : text;
begin
Assign( dataFile, 'CHECK2.DAT');
Reset ( dataFile );
flowrTable;
readLines ( dataFile);
close( dataFile );
readln;
end.
