TtlNewData
void SummariseDaily ...
{
GetOldData(OldData, &NumOldData);
TtlOldData = Sum(OldData, NumOldData);
PrintOldDataSummary(OldData,TtlOldData,NumOldData);
OldData
SaveOldDataSummary (TtlOldDataNumOldData);
...
GetNewData( NewData, &NumNewData);
TtlNewData = Sum( NewData, NumNewData);
PrintNewDataSummary( NewData,TtlNewData,NumNewData);
NewData
SaveNewDataSummary( TtlNewData, NumNewData );
...
}
10.2
C auto Pascal
Pascal New() Dispose()
C malloc() free()
C static
Turbo Pascal Pascal