UrarenKalitatea: Pascal Source Code for Water Quality
Classified in Computers
Written on in
English with a size of 5.27 KB
UrarenKalitatea Pascal Source Code
The following is a complete Pascal program designed to manage and calculate water quality measurements and indices.
PROGRAM UrarenKalitatea ;
USES
Crt, SysUtils ;
CONST
MAX_NEURKETAK = 1000 ;
TYPE
tsKateLabur = STRING [10] ;
tsKateLuze = STRING [150] ;
tarOinarrizkoParametroak = ARRAY [1..9] OF Real ;
trdNeurketa = RECORD
sBehatokia,
sData: tsKateLabur ;
rKIO: Real ;
iKI: Integer ;
arParametroak : tarOinarrizkoParametroak ;
END ;
tardNeurketenZerrenda = ARRAY [1..MAX_NEURKETAK] OF trdNeurketa ;
tfrdNeurketenFitxategia = FILE OF trdNeurketa ;
FUNCTION fncAukeraIrakurri : Char ;
VAR
cAukera : Char ;
BEGIN
Writeln('1. Neurketen fitxategiaren edukia erakutsi') ;
Writeln(... Continue reading "UrarenKalitatea: Pascal Source Code for Water Quality" »