diff options
author | Erich Eckner <git@eckner.net> | 2021-03-24 09:59:02 +0100 |
---|---|---|
committer | Erich Eckner <git@eckner.net> | 2021-03-24 09:59:02 +0100 |
commit | 9ae497516fab07d2f905de2b5ad56357d7c2d0a0 (patch) | |
tree | 42617706923c79edff9a3777e574d5dbe5903f1c /romunit.pas | |
parent | d3946d1bc558854811213817f718a603fe62b088 (diff) | |
download | ROM-9ae497516fab07d2f905de2b5ad56357d7c2d0a0.tar.xz |
Diffstat (limited to 'romunit.pas')
-rw-r--r-- | romunit.pas | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/romunit.pas b/romunit.pas index a3289c5..613124a 100644 --- a/romunit.pas +++ b/romunit.pas @@ -300,6 +300,10 @@ begin for i:=0 to length(outPuls)-2 do if outPuls[i+1]['x']<=outPuls[i]['x'] then writeln('Der Outpuls ist nicht sortiert!'); + if length(inPuls)<2 then + writeln('Der Inpuls hat nur '+intToStr(length(inPuls))+' Datenpunkte!'); + if length(outPuls)<2 then + writeln('Der Outpuls hat nur '+intToStr(length(outPuls))+' Datenpunkte!'); // Extrema identifizieren exList[0]:=findeExtrema(inPuls,false); |