midschool | Дата: Четверг, 10.12.2009, 11:12 | Сообщение # 1 |
Admin
Группа: Администраторы
Сообщений: 99
Статус: Оффлайн
| описание массива dim a(20) as single или dim n, a() as single n=5 redim a(n) -------- заполнение массива вручную, если он небольшой for i = 1 to 20 a(i)= inputbox("a(" & i & ")=") next если нужно, чтобы данные были предварительно выведены на экран, то добавьте строки с S, т.о. программа примет вид s="" for i = 1 to 20 a(i)= inputbox("a(" & i & ")=") s= s & a(i) & chr(13) next s= s & "___конец массива__________" & chr(13) box=msgbox(s) не забудьте, что величины s, box нужно описать в программе -------- заполнение массива автоматически функция rnd() генерирует случайные числа (0;1) т.о. для получения (a; b) нужно rnd()*(b-a)+a причем учитываем, что получим дробные числа с точностью до 6 знаков после запятой значит для организации разных промежутков используем функцию для вычисления целой части числа math.floor Итак, если нужны целые числа из промежутка (2;10), то math.floor(rnd()*8)+2 если нужны дробные числа из промежутка (2;10),с точностью до десятых, то math.floor(rnd()*80)/10+2 если нужны дробные числа из промежутка (2;10),с точностью до сотых, то math.floor(rnd()*800)/100+2 программа примет вид s="" for i = 1 to 20 math.floor(rnd()*80)/10+2 s= s & a(i) & chr(13) next s= s & "___конец массива__________" & chr(13) box=msgbox(s) -----------
|
|
| |
midschool | Дата: Четверг, 10.12.2009, 11:18 | Сообщение # 2 |
Admin
Группа: Администраторы
Сообщений: 99
Статус: Оффлайн
| задачи для решения: Найти среднюю температуру воздуха за месяц Найти среднюю оценку ученика по предмету Найдите количество снежинок, вырезанных учениками в классе Подсчитайте сколько учеников выше 1м 50см в классе Найдите произведение n произвольных чисел Найти дни недели с большим числом учеников находящихся в классе Расставьте по возрастанию возраста фамилии учащихся в классе
|
|
| |