Here are the question I've answered:
1. writing a program that sims tossing a dice 100X(ive done)
and counting how many times the different numbers come up.
You can do that with this:
dim a (1 to 100)
dim zero as integer
dim one as integer
dim two as integer
cls
for i=1 to 100
randomize timer
a(i)=int((rnd*5)+1)
if a(i)=0 then
goto SomeWhere
if a(i)=1 then
goto SomeWhereElse
(continue)
endif
next i
for i=1 to 100
select case a(i)
case=0
zero=zero+1
case=1
one=one+one
case=2
two=two+1
case=3
(continue)
end
The idea's there, but I haven't tested it yet, so it might not work.
2. setting up an array with ten storage positions, allowing no to be entered into the array, screen be cleared and 10 no printed out again.
You can do that with this:
dim a (1 to 10)
for i=1 to 10
input a(i)
next i
cls
for i=1 to 10
print a(i)
next i
end
I haven't tested this program either, but I'm pretty sure this will work.
I wasn't able to answer the other questions, so I'll give you links instead.
www.programmingtutorials.com - site with many tutorials on many languages
www.astentech.com - many tutorials about many languages
www.northernlight.com - good search engine(might help you in searching for tutorials)
I hope I was able to help you.
|