aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2025-06-11 20:16:52 -04:00
parent 72eb4943cb
commit 4d5544505c
2347 changed files with 62432 additions and 16731 deletions
Download patch file Download diff file Expand all files Collapse all files

42
Task/Text-processing-2/XPL0/text-processing-2.xpl0 Normal file
View file

@ -0,0 +1,42 @@
include xpllib; \for Print, StrCmp and StrCopy
int Records, Invalid, AllGood;
char File_name, C, Date(10+1), LastDate(10+1);
int N, Flag, Count;
real Data;
[File_name:= "readings.txt";
Print("File = %s\n", File_name);
Print("\nDuplicated dates:\n");
FSet(FOpen(File_name, 0), ^i); OpenI(3);
Records:= 0; Invalid:= 0; AllGood:= 0;
LastDate(0):= 0;
loop
[for N:= 0 to 10-1 do
[C:= ChIn(3);
if C = LF then C:= ChIn(3);
if C = EOF then quit;
Date(N):= C;
];
Date(N):= 0;
if Date(0)#^1 and Date(0)#^2 then Invalid:= Invalid+1;
if StrCmp(Date, LastDate) = 0 then
Print("%s\n", Date);
StrCopy(LastDate, Date);
Records:= Records+1;
Count:= 0;
for N:= 0 to 24-1 do
[Data:= RlIn(3);
Flag:= IntIn(3);
if Flag > 0 then
Count:= Count+1;
];
if Count = 24 then AllGood:= AllGood+1;
];
Print("\nTotal number of records : %d\n", Records);
Print("Number of invalid records : %d\n", Invalid);
Print("Number which are all good : %d (%1.2f^%)\n",
AllGood, float(AllGood)/float(Records)*100.0);
]