home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Frozen Fish 2: PC
/
frozenfish_august_1995.bin
/
bbs
/
d07xx
/
d0713.lha
/
ICalc
/
Scripts
/
loop.ic
< prev
next >
Wrap
Text File
|
1992-08-19
|
983b
|
89 lines
# test looping constructs
silent
# simple un-nested loops
echo "Answers should be 45"
for (ss = j = 0; j < 10; j = j+1)
ss = ss+j
print(ss)
ss = j = 0
while (j != 9) {
j = j+1
ss = ss+j
}
print(ss)
ss = j = 0
do {
j = j+1
ss = ss+j
}
while (j != 9)
print(ss)
# nests of loops - answer should be 165 (sum of sum of first j nos., j = 1..9)
echo "\nAnswers should be 165"
# nested for-loops
ss = 0
for (j = 1; j < 10; j = j+1)
for (k = 1; k <= j; k = k+1)
ss = ss + k
print(ss)
# nested while-loops
ss = 0
j = 1
while (j < 10) {
k = 1
while (k <= j) {
ss = ss+k
k = k+1
}
j = j+1
}
print(ss)
# nested do-loops
ss = 0
j = 1
do {
k = 1
do {
ss = ss+k
k = k+1
}
while (k <= j)
j = j+1
}
while (j < 10)
print(ss)
# for inside while
ss = 0
j = 1
while (j < 10) {
for (k = 1; k <= j; k = k+1)
ss = ss+k
j = j+1
}
print(ss)
#while inside for
ss = 0
for (j = 1; j < 10; j = j+1)
{
k = 1
while (k <= j) {
ss = ss+k
k = k+1
}
}
print(ss)
verbose