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

Data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 7387c8f97b
commit cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

18
Task/Soloways-recurring-rainfall/XPL0/soloways-recurring-rainfall.xpl0 Normal file
View file

@ -0,0 +1,18 @@
real Rain, Sum, Count;
[Sum:= 0.; Count:= 0.;
loop [loop [Text(0, "Enter rainfall amount, or 99999 to quit: ");
Rain:= RlIn(0);
if Rain < 0. then
Text(0, "Must not be negative.^m^j")
else if Floor(Rain) # Rain then
Text(0, "Must be an integer.^m^j")
else quit;
];
if Rain = 99999. then quit;
Sum:= Sum + Rain;
Count:= Count + 1.;
Text(0, "Average rainfall is ");
RlOut(0, Sum/Count);
CrLf(0);
];
]